Alt Formda Kayıt Yok İse Uyarı Mesajı

08/12/2017, 17:09

macirercan

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.
08/12/2017, 17:34

ozanakkaya

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:45

macirercan

(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.
08/12/2017, 18:00

ozanakkaya

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:07

macirercan

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