İnceleyiniz.

Çok teşekkür ederim hocam
elinize kolunuza sağlık
hakkınızı helal edin sizi çok yordum,

Konu çözülmüştür,

Saygılarımla...

Hocam tekrar rahatsız ediyorum kusuruma bakmayın,

Liste2 için boş alana tıklandığında uyarı vermesini sağlamıştım, o kodların başına iki satır kod eklemişsiniz,
Şimdi liste2 de boş alana tıkladığımda eksik işleç hatası veriyor

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

satırına atıyor

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

Dediğiniz gibi değiştim hocam, teşekkürler.

İlginizden dolayı çok teşekkür ederim hocam,

sayenizde uygulamam adam oldu neredeyse,

Erzurumdan sonsuz saygı ve selamlarımı gönderiyorum emek sarfeden herkese...