تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة في عرض رقم الصنف بعد البحث عنه الى الجريد-مرفق صورة توضيحية
#11
المثال الذي وضعته لا يوجد به خطأ حفظ عندي السجلات لكن اريد ان اسالك لماذا وضعت رسالة تأكيد الحفظ في كل سجل في الجدول فقط ضعها قبل for و اغلق الشرط بعد next .
الرد }}}
تم الشكر بواسطة: awidan76 , ابراهيم ايبو , Ahmed_Mansoor , Amir_Alzubidy
#12
بجرب وارد لك خبر

لم يعمل بالشكل المطلول يعطي لي رسالة "تم حفظ الفاتورة " بتكرار عدد العناصر

وكمان اريد شرط اذا الجريد خالي من البيانات "حدد عنصر واحد على الاقل"
اذا اي من صناديق boxs خالي اريد رسالة اكتب البيانات
في رقم المعميل ,اسم العميل , البيان , ....الخ
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
#13
PHP كود :
'بسم الله الرحمن الرحيم نبدء'
'الغ fox.Rows = 14'
'ضع بدل عنها'
fox.Rows 0

'ضع هذا الكود في زر الحفظ قبل اللوب'
'إذا كان الجدول فارغ'
Dim flag As Boolean
Dim r
As Integer
  With fox
  flag 
True
    For r 
1 To .Rows 
      For c 
1 To .Cols 1
        If 
.TextMatrix(rc) <> vbNullString Then
        flag 
False
        End 
If
 
     Next c
    Next r
  End With
  If flag 
True Then
  MsgBox 
"لا يمكن حفظ الفاتورة الجدول فارغ"
 
 Exit Sub
  End 
If
'تفقد اذا كان هناك تكست بوكس فارغ في الفورم'
Dim X As Integer
For 0 To Me.Controls.Count 1
If TypeOf Me.Controls(XIs TextBox Then
If Me.Controls(X).Text "" Then
MsgBox 
"الرجاء تعبئة جميع الحقول النصية"
Exit Sub
End 
If
End If
Next X
'كود الحفظ'
'بعد Next الخاص بالحفظ ضع End If'


'عدل كود Timer2 ليكون كالتالي'
Private Sub Timer2_Timer()
If 
Getasynckeystate(120Then
ItemsID 
""
Form4.Show 1
fox
.TextMatrix(fox.Row0) = ItemsID
If ItemsID 0 Then
fox
.Rows fox.Rows 1
End 
If
End If
End Sub 

تعديل إضافي للتايمر :

PHP كود :
Private Sub Timer2_Timer()
If 
Getasynckeystate(120Then
ItemsID 
""
Form4.Show 1
fox
.TextMatrix(fox.Row0) = ItemsID
If ItemsID 0 Then
fox
.Rows fox.Rows 1
End 
If
End If
If 
fox.TextMatrix(fox.Rows 10) = "" And fox.TextMatrix(fox.Rows 20) = "" Then
fox
.RemoveItem (fox.Rows 1)
End If
End Sub 

و اذا اردت ضع الكود التالي في حدث الدبل كليك بـ Fox اي بالداتا غريد الخاص بالأصناف كالتالي :

PHP كود :
Private Sub fox_DblClick()
ItemsID 0
Form4
.Show 1
fox
.TextMatrix(fox.Row0) = ItemsID
If ItemsID 0 Then
fox
.Rows fox.Rows 1
End 
If
End Sub 


تعديل أخير :
PHP كود :
Private Sub fox_DblClick()
ItemsID 0
Form4
.Show 1
fox
.TextMatrix(fox.Row0) = ItemsID
If ItemsID 0 Then
fox
.Rows fox.Rows 1
End 
If
fox.Refresh
fox
.Row fox.Rows 1
fox
.Col 0
fox
.RowSel fox.Rows 1
End Sub 
الرد }}}
#14
العفو اخي ماضبطت معي ابدا يعمل تكرار لرسال "هل تريد حفظ الفاتورة "

عادي مابتعبك اخي الغالي وشكراً على محاولتك مساعدتي ولك جزيل الشكر

احترمك
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor , Amir_Alzubidy
#15
زر الحفظ كاملا :

