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

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


إذهب إلى أفضل إجابة Solved by عفرنس,

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

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

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

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

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

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

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

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


    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

.

جعفر

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

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

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

Untitled1.jpg

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

image.png.9d9592e5db4e419a996ce84fa3f6b429.png

 

 

ProgClac44.rar

تم تعديل بواسطه emam1424
تعديل الكود
  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

 

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

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

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

 

جعفر

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

الان, jjafferr said:

 

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

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

 

جعفر

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

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

image.png.7db557ff41a64a3b60255789677518a4.png

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

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

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



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

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

Important Information