Merhaba;
Bu şekilde dener misiniz?

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