Kodu aşağıdaki ile değiştiriniz.

On Error GoTo Liste2_Click_Err



    If Me.Liste2.ListCount = "0" Then

    Exit Sub

    Else

    GeciciGiren = Dsum ("[GIREN]", "[S_GIRIS]", "[ID_URUN]=" & Me.Liste2.Column(6))

    GeciciCikan = Dsum ("[CIKAN]", "[S_CIKIS]", "[ID_URUN]=" & Me.Liste2.Column(6))

    End If

    

    If Me.Liste2.ListCount = 0 Or IsNull(Me.Liste2.Column(0)) Then

    MsgBox ("Herhangi Bir Giriş Kaydı Seçmediniz...Giriş Kaydı Var İse, Düzenlemek İçin Lütfen Kaydın Üzerine Çift Tıklayınız..."), vbDefaultButton1, "ERZURUM OTOMASYON"

    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