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

---