اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اريد وضع رقم سري عند الضغط علي زر او حقل


sofiane05552
إذهب إلى أفضل إجابة Solved by Shivan Rekany,

الردود الموصى بها

اريد وضع رقم السري علي  كلمة انشاء مستخدم جديد مكتوبة بالفرنسية  الصورة اسفل 

يعني عند ضغط علي انشاء مستخدم جديد يجيك رقم سري حتى تكتب رقم السري  عشان تفتح

 

12.png

تم تعديل بواسطه sofiane05552
رابط هذا التعليق
شارك

  • أفضل إجابة
Dim pass As Integer
  Dim massage As Integer
	pass = InputBox("ادخل رقم سري خاص لانشاء مستخدم جديد", "ادخل رقم سري")
 If pass = 1212 Then
  		DoCmd.OpenForm "اسم النموذج"
  	Else
  		massage = MsgBox("کتبت رقم سري خطأ")
 End If

 

  • Like 1
رابط هذا التعليق
شارك

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

 

جزاك الله خيرا استاذ

رابط هذا التعليق
شارك

  • 1 month later...
في 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

 

جزاك الله خيراً استاذي الفاضل

تم تطبيق الكود عند فتح نموذج وكانت النتيجة ممتازة

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information