مساعدة في دالة if في الكود

[ازهر عبد العزيز]

السلام عليكم ,,,,,

في النموذج fqx احتاج عند الضغط على زر تحقق وكانت قيمة الحقل z تساوي قيمة الحق v  تظهر رسالة تنبية error 1  وبخلافة تظهر رسالة تنبيه error2 عن طريق الكود وليس الماكرو وشكرا جزيلا 

vvv.accdb

[kanory]

21 دقائق مضت, ازهر عبد العزيز said:

السلام عليكم ,,,,,

في النموذج fqx احتاج عند الضغط على زر تحقق وكانت قيمة الحقل z تساوي قيمة الحق v  تظهر رسالة تنبية error 1  وبخلافة تظهر رسالة تنبيه error2 عن طريق الكود وليس الماكرو وشكرا جزيلا 

vvv.accdb 704 kB · 0 downloads

استخدم هذا .....

Dim q As Integer
q = z
If Me.v = q Then
   MsgBox "error1"
Else
   MsgBox "error2"
End If