Private Sub proizvod_KeyDown(KeyCode As Integer, Shift As Integer)
Me.KeyPreview = True
Select Case KeyCode
Case vbKeyF4
  Me.KeyPreview = True
  DoCmd.SetWarnings False
DoCmd.RunSQL "SELECT tblProizvodi.proizvod, tblProizvodi.ime, tblProizvodi.nabavna, tblProizvodi.cijena, tblProizvodi.znak, Len([proizvod]) AS [Int], tblProizvodi.jedmj INTO tblProizvodInt FROM tblProizvodi WHERE (((tblProizvodi.znak)='K') AND ((Len([proizvod]))=4)) ORDER BY tblProizvodi.ime WITH OWNERACCESS OPTION;"
DoCmd.RunSQL "SELECT Count(tblProizvodInt.proizvod) AS CountOfproizvod, Max(tblProizvodInt.proizvod) AS MaxOfproizvod INTO tblProizvodMax FROM tblProizvodInt;"
DoCmd.OpenForm "frmZadnjiInterni", acNormal, , , acFormReadOnly
             ' SendKeys "{ESC}", True
                      KeyCode = 0
''PintFlag = 0
'DoCmd.OpenForm "frmZadnjiInterni", acNormal, , , , acDialog
'   SendKeys "{ESC}{ESC}"
''If PintFlag = 1 Then
'  ' Me.proizvod = Pproizvod
'                   '  Call proizvod_AfterUpdate
'                       ' DoCmd.RunCommand acCmdSaveRecord
'                ' Me.proizvod.SetFocus
''End If
Case vbKeyF5
PintFlag = 0
DoCmd.OpenForm "frmProizvodPretragaK", acNormal, , , , acDialog
If PintFlag = 1 Then
   
   'DoCmd.GoToRecord , , acNewRec
   'Me.proizvod = Pproizvod
                     'Call proizvod_AfterUpdate
    Dim SQL As String
    Dim proizvodk As proizvodi
    SQL = "SELECT ime,jedmj,nabavna,cijena,tarifa,znak from tblProizvodi " _
            & "WHERE proizvod='" & Pproizvod & "'"
    Set rs_prooizvod = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)
    If Not rs_prooizvod.EOF Then
    proizvodk.ime = rs_prooizvod!ime
    proizvodk.jedmj = rs_prooizvod!jedmj
    proizvodk.nabavna = SqlDecimal(rs_prooizvod!nabavna)
    proizvodk.cijena = SqlDecimal(rs_prooizvod!cijena)
    proizvodk.tarifa = rs_prooizvod!tarifa
    proizvodk.znak = rs_prooizvod!znak
Else
    MsgBox "Nema podataka za proizvod: " & Pproizvod
End If

rs_prooizvod.Close
    proizvodk.proizvod = Pproizvod
    proizvodk.datum = Date
    proizvodk.vrsta = Parent!vrsta
    proizvodk.sifra = Parent!sifra
    proizvodk.broj = Parent!broj
    proizvodk.pdv = SqlDecimal(DLookup("pdv", "tbltarife", "tarifa = '" & Me.tarifa & "'"))
    SQL = "INSERT INTO tblDetalji (broj,proizvod,Ime, jedmj, nabavna,cijena," _
       & "tarifa,znak,pdv,datum,vrsta,kulaz,rabat,zavisni,sifra)" _
       & "VALUES (" & _
      proizvodk.broj & ", " & _
      "'" & Pproizvod & "', " & _
      "'" & proizvodk.ime & "', " & _
      "'" & proizvodk.jedmj & "', " & _
      proizvodk.nabavna & ", " & _
      proizvodk.cijena & ", " & _
      "'" & proizvodk.tarifa & "', " & _
      "'" & proizvodk.znak & "', " & _
      Nz(proizvodk.pdv, 0) & ", " & _
      "#" & Format(proizvodk.datum, "yyyy-mm-dd") & "#, " & _
      "'" & proizvodk.vrsta & "', " & _
      "" & 0# & ", " & _
      "" & 0# & ", " & _
      "" & 0# & ", " & _
      sifra & ")"
'Forms![F]![T] = SQL
CurrentDb.Execute SQL, dbFailOnError
Me.Refresh
KeyCode = 0
Me.RecordSource = Me.RecordSource
If Forms!frmKKalkulacija!frmKKalkulacijaDetalji.Form.Recordset.RecordCount > 1 Then
Forms!frmKKalkulacija!frmKKalkulacijaDetalji.Form.Recordset.MoveLast
End If
Me.kulaz.SetFocus
End If
          Case vbKeyF6
    DoCmd.OpenForm "frmStanjePr", acNormal, , , , acDialog, Me.proizvod
                       Sendkeys "{Esc}", True
                      KeyCode = 0
                      End Select
End Sub