AccessTr.neT
Ürün Giriş Miktarı Çıkıştan Az ise Uyarı Versin - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ürün Giriş Miktarı Çıkıştan Az ise Uyarı Versin (/konu-urun-giris-miktari-cikistan-az-ise-uyari-versin.html)

Sayfalar: 1 2

Cvp: Ürün Giriş Miktarı Çıkıştan Az ise Uyarı Versin - ozanakkaya - 23/03/2014

İnceleyiniz.

Cvp: Ürün Giriş Miktarı Çıkıştan Az ise Uyarı Versin - akdemir1 - 23/03/2014

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

Cvp: Ürün Giriş Miktarı Çıkıştan Az ise Uyarı Versin - akdemir1 - 24/03/2014

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

Cvp: Ürün Giriş Miktarı Çıkıştan Az ise Uyarı Versin - ozanakkaya - 24/03/2014

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


Cvp: Ürün Giriş Miktarı Çıkıştan Az ise Uyarı Versin - akdemir1 - 24/03/2014

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

Cvp: Ürün Giriş Miktarı Çıkıştan Az ise Uyarı Versin - akdemir1 - 24/03/2014

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

sayenizde uygulamam adam oldu neredeyse,

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