[ AnoninO @ 11.01.2009. 17:24 ] @
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!
[ Getsbi @ 11.01.2009. 21:16 ] @
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
[ AnoninO @ 11.01.2009. 22:43 ] @
Hvala to je to...
Pozdrav!