فتى الوادي قام بنشر سبتمبر 14, 2003 مشاركة قام بنشر سبتمبر 14, 2003 السلام عليكم كيف أقوم بتفعيل كود أو ألغاءه بواسطة زر أمر ؟ بحيث يكون هناك زرين أمر الأول ( تشغيل الكود ) والثاني ( الغاء الكود ) والسلام 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 14, 2003 مشاركة قام بنشر سبتمبر 14, 2003 أي كود ؟؟ لم أفهم السؤال ، أرجو التوضيح رابط هذا التعليق شارك More sharing options...
فتى الوادي قام بنشر سبتمبر 14, 2003 الكاتب مشاركة قام بنشر سبتمبر 14, 2003 السلام عليكم مزيد من التوضيح .. عندي هذا الكود If DCount("txtnum", "جدول2") > 5 Then MsgBox "عــفواً ... هذه النسخة للعرض فقط .. للحصول على نسخة كاملة من البرنامج " & vbCrLf & _ " الــرجــاء الأتــصــال على المبــرمــج " _ & vbCrLf & _ vbCrLf & " AMOTAIB@HOTMAIL.COM ", 0, "أنتهاء مدة العرض" Me.Undo Cancel = True DoCmd.Quit Else DoCmd.Maximize End If اريد نموذج فيه زرين أمر ... الأول يقوم بتشغيل هذه الكود ليكون فاعلاً .. والزر الثاني لألغاء الكود وأبطال تأثيره . رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 15, 2003 مشاركة قام بنشر سبتمبر 15, 2003 قم بتعيين متغيير عام اسمه مثلا Mycheck و اجعل زر التفعيل يغبر قيمته الي . و زر الابطال يغيرها الي 1 وعدل الكود الي if Mycheck = 0 then If DCount("txtnum", "Table2") > 5 Then MsgBox "عــفواً ... هذه النسخة للعرض فقط .. للحصول على نسخة كاملة من البرنامج " & vbCrLf & _ " الــرجــاء الأتــصــال على المبــرمــج " _ & vbCrLf & _ vbCrLf & " AMOTAIB@HOTMAIL.COM ", 0, "أنتهاء مدة العرض" Me.Undo Cancel = True DoCmd.Quit Else DoCmd.Maximize End If end if ملاحظة غيرت اسم الجدول حتي لا تنقلب الجملة أو تجعله يسالك عن رقم سري مثلا بدل صفر وواحد فاذا أدخلت الرقم ازال الشرط و اذا لم يكن يفعله أو حل آخر أن تخزن القيمة فى حقل فى جدول بدل متغير عام و تغيرها من الزر و في النهاية تختبر القيمة فى الجدول أو فى المتغير العام قبل تنفيذ الكود الذي ذكرته مع تحياتي رابط هذا التعليق شارك More sharing options...
فتى الوادي قام بنشر سبتمبر 15, 2003 الكاتب مشاركة قام بنشر سبتمبر 15, 2003 الله يجزيك بالخير .. لكن هل كل مرة لا زم أضغط الزر لألغاء الكود ؟؟ أنا أريد أن أضغط زر ألغاء الكود ويصبح غير فعال حتى لو خرجت ودخلت للبرنامج مرة أخرى ... وإذا أردت أن أعيد تفعيل الكود لا بد أن أضغط الزر رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر سبتمبر 15, 2003 مشاركة قام بنشر سبتمبر 15, 2003 طيب بدل استخدام المتغير استخدم مربع نص مخفي على النموذج واتبع نفس التعليمات الموضحة بأعلى ولكن بدلاً من المتغير استخدم مربع النص رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 15, 2003 مشاركة قام بنشر سبتمبر 15, 2003 اذا فحل المتغير لا يناسبك و لابد من تخزين القيمة فى جدول و للاسترجاع من الجدول نستخدم دالة Dlookup و بناء علي القيمة التي ستسترجعها تنفذ الكود و هنا لن نعرف متغير عام DIM Mycheck AS INTEGER Mycheck = DLookUp("[FieldName]","TableName") if Mycheck = 0 then If DCount("txtnum", "Table2") > 5 Then MsgBox "عــفواً ... هذه النسخة للعرض فقط .. للحصول على نسخة كاملة من البرنامج " & vbCrLf & _ " الــرجــاء الأتــصــال على المبــرمــج " _ & vbCrLf & _ vbCrLf & " AMOTAIB@HOTMAIL.COM ", 0, "أنتهاء مدة العرض" Me.Undo Cancel = True DoCmd.Quit Else DoCmd.Maximize End If end if و لتسجيل القيمة بالجدول أو تحديثها استخدم استعلام تحديث أو ما يناظره بالكود مع تحياتي رابط هذا التعليق شارك 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.