رسالة تحذيرية عند تشغيل البرنامج

[سامي الضالعي]

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

اريد كود من مفاده انه اذا كان رقم المستخدم 19 او 23 افتح النموذج كذا

وهذا الكود الذي استخدمته لكنه لم يضبط معي لانه اي مستخدم يدخل يفتح النموذج المحدد

    If ([Forms]![namber_hsap_tmp]![nambr_mostkdam] = 19 Or 23) Then
DoCmd.OpenForm "Switchboard1" ', , , stLinkCriteria
   Else
  End If

شكرا لكم

 

[sandanet]

اعتقد انه يجب كتابة العبارة بهذا الشكل

If [Forms]![namber_hsap_tmp]![nambr_mostkdam] = 19 Or [Forms]![namber_hsap_tmp]![nambr_mostkdam] = 23 then

 

[محمدنجار]

مشاركة مع اخي اوس

:: يمكتك استخدام Select Case للتفريق بين صلاحيات المستخدمين وكما يلي

ٍSelect Case Users
    Case 0:
      Me.User_No=19 Or Me.User_No=23
      docmd.Openform,"Formname"
    Case 1:
      Me.User_No=4
      docmd.Openform,"Formname"
    Case 2:
      Me.User_No=12 Or me.User_No=7
      docmd.Openform,"Formname"
End Case

بالتوفيق

[ابوخليل]

مشاركة مع  اخوتي :

خذ البيانات من الجدول  وليس من النموذج /// واستخدم دالة Dlookup

والافضل من هذا كله  ان الشرط يكون حسب متغير  وليس رقما ، لان المستخدم  قد  يحتاج لتغييره  لدواعي امنية ونحو ذلك