Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Ucitavanje fajla prilikom pokretanja Baze

[es] :: Access :: Ucitavanje fajla prilikom pokretanja Baze

[ Pregleda: 2880 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

AnoninO
Faruk Pasic
BIH, Sarajevo

Član broj: 78773
Poruke: 66
92.36.163.*



Profil

icon Ucitavanje fajla prilikom pokretanja Baze11.01.2009. u 17:24 - pre 185 meseci
Ovako stoji,
prilikom pokretanja baze da se nista ne otvara ukoliko se ne nalazi primjera druga baza,
PRIMJER:
Baza Glavna
Baza Podatci
Kako ispitati da li postoji baza podatci.
Ako ne postoji aplikacija prikazuje poruku Ne postoji baza
i zatvara se..
A ako postoji onda ide normalono!

Unaprijed Hvala!
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2828



+45 Profil

icon Re: Ucitavanje fajla prilikom pokretanja Baze11.01.2009. u 21:16 - pre 185 meseci
Ja bi prvo napravio funkciju koja je uslužnog tipa i može da se upotrebi više puta, da ispituje postojanje raznih fajlova.
Code:

Function FileExists(strFile As String) As Boolean
      Dim i As Integer
 
       On Error Resume Next
       i = Len(Dir(strFile))
       FileExists = (Not Err And i > 0)

End Function


Nju bih smestio u neki globalni VBA modul.
Potom bi na On Load prve forme koja se učitava prilikom startovanja programa postavio sledeći kod:
Code:

Dim BazaPodaci            As String
BazaPodaci = "C:\NekiDirektorijum\Podaci.mdb"    ' apsolutna putanja

If Not FileExists(BazaPodaci) Then
        MsgBox ("Izvorni fajl ne postoji")
        DoCmd.Quit
End If

 
Odgovor na temu

AnoninO
Faruk Pasic
BIH, Sarajevo

Član broj: 78773
Poruke: 66
92.36.161.*



Profil

icon Re: Ucitavanje fajla prilikom pokretanja Baze11.01.2009. u 22:43 - pre 185 meseci
Hvala to je to...
Pozdrav!
 
Odgovor na temu

[es] :: Access :: Ucitavanje fajla prilikom pokretanja Baze

[ Pregleda: 2880 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.