Prikazi cijelu temu 08.03.2017 13:30
Dado Van mreze
Clan
Registrovan od:27.10.2011
Lokacija:Doboj


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):
  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 aplikacija e se zatvoriti"
  17. DoCmd.Quit
  18. End If
  19. End Sub
Pozdrav!