Private Sub lstResults_DblClick(Cancel As Integer)
On Error GoTo Err_btnSelect_Click
    
    If Not IsNull(Me![lstResults].Column(0)) Then
    Pproizvod = Me.lstResults.Column(0)
    PintFlag = 1
    DoCmd.Close acForm, "frmProizvodPretragaK", acSaveNo
    Forms!frmKKalkulacija!frmKKalkulacijaDetalji.Form.Recordset.MoveLast
    End If
    
ExitHere:
    Exit Sub
    
Err_btnSelect_Click:
    If err.Number = 2450 Then Resume ExitHere
    MsgBox err.Number
    Exit Sub
End Sub