AccessTr.neT

İ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...