[اسلام الكبابى]

اجعل نوع الحقل الأول فى قاعدة البيانات  رقم  بدلآ من ترقيم تلقائى
 
وعدل كود الزرCommand1 هكذا                                                                                      
 

Dim XXX As Integer
 
Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "/db1.mdb")
Set rs = db.OpenRecordset("Select * From soft")
 
rs.MoveLast
XXX = rs("CodeiD").Value
 
rs.AddNew
Text1.Text = XXX + 1
Text2 = ""
Text3 = ""
Text2.SetFocus
Command2.Enabled = True
End Sub

 
وقم باضافة هتين الجملتن فى كود الزرCommand2  بعد الجملة  rs.AddNew

rs.AddNew

 

Text1.Text = XXX + 1

   rs("CODEID").Value = XXX + 1

 

If Not Trim$(Text2.Text) = "" Then rs("Name").Value = Trim$(Text2.Text)

 

 
ملحوظة بسيطة فى كود الزرCommand2  
الجملة الشرطية
If Not Trim$(Text2.Text) = "" Then rs("Name").Value = Trim$(Text2.Text)
ومثيلتها مع ال Text3
كان من الأفضل الغاء هذا الشرط منها . أى من الأفضل أن تكون الجملة
rs("Name").Value = Trim$(Text2.Text)
لأنك فى بداية كود الزر وضعت شروطك بأن لا يكون أى تكست منهما فارغآ
أى أننا لن نمر على هذه الجملة الا اذا كان التكست غير فارغ
أى  لن نمر عليها الا اذا كان هذا الشرط متحققآ