فتح النموذج حسب اسم المستخدم

تفضل ،، وفقك الله

db1.rar

قم بإنشاء نموذج جديد فارغ ثم أنشئ مربع نص وزر أمر

مربع النص بعنوان txtlog

زر الأمر cmdApply

ضع الكود التالي في الزر الأمر في حالة onclick :

On error resume next

If me.txtlog.value = "admin" then

Docmd.openform "form1", acviewnormal

Elseif me.txtlog.value = "admin101" then

Docmd.openform "form2",acviewnormal

End if