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

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

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

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

مع وافر التحايا

ProgClac44.rar

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

للرفع

[jjafferr]

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

 

  ؟؟

 

جعفر

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

السلام عليكم استاذي الفاضل جعفر الله يبارك فيك يا طيب 

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

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

بيانات ارقام وتبقى الدليل المحاسبي واسم الحساب كما هي 

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

هذه صورة توضيحية للمطلوب

[jjafferr]

تفضل ، ضع هذا الكود على حدث النقر على الزر 🙂

انا ما جربت الكود ، بس وانا اشرب الشاي كتبته 🙂

    dim rst as dao.recordset
    set rst= me.[اسم النموذج الفرعي حسب ما هو].form.recordsetclone
    do until rst.EOF
     rst.edit
       rst![اسم الحقل الذي تريد ان تفرغه] = null
       rst![اسم الحقل التالي الذي تريد ان تفرغه] = null
       .....
     rst.update

     rst.movenext
    loop

.

جعفر

[عفرنس]

32 دقائق مضت, حربي العنزي said:

هذه صورة توضيحية للمطلوب

وهذه مشاركة مني لك بعد اذن الأخ جعفر 

 

 

ProgClac44.rar

تم تعديل مارس 9, 2020 بواسطه emam1424
تعديل الكود

[عفرنس]

الأخ حربي العنزي ..

عذا الكود وضعناه في زر أمر تفريغ الحقول ( عند النقر ) ومن ثم كتابة اسم الجدول وهو باللون البنفسجي :: وكذلك أسماء الحقول المطلوب تفريغها المشار إليها باللون الأحمر .. 

Private Sub CmdUpdate_Click()
Dim strSQL As String
strSQL = "UPDATE TBL1 SET TBL1.daan = NULL, TBL1.mdeen = NULL, TBL1.sumMdeen = NULL, TBL1.sumDaan = NULL, TBL1.rseedMD = NULL, TBL1.rseedDA = NULL, TBL1.mdowrMD = NULL,TBL1.mdowrDA = NULL"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Me.Requery
End Sub 

وللأمانة فالكود بعد البحث وجدته للأخت زهرة مع تعديل اسم الجدول والحقول فيه . 

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

اساتذتي الافاضل الاستاذ الفاضل جعفر والاستاذ الفاضل emam1424

شكرا جزيلا لكم نعم هذا هو المطلوب 

والشكر موصول للاستاذة الفاضلة زهرة 

لايسعني الا ان اسأل الله جل وعلا ان يحفظكم من كل شر يارب 

[عفرنس]

1 دقيقه مضت, حربي العنزي said:

اساتذتي الافاضل الاستاذ الفاضل جعفر والاستاذ الفاضل emam1424

شكرا جزيلا لكم نعم هذا هو المطلوب 

والشكر موصول للاستاذة الفاضلة زهرة 

لايسعني الا ان اسأل الله جل وعلا ان يحفظكم من كل شر يارب 

نسيت أضيف : انه تم تغيير اسم زر الأمر ( تفريغ الحقول ) إلى ( CmdUpdate ) 

بالتوفيق أخي الكريم .. 

3 دقائق مضت, حربي العنزي said:

اساتذتي الافاضل الاستاذ الفاضل جعفر والاستاذ الفاضل emam1424

شكرا جزيلا لكم نعم هذا هو المطلوب 

والشكر موصول للاستاذة الفاضلة زهرة 

لايسعني الا ان اسأل الله جل وعلا ان يحفظكم من كل شر يارب 

لا تنس تضغط على أفضل إجابه حتى يتم انه تم حل الموضوع 

[jjafferr]

9 دقائق مضت, emam1424 said:

ومن ثم كتابة اسم الجدول

 

نعم اذا كنت تريد ان تحدث جميع حقول الجدول 🙂

 

بينما اذا اردت تحديث حقول النموذج فاستعمل الكود اللي اعطيتك ، لهذه الاسباب :

- النموذج قد يكون مصدره استعلام ، وقد يكون هناك تصفية في الاستعلام ،

- النموذج الفرعي عادة يكون مرتبط بالنموذج الرئيسي عن طريق ربط حقل ، لذلك فهو عادة يعرض سجلات معينة فقط 🙂

 

جعفر

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

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

ممنون منك استاذ جعفر جزاك الله خيرا

[عفرنس]

الان, jjafferr said:

 

نعم اذا كنت تريد ان تحدث جميع حقول الجدول ،

بينما اذا اردت تحديث حقول النموذج (لأن النموذج قد يكون مصدره استعلام ، وقد يكون هناك تصفية في الاستعلام) ، فاستعمل الكود اللي اعطيتك 🙂

 

جعفر

أحسنت .. فائدة جميلة .. 

ولي عندك طلب لعلك تفزع لي فيI 

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

استاذ جعفر بعد ادخال اسماء الحقول التي اريد حذف بياناتها خرجت لي هذه الرسائل كما في الصور المرفقة

[jjafferr]

هذا لأنك ما عندك نموذج فرعي (الآن شفت برنامجك !! ) ،

استعمل:

set rst= me.recordsetclone

 

جعفر

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

الله عليك يا باشا نعم هذا هو المطلوب 

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