'دالة للترقيم التلقائي في الجدول تنادى في حدث قبل الادخال من النموذج
'MYFORMAT="00000" Public Property Get okm2(MYFIELD As String, MYtABEL As String, MYFORMAT As String) As String 'لاعطاء رقم للسجل تلقائيا Dim x2 As String x2 = DCount(MYFIELD, MYtABEL) If x2 = 0 Then x2 = Format(1, MYFORMAT) okm2 = x2 Exit Property Else x2 = MYFORMAT Dim mydb As Database, myrec As Recordset, mynum As String Set mydb = CurrentDb Dim mystrsql As String, mystrsqlA As String, mystrsqlB As String, mystrsqlC As String mystrsql = "SELECT " & MYtABEL & "." & "" & MYFIELD & " AS MYHR" & "" & _ " FROM " & MYtABEL & " " & _ " ORDER BY " & MYtABEL & "." & "" & MYFIELD & ";" & "" Set myrec = mydb.OpenRecordset(mystrsql) Do While myrec.EOF = False 'للبحث عن الارقام الشاغرة واعطائها للجديد mynum = myrec!MYHR x2 = Format(x2 + 1, MYFORMAT) If mynum <> x2 Then GoTo 10 myrec.MoveNext Loop x2 = Format(x2 + 1, MYFORMAT) 10: myrec.close Set myrec = Nothing mydb.close Set mydb = Nothing okm2 = x2 End If End Property