ماكرو وضع علامة صح على كل السجلات

[kingskull]

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

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

استخدمت خيار SetproPerty  واعطيت القيمة -1 لكن يحدد سجل واحد فقط 

 

مع خالص التقدير 

[أبوبسمله]

وعليكم السلام اخى الفاضل

استخدم استعلام تحديث ثم شغل الاستعلام بالماكرو وبعدها ريكويرى

UPDATE tblYesNo SET tblYesNo.[YesNo] = -1;

بالتوفيق

[kingskull]

وفقك الله اجرب واشوف يالغالي

[kingskull]

4 ساعات مضت, الفلاحجى said:

UPDATE tblYesNo SET tblYesNo.[YesNo] = -1;

كيف اجعل الماكرو يشغل هذا الكود لا اريد وضعه كـ vba

[ازهر عبد العزيز]

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

[kingskull]

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

 

انا نجحت عن طريق الماكرو عمل زر تحديد واستخراج السجلات بعد التصفيه كملف اكسل لكن لو اردت مثلا اصفي السجلات ثم عند اختيار تحديد الكل اريده يحدد الذي تم تصفيته وليس كل السجلات استخدمت دالة if في vba ولكن لم تنجح معي 

 

وهذا الكود المستخدم 

Private Sub cmdMark_Click()
DoCmd.SetWarnings False
If [Forms]![Base]![مربع_تحرير_وسرد110] = "إيفاد" & "إبتعاث" & "إجازة دراسية" & "موافقة مسائية" & "موافقة نهاية الأسبوع" & "دراسة عن بعد" Then
DoCmd.ApplyFilter "", "([Base]![نوع الموافقة] = [Forms]![Base]![مربع_تحرير_وسرد110]"
 DoCmd.RunSQL "UPDATE Base SET Type.ysno = true"
 DoCmd.RunSQL "UPDATE Base SET Base.ysno = false"
 DoCmd.ShowAllRecords
ElseIf [Forms]![Base]![مربع_تحرير_وسرد110] = "الكل" Then
DoCmd.RunSQL "UPDATE Base SET Base.ysno = true"
Else
 End If
DoCmd.SetWarnings True
End Sub

 

Scholars.rar

[د.كاف يار]

تفضل طلبك اخي الكريم مع ايقاف رسائل التنبيه

تحديد الجميع بالماكرو.accdb

[kingskull]

6 دقائق مضت, د.كاف يار said:

تفضل طلبك اخي الكريم مع ايقاف رسائل التنبيه

تحديد الجميع بالماكرو.accdb 1.11 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 تنزيلات

بيض الله وجهك يالغالي والاخوان جميعا