السلام عليكم ورحمة الله وبركاته
اخواني لدي منظومة مخازن صغيرة وكل شئ فيها والحمد الله تمام الا مشكلة في التعديل البيانات عندما اضغط تعديل تظهر لي هذه
بعد الضغط علي Debug
يظهر الكود لتحديد الحقول بـ textbox أو الكائنات ويظهر لي ان الخطأ واقع في هذا الكود
للعلم ان الكود التعديل
Private Sub Image5_Click() If Not IsNumeric(Text1) Then MsgBox "أدخل رقم المورد", vbExclamation Text1.SetFocus Exit Sub End If If Text2 = "" Then MsgBox "أدخل اسم المورد", vbExclamation Text2.SetFocus Exit Sub End If If Text3 = "" Then MsgBox "أدخل العنوان", vbExclamation Text3.SetFocus Exit Sub End If If Text4 = "" Then MsgBox "ادخل الدولة", vbExclamation Text4.SetFocus Exit Sub End If If Text5 = "" Then MsgBox "ادخل رقم الهاتف ", vbExclamation Text5.SetFocus Exit Sub End If If Rs1!id <> Val(Text1) Then sql1 = "select * from t2 where id=" & Text1 If Rs2.State = adStateOpen Then Rs2.Close Rs2.Open sql1, Cn, adOpenKeyset, adLockOptimistic If Rs2.RecordCount > 0 Then MsgBox "المورد موجود من قبل" Text1.SetFocus Exit Sub End If End If set_data Image8_Click End Sub
وللعلم ان اسم القاعدة works واسم الجدول T2 والحقل الاساسي يعني مفتاح الاساسي id
ارجوا المساعدة اذا امكن
