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