Predmet:Re: Zastita aplikacije
Function main()
Dim Db As Database
Dim Rs As Recordset
Dim Kljuc As String
Dim Provjera As Boolean
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("RegisterProgram")
Kljuc = Rs!Reg
Rs.Close
Provjera = ProvjeraKljuca(Kljuc)
If Provjera = True Then
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Form1" 'naziv moje forme
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
DoCmd.OpenForm "RegisterProgram"
End If
End Function
Sa ovim dobijam dobar rezultat ako sam gdje pogrijsio ne zamjerite nov samm
Srdačan pozdrav