المساعدة في تفريغ بيانات عن طريق زر امر

[حربي العنزي]

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

ساعدني في هذا الكود الاستاذ القدير جعفر الله يبارك فيه ويحفظه من كل شر يارب 

فاحببت ان اضيف عليه 

بحيث عن الضغط على زر امر تفريق البيانات تخرج رسالةاختيار نعم او لا احتمال ما اريد تفريق البيانات اضغط لا واذا اريد تفريغ البيانات اضغط نعم 

فهذه الاضافة تعمل لكن الا ان اضطر ان اغلق البرنامج وافتحه مرة ثانية عندها يتم تفريق البيانات 

اذا المساعدة مع وافر التحايا

ProgClac44.rar

[Khalid Jnb]

السلام عليكم

ان في جهازي  تم تفريغ الحقول بدون ما اغلق الملف

جرب ان تضع الكود التالي  في تهاية الكود قبل جملة   end sub

Me.Requery

تحياتي

 

[حربي العنزي]

استاذي الفاضل خالد ربي يحفظك يارب وشكرا جزيلا لسرعة الرد

لكن جرب بعد عملية تفريغ البيانات ان تدخل بيانات ثانية اي ارقام وتقوم بعملية تفريغ البيانات سوف تلاحظ لن يقوم بالتفريغ الا ان تخرج وتدخل مرة ثانية 

مع فائق الشكر والتقدير

[Khalid Jnb]

السلام عليكم

جرب المرفق اخي الكريم

اتمنى يكون المطلوب

اعلمنا النتائج

تحياتي

ProgClac44.rar

[حربي العنزي]

السلام عليكم استاذي الفاضل خالد

الله يبارك فيك ويحفظك ويحميك من كل سوء يارب 

نعم هذا هو المطلوب 

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

[أبوبسمله]

جزاك الله خيرا اخى خالد

اخى حربى @حربي العنزي لا تنسى الضغط على زر افضل اجابه

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[jjafferr]

السلام عليكم 🙂

 

اسمحوا ان ادلو بدلوي 🙂

الموضوع هذا تكملة للموضوع:

 

.

 

المشكلة الموجودة عندك حاليا هي:

4 ساعات مضت, حربي العنزي said:

1. لكن جرب بعد عملية تفريغ البيانات ان تدخل بيانات ثانية اي ارقام وتقوم بعملية تفريغ البيانات سوف تلاحظ لن يقوم بالتفريغ

2. الا ان تخرج وتدخل مرة ثانية

 

1. الامر الموجود في الكود :  rst.MoveNext

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

فلما تشغل الكود مرة ثانية ، لا يعمل لأنه لازال على آخر سجل 🙂

والعمل ، انك لما تشغل الكود ، ومن البداية تخبره ان يذهب الى اول سجل :  rst.MoveFirst 🙂

2. لما تخرج من النموذج وتدخل فيه مره ثانية ، فواقعا انت تعيد المؤشر على اول سجل (لأن الكود لم يعمل بعد 🙂 ) .

 

واذا ادخلت قيمة في حقل ، وعلى طول نقرت على زر تفريغ البيانات ، فقيمة هذا الحقل لن يتم تصفيتها ، لأنها لاتزال في وضع  تعديل/Edit (اقرأ التفصيل هنا) :

.

لذلك يجب ان نبدأ بحفظ السجلات ، وهذا الامر يقوم بذلك: If Me.Dirty Then Me.Dirty = False

وعليه سيعمل الكود بالطريقة الصحيحة 🙂

 

 

اليك الكود بعد الاضافات اعلاه :

    Dim rst As dao.Recordset
  
    If MsgBox("هل تريد حذف البيانات", vbYesNo, "تنبيه") = vbYes Then

        If Me.Dirty Then Me.Dirty = False
    
        Set rst = Me.RecordsetClone
        rst.MoveFirst
    
        Do Until rst.EOF
            rst.Edit
       
                rst![mdowrMD] = Null
                rst![mdowrDA] = Null
                rst![mdeen] = Null
                rst![daan] = Null
            
            rst.Update
            rst.MoveNext

        Loop
    
    Else
        Exit Sub
       
    End If  'MsgBox
    

.

 

جعفر

[أبوبسمله]

جزاك الله خيرا اخى ومعلمنا العزيز @jjafferr على المعلومات الاكثر من قيمه

بارك الله لنا فيك

تقبل تحياتى

[حربي العنزي]

الاستاذ الفاضل والقدير جعفر الله لايحرمنا من شخصك الكريم والطيب يارب 

هذا هو المطاوب تماما وبالضبط 

كلمة شكرا قليلة في حقك ودعواي لك بالصحة والعافية والستر في الدنيا والاخرة يارب 

اساتذتي الافاضل الاستاذ الفاضل خالد والاستاذ الفاضل احمد الشكر موصول لكما وبارك الله فيكما واسأل الله جل وعلا ان يمن عليكما بالصحة والعافية الستر في الدنيا والاخرة يارب