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.