PHP كود :
Private Sub Command1_Click()
'إذا كان الجدول فارغ'
Dim flag As Boolean
Dim r
As Integer
  With fox
  flag 
True
    For r 
1 To .Rows 
      For c 
1 To .Cols 1
        If 
.TextMatrix(rc) <> vbNullString Then
        flag 
False
        End 
If
 
     Next c
    Next r
  End With
  If flag 
True Then
  MsgBox 
"لا يمكن حفظ الفاتورة الجدول فارغ"
 
 Exit Sub
  End 
If
'تفقد اذا كان هناك تكست بوكس فارغ في الفورم'
Dim X As Integer
For 0 To Me.Controls.Count 1
If TypeOf Me.Controls(XIs TextBox Then
If Me.Controls(X).Text "" Then
MsgBox 
"الرجاء تعبئة جميع الحقول النصية"
Exit Sub
End 
If
End If
Next X

If MsgBox("هل تريد بالفعل حفظ بيانات الفاتورة"vbYesNo"") = vbYes Then
        
Dim I 
As Integer
For 1 To fox.Rows 1
    If Trim
$(fox.TextMatrix(I0)) <> "" And Val(Trim$(fox.TextMatrix(I0))) > 0 Then
    Set RS 
= New ADODB.Recordset
If RS.State adStateOpen Then RS.Close
RS
.CursorLocation adUseClient
             RS
.Open "select* from  BillItems "DBadOpenStaticadLockPessimistic
             RS
.AddNew
             RS
!Id Val(Trim$(fox.TextMatrix(I0)))
 
            RS!Name Trim$(fox.TextMatrix(I1))
 
            RS!Qty Val(Trim$(fox.TextMatrix(I3))) ''3
      RS
.Update
      DoEvents
        Set RS2 
= New ADODB.Recordset
If RS2.State adStateOpen Then RS2.Close
RS2
.CursorLocation adUseClient
      RS2
.Open "Select * From Store Where iD=" Val(Trim$(fox.TextMatrix(I0))), DBadOpenStaticadLockPessimistic
      If RS2
.RecordCount 0 Then
         RS2
![noo] = RS2![noo] - Val(Trim$(fox.TextMatrix(I3))) ''3
         RS2
.Update
         DoEvents
    MsgBox 
"تمت عملية الحفظ بنجاح"vbMsgBoxRtlReading vbInformation"حفظ فاتورة"
Else
 
   MsgBox "لم يتم حفظ الفاتورة"vbMsgBoxRtlReading vbInformation"حفظ فاتورة"
Exit Sub

End 
If
End If
Next
End 
If
End Sub 
الرد }}}
تم الشكر بواسطة: awidan76 , Ahmed_Mansoor , Amir_Alzubidy
#16
الكود شغال 100% جزاك الله خير بس الرسالة "تم حفظ الفاتورة " بكررها على حسب عدد الاصناف المضافة

وهذه مشكلة

مع ان الكود الخاص بك شغال حلاوة اخي الغالي وجزاك الله عنا خيرا ً

حلو جد خاصية التايمر عجبتنا مرررة
ربي يحفظ ك ويسلمك
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor , Amir_Alzubidy , Amir_Alzubidy
#17
هذا هو الحل :

