[ahmed201]

سلام عليكم اخواتي الكرام  لدي ثلاث تكس بوكس واحد اسم وثاني العمر وثلاث رقم الهاتف وعمل كواد اضافة بيانات الموجوده في لتكس بوكس يتم ترحيلها الي MSFlexGrid بعد اكمل من اضافة البيانات الي MSFlexGrid اريد ترحيل البيانات من MSFlexGrid الي جدول في قاعدة البيانات انا استخدم في هذه الكواد ولكن لا يعمل 

كود :

On Error Resume Next
Dim i As Integer
If rs.State = 1 Then rs.Close
sql = "Select * From [Table2] where [n1] =" & MSFlexGrid1.TextMatrix(i, 3) & ""
rs.Open sql, db, adOpenStatic, adLockOptimistic
If rs.EOF Then
For i = 1 To MSFlexGrid1.Rows - 1
rs.AddNew
rs![n1] = MSFlexGrid1.TextMatrix(i, 1)
rs![n2] = MSFlexGrid1.TextMatrix(i, 2)
rs![n3] = MSFlexGrid1.TextMatrix(i, 3)
rs.Update
Next i
End If

[sendbad100]

وعليكم السلام

جرب احذف هذا السطر 

PHP كود :

If rs.EOF Then 


وايضاً  عدل الاستعلام ما يحتاج الشرط 

PHP كود :

sql = "Select * From [Table2] 
rs.Open sql, db, adOpenStatic, adLockOptimistic 


[ahmed201]

وعليكم السلام

جرب احذف هذا السطر 

PHP كود :

If rs.EOF Then 


وايضاً  عدل الاستعلام ما يحتاج الشرط 

PHP كود :

sql = "Select * From [Table2] 
rs.Open sql, db, adOpenStatic, adLockOptimistic 


شكرا اخي الغالي الكود شغل تمام جزاك الله الف خير

---

وعليكم السلام

جرب احذف هذا السطر 

PHP كود :

If rs.EOF Then 


وايضاً  عدل الاستعلام ما يحتاج الشرط 

PHP كود :

sql = "Select * From [Table2] 
rs.Open sql, db, adOpenStatic, adLockOptimistic 


اخي الغالي منكن طريق خصم الكميه من المخزن عن طريق  MSFlexGrid1.TextMatrix(i, 1)

[sendbad100]

السلام عليكم

ما عندي الوقت لتطبيقها 

سوف اشرحها وانت طبقها واتمنى  تضبط معك

لو فرضنا ان هذا الكود لحفظ الاصناف في الفاتورة.

PHP كود :

On Error Resume Next
Dim i As Integer
If rs.State = 1 Then rs.Close
sql = "Select * From [Table2] where [n1] =" & MSFlexGrid1.TextMatrix(i, 3) & ""
rs.Open sql, db, adOpenStatic, adLockOptimistic
If rs.EOF Then
For i = 1 To MSFlexGrid1.Rows - 1
rs.AddNew
rs![n1] = MSFlexGrid1.TextMatrix(i, 1)
rs![n2] = MSFlexGrid1.TextMatrix(i, 2)
rs![n3] = MSFlexGrid1.TextMatrix(i, 3)

rs.Update

''''''''''''''''في هذا السطر '''''''''''''''''''''''''

Next i
End If 


بعد سطر   rs.Update   مباشر 

عليك عمل كود  يقوم 
1- بالبحث عن الصنف المحفوظ في جدول الاصنفاف  
2- تعديل الكمية في المخزون الى الكمية الجديدة.
بمعنى 
 الكمية السابقة -  الكمية الحالية في الفاتورة (MSFlexGrid1.TextMatrix(i, 1)) = الكمية 
الجديدة.
بالتوفيق