kingskull قام بنشر سبتمبر 14, 2020 مشاركة قام بنشر سبتمبر 14, 2020 السلام عليكم ورحمة الله وبركاته تحية طيبة لكم جميعا هل هناك امر ماكرو لتحديد جميع السجلات بوضع علامة صح على مربع التحديد لكل السجلات في نموذج سجلات مستمر لدي كود vba لكن اود استخدام الماكرو استخدمت خيار SetproPerty واعطيت القيمة -1 لكن يحدد سجل واحد فقط مع خالص التقدير رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر سبتمبر 14, 2020 مشاركة قام بنشر سبتمبر 14, 2020 وعليكم السلام اخى الفاضل استخدم استعلام تحديث ثم شغل الاستعلام بالماكرو وبعدها ريكويرى UPDATE tblYesNo SET tblYesNo.[YesNo] = -1; بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
kingskull قام بنشر سبتمبر 14, 2020 الكاتب مشاركة قام بنشر سبتمبر 14, 2020 وفقك الله اجرب واشوف يالغالي رابط هذا التعليق شارك More sharing options...
kingskull قام بنشر سبتمبر 14, 2020 الكاتب مشاركة قام بنشر سبتمبر 14, 2020 4 ساعات مضت, الفلاحجى said: UPDATE tblYesNo SET tblYesNo.[YesNo] = -1; كيف اجعل الماكرو يشغل هذا الكود لا اريد وضعه كـ vba رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر سبتمبر 14, 2020 مشاركة قام بنشر سبتمبر 14, 2020 من رخصة استاذي ومعلمي الفلاحجي وايضا بالامكان من ادوات تصميم النموذج واختار مربع الاختيار رابط هذا التعليق شارك More sharing options...
kingskull قام بنشر سبتمبر 14, 2020 الكاتب مشاركة قام بنشر سبتمبر 14, 2020 با اختصر السالفه واعذروني 🙏 عندي نموذج به سجل مستمر واريد فقط ان يتم اختيار تحديد السجلات بعد التصفيه حسب مربع تحرير وسرد طبعا كما ذكر استاذي ازهر موجود مربع التحرير انا نجحت عن طريق الماكرو عمل زر تحديد واستخراج السجلات بعد التصفيه كملف اكسل لكن لو اردت مثلا اصفي السجلات ثم عند اختيار تحديد الكل اريده يحدد الذي تم تصفيته وليس كل السجلات استخدمت دالة 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 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 14, 2020 مشاركة قام بنشر سبتمبر 14, 2020 تفضل طلبك اخي الكريم مع ايقاف رسائل التنبيه تحديد الجميع بالماكرو.accdb رابط هذا التعليق شارك More sharing options...
kingskull قام بنشر سبتمبر 14, 2020 الكاتب مشاركة قام بنشر سبتمبر 14, 2020 6 دقائق مضت, د.كاف يار said: تفضل طلبك اخي الكريم مع ايقاف رسائل التنبيه تحديد الجميع بالماكرو.accdb 1.11 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 تنزيلات بيض الله وجهك يالغالي والاخوان جميعا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.