Private Sub Liste2_DblClick(Cancel As Integer)
On Error GoTo Liste2_Click_Err

    If Me.Liste2.ListCount = 0 Or IsNull(Me.Liste2.Column(0)) Then
                MsgBox ("Bu ürüne giriş yapılmamış......")

    Else
                DoCmd.OpenForm "F_GIRIS_KAYITLARI_DUZENLE", acNormal, "", "[T_GIRIS]![ID_GIRIS]=" & [Liste2].Column(0), acEdit, acNormal

    End If


Liste2_Click_Exit:
    Exit Sub

Liste2_Click_Err:
    MsgBox Error$
    Resume Liste2_Click_Exit
    
End Sub