السلام عليكم ،،،
اخواني واساتذتي الكرام الافاضل
ظهرت معي مشكلة غريبة بخصوص الترقيم اليومي لكل يوم على حدة ، ولم افهم السبب وراء ذلك ؟؟؟
اولا .... هذا هو الكود المستخدم فى الترقيم اليومي وهو منقول من السيد جمال بارك الله فيه مع بعض التعديلات
Private Sub dailyserial()
كود ترقيم يومي لكل يوم على حده
Dim F, k As Date
Dim j As String
Dim s As Long
If DCount("daily_serial", "Torderno") > 0 Then
F = DMax("dat", "Torderno")
If Date < F Then
السلام عليكم ،،،
اخواني واساتذتي الكرام الافاضل
ظهرت معي مشكلة غريبة بخصوص الترقيم اليومي لكل يوم على حدة ، ولم افهم السبب وراء ذلك ؟؟؟
اولا .... هذا هو الكود المستخدم فى الترقيم اليومي وهو منقول من السيد جمال بارك الله فيه مع بعض التعديلات
Private Sub dailyserial()
كود ترقيم يومي لكل يوم على حده
Dim F, k As Date
Dim j As String
Dim s As Long
If DCount("daily_serial", "Torderno") > 0 Then
F = DMax("dat", "Torderno")
If Date < F Then