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
من ميخوام يكي از 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