Liste kutusu boş olduğu için bu hatayı veriyor. çift tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Private Sub Liste2_DblClick(Cancel As Integer)

On Error GoTo Liste2_Click_Err

    If Me.Liste2.ListCount <> 0 Then

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

    Else

        MsgBox ("Bu ürüne giriş yapılmamış......")

    End If





Liste2_Click_Exit:

    Exit Sub



Liste2_Click_Err:

    MsgBox Error$

    Resume Liste2_Click_Exit

    

End Sub

liste boş ise uyarı çıkar, dolu ise çift tıkladığını açar.