<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Private Sub Registracija_Click()
Dim Akod
Dim Kbroj As String, KKod As String

Akod = Me.AutorskiKod
Kbroj = Me.KorisnickiBroj
If Format$(Akod) <> "" Then
KKod = Provjera(Kbroj)
    If KKod = Akod Then
    Dim db As Database
    Dim rs As Recordset
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM Opcije WHERE ID=1")
    rs.Edit