AccessTr.neT
Alt Formda Kayıt Yok İse Uyarı Mesajı - 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ığı: Alt Formda Kayıt Yok İse Uyarı Mesajı (/konu-alt-formda-kayit-yok-ise-uyari-mesaji.html)



Alt Formda Kayıt Yok İse Uyarı Mesajı - macirercan - 08/12/2017

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.


Cvp: Alt Formda Kayıt Yok İse Uyarı Mesajı - ozanakkaya - 08/12/2017

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. 



Cvp: Alt Formda Kayıt Yok İse Uyarı Mesajı - macirercan - 08/12/2017

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



Cvp: Alt Formda Kayıt Yok İse Uyarı Mesajı - ozanakkaya - 08/12/2017

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



Cvp: Alt Formda Kayıt Yok İse Uyarı Mesajı - macirercan - 08/12/2017

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