ورود

View Full Version : مبتدی: access level



mona_poof_63
شنبه 24 مهر 1389, 11:37 صبح
سلام
من ميخوام يكي از user هام به 5 تا فرم دسترسي داشته باشه من از commande زير براي 5 تا فرم استفاده كردم.ولي موقعي كه كاربر با user o pass خودش وارد مي شه 5 تا فرم با هم باز مي شن.من كمك ميخواستم براي اينكه ببينم دستوري هست كه از لحاظ ظاهري بهتر 5 تا فرم را نشان بده و كاربر هر كدام را خواست باز كنه؟
سوالم در مورد accesslevel= user هست.
ژيشاژيش مرسي از كمكتون.


If AccessLevel = "Admin" Then
DoCmd.Close acForm, "frmLogon", acSaveNo
DoCmd.OpenForm "AdminfrmSplash_Screen"


Else



If AccessLevel = "Userb" Then
DoCmd.Close acForm, "frmLogon", acSaveNo
DoCmd.OpenForm "Reports"

Else
DoCmd.Close acForm, "frmLogon", acSaveNo
DoCmd.OpenForm "EventSave"
DoCmd.OpenForm "MiddlemanRejistering"
DoCmd.OpenForm "ProjectSubmitting"
DoCmd.OpenForm "Reports"
DoCmd.OpenForm "CustomerRejistering"
End If



End If