Izmene na gotovoj bazi

Izmene na gotovoj bazi 04.03.2011. u 19:23 · pre 190 meseci #1

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

Potpis

Seks je kao skok sa motokom, skaces dok imas motku.....

Re: Izmene na gotovoj bazi 04.03.2011. u 20:15 · pre 190 meseci #2

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

Re: Izmene na gotovoj bazi 05.03.2011. u 08:34 · pre 190 meseci #3

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

.

Potpis

Jednog dana...

1

Forum kao aplikacija na telefonu

Srodne teme