ابو تراب

يفضل لو ترفق مثال و الاعضاء الكرام يمكمهم المساعدة

وظيفة Nz. يمكنك استخدام الدالة Nz لإرجاع صفر أو سلسلة ذات طول صفري ("") عندما يكون المتغير فارغًا Nill

=Nz(DSum("[mx1]";"[Qleader]";"[hx1]='y'"),0)

هنا تجد مثال

وعليكم السلام ممكن عمل مفتاح يتكون من رقم الفاتورة و التاريخ

هذه محاولة اعدت الرفع New Microsoft Access Database.accdb

وضعتها في النموذج tab1 duplicat.accdb

ضع مثال لتجريب عليه

Dim prop As Property On Error GoTo SetProperty Set prop = CurrentDb.CreateProperty("AllowBypassKey", dbBoolean, False) CurrentDb.Properties.Append prop SetProperty: If MsgBox("Would you like to turn on the Bypass Key?", vbYesNo, "Allow Bypass?") = vbYes Then CurrentDb.Properties("AllowBypassKey") = True Else CurrentDb.Properties("AllowBypassKey") = False End If

هل تقصد هذا Me.a.Locked = True

ماذا عن الاشهر بين 2010 و 2020

هلا اخي جرب المرفق New Microsoft Access Database (1).accdb

كل عام وانتم بخير وعيدكم مبارك 🌹

ماشاء الله تبارك الله مبرووووووك الترقية اخي @Gamal.Saad و اخي@اشرف بالتوفيق و من نجاح الى نجاح 🌹

عيد سعيد اخي العزيز @أحمد الفلاحجى وكل عام وانت وجميع اخوانتنا بخير و عافية🌹

هلا اخي لا ادري اذا هذا ينفع..لاحظ رقم 6 مكرر New Microsoft Access Database (5) - Copy.accdb

حياك الله اخي @فايز.. تغيير في حقل الجنس Private Sub GENRE_AfterUpdate() If Not IsNull(Me.GENRE) Then Dim lastID As Integer Dim lastCode As String lastID = Nz(DMax("Units_AutoID", "TabUnitsTeachers", "UNITS = '" & Me.GENRE.Value & "'"), 0) lastCode = Nz(DLookup("CODE", "TabUnitsTeachers", "UNITS = '" & Me.GENRE.Value & "' AND Units_AutoID=" & lastID), vbNullString) If lastCode = vbNullString Then lastCode = Switch(Me.GENRE.Value = "ÐßÑ", "01-000", Me.GENRE.Value = "ÃäËì", "02-000") End If Me.ID_TEACHER.Value = Left(lastCode, 3) & Format(Val(Right(lastCode, 3)) + 1, "000") Else Me.ID_TEACHER.Value = vbNullString End If End Sub وتغيير بعد الحفط Private Sub Form_AfterUpdate() If Not IsNull(Me.GENRE) And Not IsNull(Me.ID_TEACHER) Then DoCmd.RunSQL "INSERT INTO TabUnitsTeachers (UNITS, Code) VALUES ('" & Me.GENRE.Value & "','" & Me.ID_TEACHER.Value & "')" End If End Sub

هلا اخي هذه محاولة Aziz.accdb

هلا اخي جرب المرفق __Duplicate -1.mdb

هلا اخي جرب المرفق New_Microsoft_Access_Database.accdb

هلا اخي جرب المرفق New Microsoft Access Database.zip

ممكن عمل نوع خطي لمعرفة التغير كما ادناه... اترك عمل المخطط البياني للاعضاء المبدعين للمساعدة

كل شئ ممكن و هذا المفروض ان يتم عند التصميم على كلا انا متاكد ان الاعضاء الكرام سيساعدو و ياتو بحلول رائعة يمكنك الطلب هنا او فتح موضوع جديد بالتوفيق

هلا اخي هل هذا ماتريد New Microsoft Access Database.accdb

هلا اخي جرب المرفق ملاحظة الاستعلام qryUpdateNormal لعمل التحديثات للارقام الحيحة الاستعلا qryUpdateRepAndWrong لعمل التحديثات للارقام المكررة و التي لاتساوي طول 14 حرف بالتوفيق استبدال.accdb