Predmet:Re: Zaštita access baze od kopiranja
Dodao sam iza MsgBox "Kod neispravan aplikacija će se zatvoriti"
DoCmd.Quit . Sad izlazi iz app. kad je kod neispravan.
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 = 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 aplikacija e se zatvoriti"
DoCmd.Quit
End If
End Sub
Pozdrav!