السلام عليكم ،،، اخواني واساتذتي الكرام الافاضل ظهرت معي مشكلة غريبة بخصوص الترقيم اليومي لكل يوم على حدة ، ولم افهم السبب وراء ذلك ؟؟؟ اولا .... هذا هو الكود المستخدم فى الترقيم اليومي وهو منقول من السيد جمال بارك الله فيه مع بعض التعديلات 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