26-04-13, 07:37 PM
26-04-13, 10:41 PM
تم حل المشكله
هذا كود الحفظ
ممكن تعديل
لكن يقوم بحفظ اول سطر من الفلكس غريد فقط والباقي لا يقوم بحفظة
ممكن مساعده من الخبراء
هذا كود الحفظ
PHP كود :
On Error Resume Next
Dim S As Integer
If Text1.Text = "" Then
MsgBox "أدخل رقم الفاتورة", vbCritical, "رقم الفاتورة"
Exit Sub
End If
SQL = "Select * From sale where InvNo= ' " & Trim(Text1.Text) & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, DB, adOpenKeyset, adLockPessimistic
With Grid
If RS.RecordCount < 1 Then
For S = 1 To .Rows - 1
RS.AddNew
RS!InvNo = Text1.Text
RS!InvDate = DTPicker1
RS!CutmrName = Combo1.Text
RS!Codeitem = .TextMatrix(S, 0)
RS!ItmName = .TextMatrix(S, 1)
RS!Price = .TextMatrix(S, 2)
RS!Qty = .TextMatrix(S, 3)
RS!amount = .TextMatrix(S, 4)
'++++
Next
MsgBox "تم حفظ الفاتورة بنجاح", vbInformation, "حفظ"
Label6.Caption = ""
Else
MsgBox "لم يتم الحفظ --- الفاتورة مسجله من قبل ", vbCritical, "خطأ"
End If
End With
لكن يقوم بحفظ اول سطر من الفلكس غريد فقط والباقي لا يقوم بحفظة
ممكن مساعده من الخبراء
27-04-13, 11:04 PM
[COLOR="#FFFF00"]||||||||lllll-- ممكن مساعده شباب --lllll|||||||||[/COLOR]
28-04-13, 12:37 AM
شباب راح يصير لي يومين على طرح السؤال
هل من المعقول لا احد يستطيع حل المشكله
هل من المعقول لا احد يستطيع حل المشكله
28-04-13, 03:31 AM
السلام عليكم
- أخي أضف RS.Update قبل كلمة Next .
- أخي أضف RS.Update قبل كلمة Next .
29-04-13, 12:36 AM
الف شكر لك اخيvb_coder
تم بنجاح الكود
تم بنجاح الكود