اعتزر منك يا اخى لتاخرى فى الرد وذلك لانشغالى بموضوع الاستضافة وربطها باكسس عموما جارى تحضير موضوع عن الترقيم
وهذا هو الكود مؤقتا
Dim f, k As Date
Dim j As String
Dim s As Long
If DCount("id", "mytable") > 0 Then
f = DMax("mydate", "mytable")
If Day(MyDate) > Day(f) Then
ID = 1
ElseIf Month(MyDate) > Month(f) Then
ID = 1
ElseIf Year(MyDate) > Year(f) Then
ID = 1
Else
j = "Day(MyDate) = " & Day(Me.MyDate)
ID = DLast("id", "mytable", j) + 1
End If
Else
ID = 1
End If