Izmene na gotovoj bazi

[ kameni13 @ 04.03.2011. 18:23 ] @

Evo ovako stoje stvari. Buduci da u bazi postoji uradjen sopstveni meni za istu i da u njoj ima opcija za izmene u strukturi baze ili neke prepravke (Designe View) dali postoji mogucnost da se prilikom izbora te opcije izvrsi potraznja sifre za ulazak u Designe View i na taj nacin pristupis promeni sadrzaja baze ili dali postoji mogucnost da se preko obicnog dugmeta isprogramira da pri kliku na njega odes u Designe View a da ti takodje trazi sifru koju admin ili autor baze unapred postavi.Naime ideja je ovakva imate gotovu bazu u slucaju da dodje do nekih problema ili da je potrebno nesto dodati u bazu niko nije u mogucnosti da vrsi bilo kakve promene osim samog autora baze. Jednostavno ima kvar zove se autor da bi resio. Unapred hvala

[ Trtko @ 04.03.2011. 19:15 ] @

Pa ako odvojis bazu na dva dijela, backend (ona u kojoj su samo tablice) i na nju stavis lozinku koju ti samo znas , onda je mozes samo ti otvoriti, da sad ne ulazimo u to da ima programa koji razbijaju sifre.

A u frontend ( ili izvršnoj bazi ) bi ti bile sve forme, liste, meniji ... itd

[ SLOJ.1973 @ 05.03.2011. 07:34 ] @

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]}