إنشاء كود بـ دالة If

[MOamen Selema]

السلام عليكم

فى الملف المرفق أريد كتابة كود فى زر (دخول) الموجود فى النموذج (login) يقوم الكود بالتحقق من الحقل ID الموجود بنفس النموذج ، فإذا كانت القيمة الموجودة فيه = 2 ، يقوم بتغيير خاصية الزر المسمى (مختلف) الموجود فى النموذج form3 و يجعله غير مرئى 

مع ضرورة الابقاء على الكود الموجود أصلا فى زر دخول و عدم حذفه ، المطلوب كتابة كود اضافى فى نفس الزر

و جزاكم الله خيرا

المحل نسخة تجريبية.rar

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

Private Sub Form_Open(Cancel As Integer)
Dim z0
    z0 = DLookup("ID", "المستخدمين", "ID=forms!login!ID")
        If z0 = 2 Then
        Me.Command12.Visible = False
        Else
        Me.Command12.Visible = True
     End If
End Sub

المحل نسخة تجريبية_2.rar

تحياتي

تم تعديل نوفمبر 3, 2020 بواسطه محمد أبوعبدالله

[MOamen Selema]

عندما يتم فتح login أريد أن يكون الحقول textuser, textpass فارغة تماما ثم يقوم المستخدم بإدخال القيم فيها

[MOamen Selema]

للتسهيل ممكن ان نضع الامر في نهاية كود الزر 

و جزاكم الله خيرا