ابغى كود يجعل الاسم في القائمة

list1.additem text3.text

أخي ارجوا منك تتقبل نصيحتي . :rolleyes:

انصحك بوضع حقل ترقيم تلقائي لكي لا يظهر رسائل خطأ

تفضل

بعد تعديل زر الجديد

و تعبئة الليست بوكس

و الانتقال إلى السجل المحدد في الليست بوكس

prog1.rar

شاكر على مروركم الكريم

ويعطيكم العافيه وشاكر لكم جزيل الشكر

الله يجعلك محرم على النار يا متأمل انت وولديك وجميع المسلمين

الاحياء منهم والاموات

الله يبيض وجهك

والسلام

متأمل الله يجزاك خير

انا ابغى استعمل الكود لبرنامج ثاني لكن الكود بعد تعديل ارقام Command

يعطيني خطاء

وهذا الكود بعد التعديل

If Me.Command4.Caption = "?I?I" Then
	Data1.Recordset.AddNew
	Me.Command1.Caption = "??U"
	Me.Command2.Enabled = False
	Me.Command3.Enabled = False
	Me.Command4.Enabled = False
	Me.Command5.Enabled = False
Else
	Data1.Recordset![a] = Text1.Text
	Data1.Recordset! = Text2.Text
	Data1.Recordset![c] = Text3.Text
	Data1.Recordset![d] = Text4.Text
	Data1.Recordset![e] = Text5.Text
	Data1.Recordset.Update
	Data1.Refresh
	Call Form_Activate
	Me.Command1.Caption = "?I?I"
	Me.Command2.Enabled = True
	Me.Command3.Enabled = True
	Me.Command4.Enabled = True
	Me.Command5.Enabled = True
End If

وشاكر لك

سلام