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

[sofiane05552]

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

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

 

تم تعديل أغسطس 13, 2017 بواسطه sofiane05552

[Shivan Rekany]

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

 

[sofiane05552]

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

 

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

[عيسى الحوراني]

في 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

 

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

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