فتى الوادي قام بنشر سبتمبر 14, 2003 قام بنشر سبتمبر 14, 2003 السلام عليكم كيف أقوم بتفعيل كود أو ألغاءه بواسطة زر أمر ؟ بحيث يكون هناك زرين أمر الأول ( تشغيل الكود ) والثاني ( الغاء الكود ) والسلام 1
محمد طاهر عرفه قام بنشر سبتمبر 14, 2003 قام بنشر سبتمبر 14, 2003 أي كود ؟؟ لم أفهم السؤال ، أرجو التوضيح
فتى الوادي قام بنشر سبتمبر 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 اريد نموذج فيه زرين أمر ... الأول يقوم بتشغيل هذه الكود ليكون فاعلاً .. والزر الثاني لألغاء الكود وأبطال تأثيره .
محمد طاهر عرفه قام بنشر سبتمبر 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 ملاحظة غيرت اسم الجدول حتي لا تنقلب الجملة أو تجعله يسالك عن رقم سري مثلا بدل صفر وواحد فاذا أدخلت الرقم ازال الشرط و اذا لم يكن يفعله أو حل آخر أن تخزن القيمة فى حقل فى جدول بدل متغير عام و تغيرها من الزر و في النهاية تختبر القيمة فى الجدول أو فى المتغير العام قبل تنفيذ الكود الذي ذكرته مع تحياتي
فتى الوادي قام بنشر سبتمبر 15, 2003 الكاتب قام بنشر سبتمبر 15, 2003 الله يجزيك بالخير .. لكن هل كل مرة لا زم أضغط الزر لألغاء الكود ؟؟ أنا أريد أن أضغط زر ألغاء الكود ويصبح غير فعال حتى لو خرجت ودخلت للبرنامج مرة أخرى ... وإذا أردت أن أعيد تفعيل الكود لا بد أن أضغط الزر
امير عاطف قام بنشر سبتمبر 15, 2003 قام بنشر سبتمبر 15, 2003 طيب بدل استخدام المتغير استخدم مربع نص مخفي على النموذج واتبع نفس التعليمات الموضحة بأعلى ولكن بدلاً من المتغير استخدم مربع النص
محمد طاهر عرفه قام بنشر سبتمبر 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 و لتسجيل القيمة بالجدول أو تحديثها استخدم استعلام تحديث أو ما يناظره بالكود مع تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.