Private Sub sifra_AfterUpdate()
    Me.KeyPreview = True
    Me.naziv = DLookup("naziv", "tblPartner", "sifra = " & Me.sifra)

    ' Vratimo fokus na prethodni bookmark (ako postoji)
    On Error Resume Next
    If Not IsEmpty(bm) Then
        Me.Bookmark = bm
    End If
    On Error GoTo 0

    ' Idi na sljedece polje
    Me.datum.SetFocus
End Sub