Private Sub sifra_KeyDown(KeyCode As Integer, Shift As Integer)
   
Dim bm As Variant
bm = Me.Bookmark

   Dim rst As Recordset, strSQL As String
   Dim msg, Msg1, Style, Title, Title1, Titlep, Response, MyString
   Me.KeyPreview = True
   Select Case KeyCode
'          Case vbKeyReturn
'               If Me.sifra <> "" And Me.RecordsetClone.RecordCount > 0 Then
'                  strPreth = Me.sifra
'                  DoCmd.GoToRecord , , acNewRec
'               End If
          Case vbKeyF5
               PintFlag = 0
                DoCmd.OpenForm "frmPartnerPretraga", acNormal, , , , acDialog
               If PintFlag = 1 Then
                  Me!sifra = Psifra
                  Call sifra_AfterUpdate
               End If
End Select
End Sub