Skip to main content

AccessTr.neT


Ürün Giriş Miktarı Çıkıştan Az ise Uyarı Versin

Ürün Giriş Miktarı Çıkıştan Az ise Uyarı Versin

Çözüldü #7
İnceleyiniz.
.rar akdmr_sld.rar (Dosya Boyutu: 55,72 KB | İndirme Sayısı: 19)
Cevapla
Çözüldü #8
Ç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...
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #9
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
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #10
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
Cevapla
Çözüldü #11
Dediğiniz gibi değiştim hocam, teşekkürler.
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #12
İlginizden dolayı çok teşekkür ederim hocam,

sayenizde uygulamam adam oldu neredeyse,

Erzurumdan sonsuz saygı ve selamlarımı gönderiyorum emek sarfeden herkese...
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da