access i provera dll fajla

Pozdrav svim forumasima

i sretna nova 2008

Imam jednu bazu koja koristi jedan DLL i ako taj dll nije u folderu gde se nalazi i baza baza ne moze da radi normalno. Sad bi je zamolio nekog da postavi neki kod koji bi postavio on open (Autoexec) forma da odma izvrsi proveru tog dll ako je on u folderu de i baza da nastavi sa radom a ako nije da se baza ugasi.
Hvala unapred

A da li si pokušao taj .dll da registruješ i smestiš na lokaciju predviđenu za to.
( Start, Run, regsvr32 /s NazivBiblioteke.dll )

Potpis

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

Ovako bi mogao

SADISKA = Application.CurrentProject.Path + "\putanja.txt"
dput = Dir(SADISKA)


If Len(dput) < 3 Then
MsgBox "NE POSTOJI " + SADISKA + " MORATE JE KREIRATI"
DoCmd.Quit
End If

Function PutReference(Imedll As String)
Dim Db As Database
Dim Ref As Reference
Dim PutanjaB As String
Dim PutanjaDLL As String


Set Db = CurrentDb


For Each Ref In References
If Imedll = Ref.Name Then
PutanjaB = Db.Name
PutanjaDLL = Ref.FullPath
If PutanjaB <> PutanjaDLL Then
MsgBox "Putanja nije ista ili nesto drugo"
'docmd.Quit
End If
End If
Next Ref


End Function
Function M_Path(PutanjaO) As String

Dim Db As Database, Putanja As String

On Error Resume Next
Set Db = DBEngine(0)(0)
Putanja = PutanjaO
Do Until Right$(Putanja, 1) = "\"
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop

Db_Path = Putanja
End Function

Potpis

zxz