Prikazi cijelu temu 08.03.2017 10:49
Dado Van mreze
Clan
Registrovan od:27.10.2011
Lokacija:Doboj


Predmet:Re: Zaštita access baze od kopiranja
Jeli to ovaj kod koji sam stavio na on load star up forme koja je kod mene nosi naziv "Form1"
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Load()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim RegBr As String
  5. Dim Broj As String
  6. Set Db = CurrentDb()
  7. Dim MojBroj As String
  8. Set Rs = Db.OpenRecordset("SELECT vrijednost FROM Opcije WHERE ID=1")
  9. RegBr = Rs.Fields(0)
  10. Broj = Korisnicki_Broj(BrojDiska())
  11. MojBroj = Provjera(Broj)
  12.  
  13. If MojBroj = RegBr Then
  14.  MsgBox "Kod je ispravan i odavde se nastavlja app"
  15. Else
  16. MsgBox "Kod neispravan i mozda Quit"
  17. End If
  18. End Sub
Pozdrav!