PHP كود :
Private Sub SaveBill()
Dim X As Integer
'تفقد اذا كان هناك تكست بوكس فارغ في الفورم'
For 0 To Me.Controls.Count 1
If TypeOf Me.Controls(XIs TextBox Then
If Me.Controls(X).Text "" Then
MsgBox 
"الرجاء تعبئة الحقول النصية"
Exit Sub
End 
If
End If
Next X

If MsgBox("هل تريد بالفعل حفظ بيانات الفاتورة"vbYesNo"") = vbYes Then
Dim I 
As Integer
For 1 To fox.Rows 1
    If Trim
$(fox.TextMatrix(I0)) <> "" And Val(Trim$(fox.TextMatrix(I0))) > 0 Then
    Set RS 
= New ADODB.Recordset
If RS.State adStateOpen Then RS.Close
RS
.CursorLocation adUseClient
             RS
.Open "select* from  BillItems "DBadOpenStaticadLockPessimistic
             RS
.AddNew
             RS
!Id Val(Trim$(fox.TextMatrix(I0)))
 
            RS!Name Trim$(fox.TextMatrix(I1))
 
            RS!Qty Val(Trim$(fox.TextMatrix(I3))) ''3
      RS
.Update
      DoEvents
        Set RS2 
= New ADODB.Recordset
If RS2.State adStateOpen Then RS2.Close
RS2
.CursorLocation adUseClient
      RS2
.Open "Select * From Store Where iD=" Val(Trim$(fox.TextMatrix(I0))), DBadOpenStaticadLockPessimistic
      If RS2
.RecordCount 0 Then
          RS2
![noo] = RS2![noo] - Val(Trim$(fox.TextMatrix(I3))) ''3
         RS2
.Update
         DoEvents
Else
 
   MsgBox "لم يتم حفظ الفاتورة "vbMsgBoxRtlReading vbInformation"تنبية"
Exit Sub

End 
If
End If
Next
MsgBox 
"تمت عملية حفظ الفاتورة "vbMsgBoxRtlReading vbInformation"تنبية"
End If
End Sub

Private Sub Command1_Click()
'إذا كان الجدول فارغ'
Dim flag As Boolean
Dim r
As Integer
  With fox
  flag 
True
  Dim strXX 
As String
    For r 
1 To .Rows 
      For c 
0 To .Cols 1
        strXX 
= .TextMatrix(rc)
 
       If strXX "" Then
        flag 
False
Call SaveBill
        Exit Sub
        End 
If
 
     Next c
    Next r
  End With
  If flag 
True Then
  MsgBox 
"الجدول فارغ الرجاء تعبئته"
 
 Exit Sub
  End 
If
End Sub 
الرد }}}
#18
جزاك الله خير اخي الغالي asemshahen5 ربي يحفظك ويجزيك كل الخير

ويجعلك سعيدا دائما وابدا ويرزقك من حيث لاتدري رزقاً كثيرا يجعلك تتفاجئ به

اللهم امين

احترمك اخي الغالي والعزيز وشكراً على مجهودك البناء في مساعدتي
اعزك واحترمك
اخوك محمد
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor , Amir_Alzubidy , Amir_Alzubidy
#19
الله يسلمك و يحفظك اتدري رجعتني للوراء الى عام 2002 - 2003 لايام الذكريات الجميلة بارك الله فيك .
الرد }}}
تم الشكر بواسطة: awidan76 , Ahmed_Mansoor , Amir_Alzubidy
#20
الله يسلمك ويعافيك ويبارك فيك
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor , Amir_Alzubidy , Amir_Alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة gonm64 7 1,205 11-09-22, 02:04 PM
آخر رد: مصمم هاوي
  مشكلة في تعديل بعد تشابه حقل البحث محمد حمد محمد سليمان 1 1,203 24-01-22, 04:45 AM
آخر رد: Taha Okla
Thumbs Up مشكلة في برنامج مبرمج بلغة الفيجول بيسك palart 2 1,897 04-05-21, 05:59 PM
آخر رد: palart
  عندي مشكلة في برمجمة مشروع فيجول بيسك ياريت تساعدوني tareqhabib15 3 1,667 28-11-20, 10:11 PM
آخر رد: tareqhabib15
  مشكلة maskedbox ماجد 2 1,639 07-08-20, 10:14 AM
آخر رد: ماجد
Photo كيف أضيف صورة الموظف في قاعدة البيانات وفي تقرير الكريستال amazonette 0 1,908 30-12-19, 01:25 PM
آخر رد: amazonette
  افضل طرق البحث بـ ado derbaliammar 6 5,973 12-08-19, 02:52 AM
آخر رد: ahmed.m
  مشكلة محتاجة حل fathyfarag122 3 2,559 08-11-18, 03:45 PM
آخر رد: حريف برمجة
  كيفية البحث وعمل فلتر للبيانات داخل Mysql ؟ gedo 2 2,169 07-11-18, 05:53 PM
آخر رد: gedo
  [vb6.0] مشكلة في تشغيل exe لبرنامج تم إنشاءه بالفيجوال 6 محب الإسلام 2 2,397 06-10-18, 06:08 PM
آخر رد: dasktop

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم