الرقم المفقود رسالة الخطا

للرفع

للرفـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــع

للرفع

مساء الخير اين الاستاذة الفاضلة

الموضوع صعب اذا كان كذلك اتمني التوضيح حتي لا انتظر ولكم الشكر

للرفع

للرفـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــع

للرفع هـــــــــــــــــــــــــــــــــــــــــــل من مجيب

السلام عليكم ورحمة الله وبركاته

أخي الكريم

اقتباس

استاذتي مرفق الملف السابق فارجو ان تنظري ماذا يتم بالنسبة لاضافة رقم مفقود ظهور رسالة الخطا لوجود عدد كبير جداً من الارقام المفقودة

سؤالك كان موجه إلى أستاذتنا المتألقة

على كل اسمحي لي يا سيدتي أن أقوم أنا بالتعديل اللازم

Function FindGaps()
Dim mydb As Database
Dim mytbl As Recordset
Dim mytbl2 As Recordset
Dim lastnum As Double
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE Lost_Number.* FROM Lost_Number;"
DoCmd.SetWarnings True
Set mydb = DBEngine.Workspaces(0).Databases(0)
Set mytbl = mydb.OpenRecordset("Groby_Number")     'ÝÊÍ ÇÓÊÚáÇã ÇáÌÏæá ÇáÃæá ãÝÑæÒ ÊÕÇÚÏíÇð
Set mytbl2 = mydb.OpenRecordset("Lost_number")
With mytbl
  .MoveFirst
  lastnum = !Tr_No '!CustNo      Ýí ÍÇáÉ ÚÏã ÊÓÌíá ÇáÑÞã (1) íÌÈ Ãä Êßæä ÇáÞíãÉ åäÇ ãÓÇæíÉ ááæÇÍÏ æáíÓ ÇáÓÌá ÇáÃæá
  Do Until .EOF
    If !Tr_No - lastnum >= 1 Then

      Do
         If mytbl!Tr_No - lastnum = 0 Then Exit Do
            With mytbl2
                .AddNew
                !missing = lastnum
            .Update
            End With
         lastnum = lastnum + 1
      Loop
      lastnum = lastnum + 1
      .MoveNext
    Else
      lastnum = !Tr_No + 1
      .MoveNext
    End If
  Loop
End With
mytbl.Close
mytbl2.Close
Set mytbl = Nothing
Set mytbl2 = Nothing
Set mydb = Nothing

DoCmd.OpenForm "frm-Lost_Number", acNormal, "", "", , acNormal

End Function

والتعديل اللازم هو

Dim lastnum As Double

وإليك يا أخي التعديل في المرفقات وأرجو أن يكون هو المطلوب

سلامي لك وللجميع

Data-Code2.rar

لك الشكر اخي الكريم وعذرا لتوجيه السؤال للاستاذة ام عهود وذلك باعتبار انها كانت هي المتابعة الموضوع معي وعلى العموم ليست هو المطلوب نلاحظ عدد كبير جدا من الارقام والمفترض ان تظهر فقط الارقام المفقودة لكل دفعة مثلا الدفعة 2011/1 مفقودات الارقام 11105 و 11112 تظهر فقط وكذلك مثلا الدفعة 2011/2 ارقام مفقودة 11212 و 11218 تظهر فقط والدفعة 2012/2 الارقام المفقودة مثلا 12209 و 12211 و 12225 تظهر فقط يعني باختصار تظهر فقط الارقام المفقودة لكل دفعة واكرر الشكر والاحظ عدم مشاركة الاستاذة لماذا ما ادري !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! اتمني ان يكون المطلوب واضح