Registracija

Ucitavanje fajla prilikom pokretanja Baze

Odgovori Nova tema

2 odgovora
3.775 pregleda

Ucitavanje fajla prilikom pokretanja Baze 11.01.2009. u 18:24 · pre 216 meseci #1

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!

Re: Ucitavanje fajla prilikom pokretanja Baze 11.01.2009. u 22:16 · pre 216 meseci #2

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

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Re: Ucitavanje fajla prilikom pokretanja Baze 11.01.2009. u 23:43 · pre 216 meseci #3

Hvala to je to...
Pozdrav!

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme