Bosna i Hercegovina



#106 24.03.2017-17:12
blingaro Offline
Clan
Registrovan/a od: 10.07.2015-20:30
Komentari: 6


Subject: Re: Zaštita access baze od kopiranja
Citat od freeman:
Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena.

Zaboravi ha napomenem da i ovd ide modul

Public Function Ima(Putanja As String) As Boolean
Ima = (Dir$(Putanja, vbDirectory) <> "")
End Function
↑  ↓

#107 24.03.2017-17:13
blingaro Offline
Clan
Registrovan/a od: 10.07.2015-20:30
Komentari: 6


Subject: Re: Zaštita access baze od kopiranja
Citat od freeman:
Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena.

Ako stignem preko vikenda okačiću primer. Ako ne, onda od nedelje.
↑  ↓

#108 03.04.2017-18:09
blingaro Offline
Clan
Registrovan/a od: 10.07.2015-20:30
Komentari: 6


Subject: Re: Zaštita access baze od kopiranja
Citat od freeman:
Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena.

Dodao bih svoje rešenje u *.rar formatu, ali mi javlja poruku "Već postoji!". Kako da okačim primer, zna li neko?

Prilozi:
Informacije o fajlu: rar  wewewe.rar
Preuzimanja: 42
Veličina: 188.94 KB

↑  ↓

#109 03.04.2017-18:12
blingaro Offline
Clan
Registrovan/a od: 10.07.2015-20:30
Komentari: 6


Subject: Re: Zaštita access baze od kopiranja
Uspeo sam da ga okačim u prethodnom postu, ali je malo nelogično da me sajt upozorava da fajl već postoji. U svakom slučaju u nastavku je komentar na prethnodno okačen fajl pod nazivom "wewewe" (kakvog li imena?!)

U prilogu je jednostavna zaštita koja se sastoji iz provere da li na zadatoj putanji “C:\Users\...” postoji zadati folder. Kako se menja radna stanica tako je potrebno promeniti u tabeli radnici naziv krajnjeg foldera na datoj putanji. Nije ovo najsrećnije rešenje. Na VBA staviti password ili zapakovati u *.mdb (*.accde).

A može i da se “veže” za neki fajl na nekoj putanji na disku. Na primer ja sam smislio neki prazan fajl “waccess.dll” (nema veze sa *.dll fajlom, ali lepo zvuči) i skembao ga na datoj putanji. Na Event procedure "On open" neke forme staviti sledeći kod:

Dim Ima As String
Ima = Dir$("D:\Pera\MojiFajlovi\waccess.dll")
If Len(Ima) > 0 Then
Else
MsgBox "Neovlašćena kopija aplikacije ! Pozovite autora 011/123-456-78 !"
DoCmd.Quit
End If
End Sub
↑  ↓

#110 06.04.2017-18:33
freeman Offline
Clan
Registrovan/a od: 29.10.2014-09:37
Komentari: 79


Subject: Re: Zaštita access baze od kopiranja
Hvala blingaro na tvojem vremenu koje si odvojio za ovo rješenje.Probat ću napraviti neku kombinaciju između tvojeg i Gjoreskog rješenja ako zapnem vaša pomoć će mi dobro doći.Pozdrav
↑  ↓

Stranice (8): 1, 2, 3, 4, 5, 6, 7, 8


All times are GMT +01:00. Current time: 12.12.2017-22:49.