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

access i provera dll fajla

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

[ Pregleda: 2437 | Odgovora: 4 ] > FB > Twit

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 - pre 138 meseci
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
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2724



+32 Profil

icon Re: access i provera dll fajla02.01.2008. u 08:25 - pre 138 meseci
A da li si pokušao taj .dll da registruješ i smestiš na lokaciju predviđenu za to.
( Start, Run, regsvr32 /s NazivBiblioteke.dll )
 
Odgovor na temu

Trtko
Koprivnica

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



+8 Profil

icon Re: access i provera dll fajla02.01.2008. u 10:37 - pre 138 meseci
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
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.190.*

Sajt: www.icentar.ba


+2 Profil

icon Re: access i provera dll fajla02.01.2008. u 10:52 - pre 138 meseci
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
 
Odgovor na temu

doti

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



Profil

icon Re: access i provera dll fajla02.01.2008. u 13:44 - pre 138 meseci
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.
 
Odgovor na temu

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

[ Pregleda: 2437 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

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