حربي العنزي قام بنشر مارس 12, 2020 مشاركة قام بنشر مارس 12, 2020 السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته ساعدني في هذا الكود الاستاذ القدير جعفر الله يبارك فيه ويحفظه من كل شر يارب فاحببت ان اضيف عليه بحيث عن الضغط على زر امر تفريق البيانات تخرج رسالةاختيار نعم او لا احتمال ما اريد تفريق البيانات اضغط لا واذا اريد تفريغ البيانات اضغط نعم فهذه الاضافة تعمل لكن الا ان اضطر ان اغلق البرنامج وافتحه مرة ثانية عندها يتم تفريق البيانات اذا المساعدة مع وافر التحايا ProgClac44.rar رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر مارس 12, 2020 مشاركة قام بنشر مارس 12, 2020 السلام عليكم ان في جهازي تم تفريغ الحقول بدون ما اغلق الملف جرب ان تضع الكود التالي في تهاية الكود قبل جملة end sub Me.Requery تحياتي رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر مارس 12, 2020 الكاتب مشاركة قام بنشر مارس 12, 2020 استاذي الفاضل خالد ربي يحفظك يارب وشكرا جزيلا لسرعة الرد لكن جرب بعد عملية تفريغ البيانات ان تدخل بيانات ثانية اي ارقام وتقوم بعملية تفريغ البيانات سوف تلاحظ لن يقوم بالتفريغ الا ان تخرج وتدخل مرة ثانية مع فائق الشكر والتقدير رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر مارس 12, 2020 مشاركة قام بنشر مارس 12, 2020 السلام عليكم جرب المرفق اخي الكريم اتمنى يكون المطلوب اعلمنا النتائج تحياتي ProgClac44.rar 3 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر مارس 12, 2020 الكاتب مشاركة قام بنشر مارس 12, 2020 السلام عليكم استاذي الفاضل خالد الله يبارك فيك ويحفظك ويحميك من كل سوء يارب نعم هذا هو المطلوب جزاك الله خيرا 2 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر مارس 12, 2020 مشاركة قام بنشر مارس 12, 2020 جزاك الله خيرا اخى خالد اخى حربى @حربي العنزي لا تنسى الضغط على زر افضل اجابه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر مارس 12, 2020 أفضل إجابة مشاركة قام بنشر مارس 12, 2020 السلام عليكم 🙂 اسمحوا ان ادلو بدلوي 🙂 الموضوع هذا تكملة للموضوع: . المشكلة الموجودة عندك حاليا هي: 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 . جعفر 3 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر مارس 12, 2020 مشاركة قام بنشر مارس 12, 2020 جزاك الله خيرا اخى ومعلمنا العزيز @jjafferr على المعلومات الاكثر من قيمه بارك الله لنا فيك تقبل تحياتى 2 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر مارس 12, 2020 الكاتب مشاركة قام بنشر مارس 12, 2020 الاستاذ الفاضل والقدير جعفر الله لايحرمنا من شخصك الكريم والطيب يارب هذا هو المطاوب تماما وبالضبط كلمة شكرا قليلة في حقك ودعواي لك بالصحة والعافية والستر في الدنيا والاخرة يارب اساتذتي الافاضل الاستاذ الفاضل خالد والاستاذ الفاضل احمد الشكر موصول لكما وبارك الله فيكما واسأل الله جل وعلا ان يمن عليكما بالصحة والعافية الستر في الدنيا والاخرة يارب 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان