[es] - Izmene na gotovoj bazi

kameni13
kameni13
posmatrac neba
Pancevo

Član broj: 258141
Poruke: 31
*.adsl-a-8.sezampro.rs.

+10 Profil

^{04.03.2011. u 18:23 - pre 160 meseci}

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

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

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.adsl.net.t-com.hr.

+8 Profil

Re: Izmene na gotovoj bazi

^{04.03.2011. u 19:15 - pre 160 meseci}

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

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Izmene na gotovoj bazi

^{05.03.2011. u 07:34 - pre 160 meseci}

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...

Odgovor na temu