Predmet:Re: Zastita aplikacije

---

Ipak nisam uspio promjenio sam kod bio ali pogresno
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
'Ako je uredu onda podizes startnu formu ovdje
Else
DoCmd.OpenForm "RegisterProgram" ovo sam mislio da se mjenja na ime moje forme
End If
End Function

tad mi otvaralo moju formu ali nije registraciju

---