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

access i provera dll fajla

[es] :: Access :: access i provera dll fajla

[ Pregleda: 800 | Odgovora: 4 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

doti

Član broj: 149182
Poruke: 14
*.eunet.yu.



Profil

icon access i provera dll fajla02.01.2008. u 00:59

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
02.01.2008. u 00:59 

Getsbi
Miroljub Zahorjanski
Vršac

Moderator
Član broj: 124608
Poruke: 1580
79.101.187.*



Profil

icon Re: access i provera dll fajla02.01.2008. u 08:25
A da li si pokušao taj .dll da registruješ i smestiš na lokaciju predviđenu za to.
( Start, Run, regsvr32 /s NazivBiblioteke.dll )
I'll know what I want, when I see it.
02.01.2008. u 08:25 

Trtko
Koprivnica

Član broj: 69494
Poruke: 505
*.bilokalnik.hr.



Profil

icon Re: access i provera dll fajla02.01.2008. u 10:37
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
02.01.2008. u 10:37 

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 406
89.146.190.*

Sajt: www.icentar.com


Profil

icon Re: access i provera dll fajla02.01.2008. u 10:52
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
zxz
02.01.2008. u 10:52 

doti

Član broj: 149182
Poruke: 14
*.eunet.yu.



Profil

icon Re: access i provera dll fajla02.01.2008. u 13:44
hvala vam !!
probacu ove sa source codom a onaj prvi da ubacim dll preko run u neki folder to mi ne treba to radi instalacija, pa dodju "strucnjaci" za kompiutere (neznaju ni dvoklik) i izbrisu taj dll i onda se baza sva poremeti (posto ovaj dll dosta toga drzi) probacu pa cu se javiti.
02.01.2008. u 13:44 

[es] :: Access :: access i provera dll fajla

[ Pregleda: 800 | Odgovora: 4 ]

 Postavi temu Odgovori

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