اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

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

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

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

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

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

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

ProgClac44.rar

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

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

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

 

.

 

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

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
    

.

 

جعفر

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

  • Like 3
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information