[haniblack]

(11-10-16, 12:17 PM)ألف شكر لك استاذ احمد عدلت على البرنامج وتم الموضوع بنجاحبارك الله بك وجعلها في ميزان حسناتك Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم ، أنا أكتب ردي هذا من جهاز الموبايل لذلك قمت بتحميل المرفق وإستخراج الكود كـ نص ، لكي أنسخ كود زر المسح لعمود كامل في الجدول لأن كود تعديل عمود كامل في الجدول هو بنفس الطريقة اللهم بدل القيمة الفارغه تستبدلها لقيمة التكيت بوكس ، إذا أدرج زر جديد وليكن إسمه Command4 وهذا الزر يقوم بتعديل مثلا عمود الـ SeatNo بقيمة الـ Text1 , إذا الكود سيكون كالتالي :

PHP كود :

Private Sub Command4_Click()
On Error Resume Next: Err.Clear

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Sdb.mdb;Persist Security Info=False"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "Update seat Set Seat_No='" & Trim$(Text1.Text) & "'"
Adodc2.Refresh

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Sdb.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From seat"
Adodc1.Refresh

MsgBox "تم تعديل بيانات العمود بقيمة التكست بوكس", vbOKOnly + vbInformation, "تنبيه"

End Sub