إستعلام أو كود ايجاد رقم ساقط تسجيل

السلام عليكم

للتوضيح ...

في الحالة الأولى :

عن الغاء احد سندات القبض او الصرف 

ارغب في عمل استعلام يظهر الارقام المفقودة او الملغية 

ارقام السندات 

1

2

3

5

في هذه الحالة يكون الرقم الناقص او الملغي هم 4

والحالة الثانية :

استعلام يوضح الأرقام المكررة 

اي انه لو تم تسجيل سند صرف مرتين يظهر في الاستعلام .

سند صرف او قبض

1

2

3

3

4

5

يكون الرقم المكرر هو 3 وهكذا ... 

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

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

يعطيك العافية أخوي علاء ، لكن حبيت استفسر منك ، ما الفائدة التي تبحث عنها من تلك المعرفة؟  :hmm:

هل هي لغرض الأرشفة مثلاً أم لغرض الاستخدام اليومي أم مجرد فكرة حضرت لك واجتهدت لتنفيذها لسبب معين؟  :hmm:

أعذرني ولكن طرحك لهذه الفكرة وهي خام ، بدون تفاصيل شافية ووافية ، جعلني أحتار فيها قليلاً.  :thinking:

السلام عليكم

أهلا بك استاذ / نهاد

سأذكر لك كل الاسباب بمنتهى الشفافية والوضوح

تعتبر هذه الطريقة أحد أساليب المراجعة الحديثة في كشف التلاعب والغش والتدليس لا قدر الله .

او حتى الخطأ الغير مقصود في الحسابات والتي تنتج عن النسيان او تسجيل القيد مرتين او سند الصرف او سند القبض .

وهناك أيضاً قانون بنفورد إيجاد العلاقات بين الارقام ولكن به ثغرة يمكن ان تمر من خلالها اما هذه الطريقة فهي الأفضل .

وممكن تستخدمها بغرض الارشفة ايه المانع !!!

أتمنى أن أكون اجبتك اجابة وافية وشافية لإستفسارك ... 

تحياتي ...

اخي العزيز ابوعلاء :)

الارقام المفقودة او الملغية:

في الواقع المسألة جذبت انتباهي ، وحاولت عدم الرد ، ولكن التحدي ارغمني على قبوله :)

ومثل ما توقعت ، المسأله لم تكن سهلة ، ولا علاقة لها بالاستعلام :(

وغيرت في الكود عدة مرات ، الى ان توصلت الى طريقة جدا سهلة (وتافهه :) ) ،

وتركت لك في الكود تفصيل كل سطر عملته :

Private Sub cmd_check_Click()

    Dim rst As DAO.Recordset
    Dim Missing_Numbers As String
    Dim Counter As Integer
    
    'make the Recordset sorted in by doc_no,
    'so that we can get the numbers in a sequence
    Set rst = CurrentDb.OpenRecordset("Select * From sno Order by doc_no")
    rst.MoveLast
    
    'get the maximum nuber of doc_no,
    'we could have used DMax, but that would require another visit to the Table :(
    doc_no_Last_Value = rst!doc_no
    
    'move to the first Record
    rst.MoveFirst
    
    Missing_Numbers = ""
    Missing_Numbers2 = ""
    Existing_Numbers = ""

'stage 1

    'put the existing numbers in one string,
    'each number surrounded by a COMMA
    For i = 1 To rst.RecordCount
    
        'start accumelating the doc_no, seperated with a COMMA
        Existing_Numbers = Existing_Numbers & "," & rst!doc_no
        
        rst.MoveNext
    Next i
    'add a COMMA to the end of the string
    Existing_Numbers = Existing_Numbers & ","
    
    
'stage 2

    'now that we have the exiting doc_no,
    'let compare them with a sequence from 1 to doc_no_Last_Value
    For i = 1 To doc_no_Last_Value
    
        'prepare the sequence we should compare
        Check_This = "," & i & ","
        
        'does this value exist in the Existing_Numbers?
        'if the result is ZERO, then it doesn't exist,
        'so we should add it in the missing numbers
        If InStr(Existing_Numbers, Check_This) = 0 Then
            Missing_Numbers = Missing_Numbers & vbCrLf & i
            Missing_Numbers2 = Missing_Numbers2 & "," & i
        End If
    Next i
    
    
    Me.txt_Missing = Missing_Numbers
    Me.txt_Missing2 = Mid(Missing_Numbers2, 2)
    
    rst.Close: Set rst = Nothing
    
End Sub

النموذج وهو فاضي:

زالنموذج بعد البحث عن الارقام المفقودة:

جعفر

وللعلم ، كلما زاد عدد السجلات عندك ، كلما اخذ البرنامج وقت اطول ، فالافضل ان تربطه بسنة واي شئ تراه مناسبا :)

262.sno.accdb.zip

