ارقام الشيكات الساقطة

[baraa2007]

عندى جدول به خانه لارقام الشيكات الصادره

وعايز استعلام اعرف منه ارقام الشيكات الساقطة منى

او تقرير به حقل ادخال اول رقم فى دفتر الشيكات

وحقل ادخل به اخر رقم

وزر امر يخرج تقرير بالارقام الساقطة

[Bluemind]

اخوي

ابسط حل

عملتلك جدولين

الاول تدخل فيه ارقام الشيكات كامله من مثلا 1 الى 10

في الثاني ارقام الشيكات التي استعملتها او المدخله مثلا 2,4,6,8,10

سوف تكون النتيجه "الشيكات المفقوده"

1,3,5,7,9

سوف تحصل على النتيجه في الاستعلام

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

Missing.rar

[baraa2007]

طيب انا عايز كود يعمل جدول فيه ارقام الشيكات لان مش من المعقول ان اكتب ارقام 10000 شيك

وشكرا

[baraa2007]

والملف مش عايز يتفك

اكون شاكر لك لو رفعته من غير ضغط

[Bluemind]

اخوي

ماعاش الي يتعبك

هذا كود يكتب الارقام الي تبغاها

طبعا انا وضعت 10000 رقم

Function MakeData()
    غير Missing الى اسم قاعده البيانات الحاليه'.
    Dim Missing As Database
    
    Dim lng As Long
غير  Checksnumbers الى اسم الجدول المراد تعبئته'
    Dim Checksnumbers As DAO.Recordset
   
'اكتب رقم الاعداد المراد تعبئتها في الجدول'
    Const conMaxRecords As Long = 10000
    غير Missing الى اسم قاعده البيانات الحاليه'.
    Set Missing = DBEngine(0)(0)
    غير Missing الى اسم قاعده البيانات الحاليه و Checksnumbers الى اسم الجدول'.
    Set rs = Missing.OpenRecordset("Checksnumbers", dbOpenDynaset, dbAppendOnly)
    With rs
        For lng = 1 To conMaxRecords
            .AddNew
            'ضع اسم الحقل الموجود في الجدول المراد تعبئته بالاعداد'
                !Checknumber = lng
            .Update
        Next
    End With
    rs.Close
    Set rs = Nothing
    غير Missing الى اسم قاعده البيانات الحاليه'.
    Set Missing = Nothing
    MakeData = "Records created."
End Function

بعد الانهاء من الكود اضغط على Ctrl +G

اما بنسبه للمرفقات ، المنتدى لا يقبل الى ملفات وورد او ملفات مضغوطه تحميل الملف مباشره غير مقبول في المنتدى

[Bluemind]

طبعا هذا الملف مع الكود وضعته على مركز تحميل

http://www.4shared.com/file/44652554/e99efecd/Missing.html

[baraa2007]

اشكرك على اهتمامك بالموضوع

وجزاك الله خيرا

[baraa2007]

بس حتقل عليك شوية

انا عندى نموذج به خانة لاول رقم شيك فى الدفتر ، وخانة اخرى لاخر رقم شيك بالدفتر

عايز الكود لما ادخل اول رقم واخر رقم يكون جدول به الارقام كلها من اول رقم الى اخر رقم

وبعدين اعمل عليه الاستعلام

[baraa2007]

وملف انا رفعته لك

والباسورد

مال الله

A.rar

[Bluemind]

اخوي

مثل ما قلتلك في الكود

اكتب الرقم الي انت تبغاه وهو رايح يعطيك هوه

مثال الكود السابق

Const conMaxRecords As Long = 10000

استبدل 10000 بالرقم المطلوب

مثلا انت تبغى 500

رايح ينشاء لك 500 رقم

مع العلم ان تشغيل الكود السابق من نفس الوحده النمطيه وذالك بالضغط على Ctrl+G

[baraa2007]

اخى الفاضل

انا مش عايز كل ما اعوذ اغير ارقام دفتر الشيكات ادخل على الكود واغير الارقام

انا مرفق لك ملف

به نموزج يحتوى على التقارير

عايز لما دخل فى حقل النص الخاص باول رقم لدفتر الشيكات وحقل اخر رقم ، الكود يكون جدول يحصر فيها هذه الارقام

وانا ممكن اعمل استعلام بالفرق

بس انا خبرتى فى الاكود مش كويسة

وشكرا

[rudwan]

الى أن يتم حل مشكلة الملفات

أنشأ جدولا اسمه Serial يكون فيه حقل اسمه Number

أنشأ نموذجا فيه مربعي نص StartNO - EndNo

و زر أمر ضع فيه الكود التالي عند حدث النقر

On Error GoTo Err_Command9_Click
Dim I As Long
Dim Sql As String
Dim K As DAO.Recordset
Set K = CurrentDb.OpenRecordset("Serial")

If K.BOF = False Then

K.MoveFirst
Do Until K.EOF
K.Delete
K.MoveNext
Loop
End If


  
For I = 0 To (EndNo - StartNo)
K.AddNew
K![Number] = StartNo + I
K.Update

Next
K.Close


Exit_Command9_Click:
    Exit Sub

Err_Command9_Click:
    MsgBox Err.Description
    Resume Exit_Command9_Click

قم بتعبئة أول رقم شيك و آخر رقم شيك ثم اضغط زر الأمر

الآن اذهب الى الاستعلامات : جديد ( و قبل كلمة موافق ) - اختر آخر أنواع الاستعلامات - استعلام القيم المفقودة

اختر أولا جدول Serial

ثم اختر جدول الشكيات

و ليكن الرابط على حقل الرقم في كلا الجدولين

بتشغيل الاستعلام ستظهر لك باذن الله القيم المفقودة لآرقام الشيكات