İki seçenekli Mesage box

iscinar

Access Cevaplanmış Soruları

3160

14/09/2011, 16:36 #5

Onursal Üye

Coskun0559

Bul

Onursal Üye

Adı Soyadı: Co.... ÇA....

Yaşı: 39

Konum: Tekirdağ

Ofis Versiyonu: -

Son Oturumu: 20/02/2024,18:22

Yorumları: 1.221

Konuları: 99

Kayıt Tarihi: 02/11/2008

Teşekkür Puanı: 519

(14/09/2011, 16:26)BlackEagle yazdı: KAYDET düğmesinin tıklandığında olayına

Select Case MsgBox("Kayıt işlemi tamamlanmıştır. Tutanak yazdırmak istiyormusunuz?", vbYesNo Or vbExclamation Or vbDefaultButton1, "DİKKAT")



 Case vbYes

'Bu alana açılmasınıı istediğiniz raporu belirtin.

 Case vbNo

'Bu kısıma boşaltılmasını istediğiniz alanları belirtin.

'Örneğin 

'Me.CezaYeri=""

End Select

bu güzel koda alternatif olarak;

dim deger as string

deger=msgbox(("Kayıt işlemi tamamlanmıştır. Tutanak yazdırmak istiyormusunuz?",36, "DİKKAT")

if deger=6 then

docmd.openreport,,"raporadı"

else

me.cezayeri.value=""

end if

şeklindede kullanabilirsin

GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !

Cevapla