Raporun açılış olayına inputbox kontrolü koyarak, rapordaki textbox nesnesinin içindeki değeri inputboxtan girilen değere böldürüp, başka bir metin kutusuna nasıl yazdırabiliriz. Tabi değer girilmesi ve sıfır girilmemesi de gerekiyor.
peki 0 yada sayısal olmayan bir değerse ne yapılacak input ekranına geri mi dönülecek yoksa varsayılan bir değer mi atanacak
Private Sub Report_Load()
Dim Message, Title, Default, MyValue
Message = "bir sayı giriniz" ' Set prompt.
Title = "Sayı gir" ' Set title.
Default = "1" ' Set default.
10
MyValue = InputBox(Message, Title, Default)
If Not IsNumeric(MyValue) Or Len(MyValue & "") = 0 Then GoTo 10
Me.txtSon = Me.txtVeri / MyValue
End Sub
Sayın hocam. Raporda sayısal bir alanım var. Rapor açıldığında o sayısal alandaki değeri inputboxdan girilen değere böldürüp rapordaki metin kutusuna yazdırarak çıktı almak. Yani inputbox boşsa exit yapıp ekrana dönebiliriz. Sıfırda girmemeli ve harf yada karakterde.
2. mesajdaki kodu denediniz mi?
Evet Sayın Berduş; Ama hata mesajı verdi.
Dim Message, Title, Default, MyValue
Message = "bir sayı giriniz" ' Set prompt.
Title = "Sayı gir" ' Set title.
Default = "1" ' Set default.
10
MyValue = InputBox(Message, Title, Default)
If Not IsNumeric(MyValue) Or Len(MyValue & "") = 0 Then GoTo 10
Me.txtogrt = Me.txtder / MyValue
https://resimyukle.org/i/xpZOF
https://resimyukle.org/i/xpcsZ
Raporlar-Çıktılar kısmından. Ders yükü raporunu açınca.