<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 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