Private Sub Command6_Click()

Dim Db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim UserID As String
Dim Password As String

If IsNull(Text13) Or Text13 = "" Then
    MsgBox "Samo korisnici sa liste imaju ovlaštenje za ulazak.", vbOKOnly, "OBAVJEŠTENJE"
    Me.Text13.SetFocus
    Exit Sub
End If
    
If IsNull(Text15) Or Text15 = "" Then
    MsgBox "Morate unijeti šifru.", vbOKOnly, "OBAVJEŠTENJE"
    Me.Text15.SetFocus
    Exit Sub
End If

If iBrojiPokusaje > 1 Then
    MsgBox "Unijeli ste pogrešnu šifru nekoliko puta. Program se sada zatvara jer vi niste ovlašteni za pristup!", vbCritical, "Neta
an unos više puta"
    DoCmd.Quit
End If

UserID = Me.Text13.Value 'vrijednost koju unosi korisnik
Password = Me.Text15.Value 'vrijednost koju unosi korisnik
strUser = UserID
strSQL = " SELECT * FROM tblKorisnika " & _
        " WHERE tblKorisnika.Username = '" & UserID & "'" & _
        " AND tblKorisnika.Password = '" & Password & "'"

Set Db = CurrentDb()
'Set rst = db.OpenRecordset(strSQL)

'If rst.RecordCount = 1 Then 'znaci ako postoji trazeni korisnik

If Me.Text15.Value = DLookup("Password", "tblKorisnika", "[username]='" & Me.Text13.Value & "'") Then
    Me.Visible = True 'False  'Sakriva formu frmLogin, NE ZATVARA JE!
    
    If Grupa = "Administrator" Then 'Proverava da li je pristupio Admin
        DoCmd.OpenForm "frmOsnovnaAdmin" 'Ako jeste otvara Admin formu
    End If

    If Grupa = "Arhivar" Then
       DoCmd.OpenForm "frmOsnovnaArhivar"
    Else
        
    If Grupa = "Operater" Then
       DoCmd.OpenForm "frmOsnovna"
    End If
    'DoCmd.OpenForm "frmOsnovna" 'Otvara formu frmOsnovna.
    End If
      
    Dim db1 As DAO.Database
    Dim rst1 As DAO.Recordset
    Set db1 = CurrentDb()
    Set rst1 = db1.OpenRecordset("tbllogovanja", dbOpenDynaset)
    rst1.AddNew
    rst1!tblKorisnikaID = Me.Text13.Value
    rst1!DatumPristupa = Date
    rst1!VrijemePristupa = Time()
    rst1.Update
    rst1.Close
Me.Text15 = cls

Else
    iBrojiPokusaje = iBrojiPokusaje + 1 'dodaj vrijednost 1 za svaki pogresan pokusaj
    MsgBox "Šifra je netacno unešena!", vbCritical, "Pogrešan unos"
    Me.Visible = True
    Me.Text15.SetFocus
    Exit Sub
End If
    DoCmd.Close "LoginForma"
End Sub