الله عليك يا حبيب والديك طيب والله انا عارف انك قدها وقدود ...

ودايما لما احط سؤال محير معرفش اوصل لاجابة ليه بنفسي او على المواقع الاجنبية او بعد ما ادوخ مشاهدة لتيوبات اجنبي ارفعه هنا وابقى على يقين اني هلاقي اجابته عندك او عند استاذة / زهرة عبد الله ...

ربنا يبارك لك في عمرك ورزقك يا رب ... هحمل الملف وانا واثق ان فيه الحل احسن مما كنت متوقع كمان

تحياتي لك استاذي الغالي / جعفر ....

استاذي الكريم ...

الملف والكود رائعين ...

لو ممكن طلب كمان ؟؟؟!!!!

عارف اني اثقلت عليك ولكن وقت ما تبقى فاضي ممكن تجاوبني عليه

ارغب في ان تتكرم بالتعديل على الكود ليجلب المقابل لكل رقم لانه سيكون هناك مثلا سند قبض او سند صرف وقيد يومية ...

حياك الله :)

واعتذر عن الرد على طلبك ، لأنه غير معقول وفوق قدراتي البشرية   :(

يعني كيف اجيب لك شئ غير موجود اصلا!!

ما انت قلت "رقم ساقط / محذوف / ملغي" ، يعني حأجيبه لك معلومته منين  :haha:

جعفر

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

تصدق كلامك صح ؟؟؟!!! :)

بس في القضاء ( عدم وجود / غياب / إخفاء ) القرينة أو الدليل مش معناه براءة المتهم :)

يعني لما يبقى التسلسل كل رقم قصاده نوع المستند يبقى المستند اللي ناقص في نطاق نوع المستند ...

الارقام من 1 الى الرقم 50 هي سندت قبض يبقى غياب اي رقم في النطاق ده اكيد هيبقى سند قبض لانه في الغالب مش بتصادف ان كل الارقام في نفس الشهر متساوية لكل انواع المستندات شهر 9 مثلا بيبدأ في القيد رقم 450 وينتهي 463  وسند الصرف 6250 وينتهي  برقم - - - 6 وسند قبض 2050 وينتهي برقم - - - 2 على سبيل المثال لا الحصر ....

على اي حال شاكر جداً لاهتمامك وتعبك وجعله الله في ميزان حسناتك ....

:)

استاذي الكريم / جعفر

السلام عليكم

حاولت اجرب الكود على الملف عندي مع تغيير اسم الجدول لـ  ENTERYTBL  وتغيير اسم الحقل إلى entryno  ولكني للأسف فشلت ولا اعرف ما السبب .
برجاء مساعدتي في ذلك ...
 

جميل، ولكن ما رأيك في تحديد الأرقام الناقصة من خلال أي علامة تقترحها (* ، # ، %)

مفيش مشكلة هات ما عندك أ/ خضر فليكن مثلاً #   :)

البحر يحب الزيادة وصدق من قال  " مَنْهُومَانِ لا يَشْبَعَانِ طَالِبُ عِلْمٍ وَطَالِبُ دُنْيَا "

السلام عليكم

في إنتظار تفاعل الأساتذة المحترمين 

استاذي / جعفر بخصوص التعديل على اسم الحقل والجدول في الكود

 وأستاذ / خضر في مقترحه الكريم  ...

أخي أبوعلاء :)

اﻻفضل أن ترفق قاعدة بياناتك حتى انظر فيها :)

جعفر

انا كذلك حصلت على الاستعلام التالي من الانترنت ، وشغال صح ، ولكن بين عمودين ، العمود الاول خانة من MissingFROM ، والعمود الثاني خانة الى TO :

SELECT A.doc_no+1 AS ['MissingFROM'], Min(B.doc_no)-1 AS ['TO']FROM sno AS A, sno AS BWHERE (((A.doc_no)<.[doc_no]))GROUP BY A.doc_noHAVING ((([A].[doc_no]+1)<Min(.[doc_no])))ORDER BY 1;

وبالنسبة الى جدولك والحقل الجديد ، جرب:

SELECT A.entryno+1 AS ['MissingFROM'], Min(B.entryno)-1 AS ['TO']FROM ENTERYTBL AS A, ENTERYTBL AS BWHERE (((A.entryno)<.[entryno]))GROUP BY A.entrynoHAVING ((([A].[entryno]+1)<Min(.[entryno])))ORDER BY 1;

جعفر

الاستعلام سهل وجميل وفيه ميزة حفظ الارقام للرجوع لها (مقولتك) وامكانية الحصول على تقرير اشكرك من اعماق قلبي وبارك الله فيك وبارك لك ...

وبخصوص قاعدة البيانات لو رفعتها هتوه انا اصلا بتوه فيها من كتر الجداول والتقارير والنماذج :)

تحياتي لك يا استاذي الغالي ....

:)