Prikazi cijelu temu 09.03.2017 10:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Zaštita access baze od kopiranja
Opet ti je polje u tabeli opcije gdje treba biti broj kljuca prazno.
Vidim da ce to biti problem pa mozes napisati kod i ovako.
Ja u to polje uvijek nesto napisem pa ako neko cacka onda znam.
evo ti kod gdje nece stvarati gresku.
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.  
  9. Set rs = db.OpenRecordset("SELECT vrijednost FROM Opcije WHERE ID=1")
  10. RegBr = Format$(rs.Fields(0))
  11. Broj = Korisnicki_Broj(BrojDiska())
  12. MojBroj = Provjera(Broj)
  13.  
  14. If MojBroj = RegBr Then
  15.  MsgBox "Kod je ispravan i odavde se nastavlja app"
  16. Else
  17. MsgBox "Kod neispravan i mozda Quit"
  18. End If
  19. End Sub


Kad stignem napravim ovaj ulaz pa postavim
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.