AccessTr.neT

Tam Versiyon: Alt Formda Kayıt Yok İse Uyarı Mesajı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Arkadaşlar bir şey daha sormak istiyorum.
alb_is_ekle formunda bulunan malzeme_is_veri alt formu boş ise yazdırma butonuna tıklayınca ürün eklemediniz uyarısı verip yazdrmasın. Bu kodu nasıl yazabilirim.
Merhaba, cevaplanmış soruya eklediğiniz yeni soru, yeni konu olarak açılmıştır.

Lütfen Site Kurallarına uyunuz ve bu konuya Site Kurallarına uygun olarak örnek uygulamanızın son halini ekleyiniz.

(06/07/2009, 23:57)AccessTr.neT yazdı: [ -> ]1 b) Açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız. Farklı sorunuz var ise yeni konu açınız. 
(08/12/2017, 17:09)macirercan yazdı: [ -> ]Arkadaşlar bir şey daha sormak istiyorum.
alb_is_ekle formunda bulunan malzeme_is_veri alt formu boş ise yazdırma butonuna tıklayınca ürün eklemediniz uyarısı verip yazdrmasın. Bu kodu nasıl yazabilirim.
Merhaba,

Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.


If [malzeme_is].[Form].RecordsetClone.RecordCount <> 0 Then

DoCmd.OpenReport "sozlesme", acViewPreview, "", "[album]![alb_no]=[Forms]![alb_is_ekle]![alb_no]", acNormal
DoCmd.PrintOut acPages, , , , 2

Else

MsgBox ("ürün eklemediniz")


End If
(08/12/2017, 18:00)ozanakkaya yazdı: [ -> ]Merhaba,

Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.


If [malzeme_is].[Form].RecordsetClone.RecordCount <> 0 Then

DoCmd.OpenReport "sozlesme", acViewPreview, "", "[album]![alb_no]=[Forms]![alb_is_ekle]![alb_no]", acNormal
DoCmd.PrintOut acPages, , , , 2

Else

MsgBox ("ürün eklemediniz")


End If

Üstadım tamamdır. Oldu. Çok teşekkür ederim.