sofiane05552 قام بنشر أغسطس 13, 2017 مشاركة قام بنشر أغسطس 13, 2017 (معدل) اريد وضع رقم السري علي كلمة انشاء مستخدم جديد مكتوبة بالفرنسية الصورة اسفل يعني عند ضغط علي انشاء مستخدم جديد يجيك رقم سري حتى تكتب رقم السري عشان تفتح تم تعديل أغسطس 13, 2017 بواسطه sofiane05552 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Shivan Rekany قام بنشر أغسطس 13, 2017 أفضل إجابة مشاركة قام بنشر أغسطس 13, 2017 Dim pass As Integer Dim massage As Integer pass = InputBox("ادخل رقم سري خاص لانشاء مستخدم جديد", "ادخل رقم سري") If pass = 1212 Then DoCmd.OpenForm "اسم النموذج" Else massage = MsgBox("کتبت رقم سري خطأ") End If 1 رابط هذا التعليق شارك More sharing options...
sofiane05552 قام بنشر أغسطس 13, 2017 الكاتب مشاركة قام بنشر أغسطس 13, 2017 6 دقائق مضت, Shivan Rekany said: Dim pass As Integer Dim massage As Integer pass = InputBox("ادخل رقم سري خاص لانشاء مستخدم جديد", "ادخل رقم سري") If pass = 1212 Then DoCmd.OpenForm "اسم النموذج" Else massage = MsgBox("کتبت رقم سري خطأ") End If جزاك الله خيرا استاذ رابط هذا التعليق شارك More sharing options...
عيسى الحوراني قام بنشر سبتمبر 19, 2017 مشاركة قام بنشر سبتمبر 19, 2017 في 8/13/2017 at 15:04, Shivan Rekany said: Dim pass As Integer Dim massage As Integer pass = InputBox("ادخل رقم سري خاص لانشاء مستخدم جديد", "ادخل رقم سري") If pass = 1212 Then DoCmd.OpenForm "اسم النموذج" Else massage = MsgBox("کتبت رقم سري خطأ") 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.