Po meni,malo je nezgodno držati bazu kod klijeta u .mdb obliku.A ako je u mde onda nikakva promena ne može da se radi nad njom.E sad ako baš insistitraš da bude u mdb obliku onda ovaj kod mislim da će da ti završi posao
Code:
Private Sub Command10_Click()
On Error GoTo Err_Command10_Click
Dim var As Variant
var = InputBox("ukucaj sifru", "administratorski panel", 0)
If var = 1234 Then 'ako je sifra ispravna radi ono što treba,otvara neku formu u designe viewu
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Form2"
DoCmd.OpenForm stDocName, acDesign, , stLinkCriteria
DoCmd.ShowToolbar "moj meni", acToolbarYes 'ili omogućava taj tvoj toolbar za ulazak u designe
Else 'ako nije- sledi poruka i izlaz iz petlje
MsgBox "nemate prava pristupu", vbCritical, "STOP.Pogresna sifra"
End If
Exit_Command10_Click:
Exit Sub
Err_Command10_Click:
MsgBox Err.Description
Resume Exit_Command10_Click
End Sub
Samo da dodam da taj toolbar onemogućiš prilikom otvaranja forme,nešto ovako na OnOpen forme:
Code:
DoCmd.ShowToolbar "moj meni", acToolbarNo
.
[Ovu poruku je menjao SLOJ.1973 dana 05.03.2011. u 11:54 GMT+1]
Jednog dana...