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):Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Dim RegBr As String
Dim Broj As String
Set db = CurrentDb()
Dim MojBroj As String
Set rs = db.OpenRecordset("SELECT vrijednost FROM Opcije WHERE ID=1")
RegBr = Format$(rs.Fields(0))
Broj = Korisnicki_Broj(BrojDiska())
MojBroj = Provjera(Broj)
If MojBroj = RegBr Then
MsgBox "Kod je ispravan i odavde se nastavlja app"
Else
MsgBox "Kod neispravan i mozda Quit"
End If
End Sub
Kad stignem napravim ovaj ulaz pa postavim
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.