أخي العزيز
هذه الكودات بلدي وليست مستوردة ، تفصيل وليست قوالب جاهزة ، ويمكن استخدامها كما نشاء
لذلك لا بد من فهم روتين (بروتوكول) العمل داخل النموذج ، لتحديد الحركة داخل الكود
أدخلت مجموعة سجلات ولم يحصل معي تكرار ، أعدت صياغة الكود ، حيث كان الاول لتوضيح الفكرة
الآن عند ادخال الاسم (بعد التحديث) لحقل strName يتم تنفيذ الكود على افتراض ان ادخال الاسم سابق مباشرة للادخال التلقائي للتاريخ
بغض النظر عن الحقول السابقة أو اللاحقة
Private Sub strName_AfterUpdate()
Dim rs As ADODB.Recordset, MyVal As Date
Dim x As Date
Set rs = New ADODB.Recordset
'Open a Connection to the Recordset
rs.Open "SELECT MAX(strDate) from Table1", CurrentProject.Connection
rs.MoveFirst
MyVal = (rs.Fields(0).Value) + 1
x = Format(MyVal, "yyyy/mm/dd")
rs.Close
Set rs = Nothing
Me.strName.SetFocus
Me.strDate = x
End Sub
كما يمكنك استخدام الكود في اي نموذج لتطبيق نفس الروتين
شرط تغيير اسم الحقل strDate في الكودالى الاسم الجديد للحقل الذي سيتم ادخال التاريخ فيه، او ابقاء الكود كما هو وتسمية الحقل بنفس الاسم في النموذج الجديد
والله من وراء القصد ...
NA_MaxDate_UP.rar