تعديل كود الدالة الشرطية

إذا كان لديك أسماء كثيرة , فضعها في جدول خاص بها وليكن اسمه مثلاً: Users

ضع فيه اسم المستخدمين في حقل باسم مثلاً: UserName

ليصبح الكود المطلوب هكذا:

Dim Xx 
 Xx =  DLookup("UserName","Users","UserName='" & [RE1] & "'")
 If IsNull(Xx) Then
 Exit Sub
 Else
 DoCmd.OpenForm "1"
 End If

جرب هذا الكود

Select Case [RE1]
Case Is = "عبدالله", "خالد", "أمجد", "سعود"
DoCmd.OpenForm "1"
Case Else

End Select