(26-03-18, 04:09 PM)جاسم عبد كتب : تفضل هذا التعديل
اخي العزيز
إجابة غير موفقه
تحياتي
اخي العزيز نحن لسنا في مسابقة حتى يكون جوابك هكذا
المفروض بك ان تشكرني لانني حاولت ان اساعدك
ربما لم اتمكن من الجواب لانني لم افهم صيغة سؤالك
تقبل تحياتي
اجعل نوع الحقل الأول فى قاعدة البيانات رقم بدلآ من ترقيم تلقائى وعدل كود الزر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) لأنك فى بداية كود الزر وضعت شروطك بأن لا يكون أى تكست منهما فارغآ أى أننا لن نمر على هذه الجملة الا اذا كان التكست غير فارغ أى لن نمر عليها الا اذا كان هذا الشرط متحققآ