Skip to main content

AccessTr.neT


İnputbox Değerine Göre Rapordaki Veriyi Böldürmek

İnputbox Değerine Göre Rapordaki Veriyi Böldürmek

Çözüldü #1
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.
Cevapla
#2
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
Cevapla
#3
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.
Cevapla
#4
2. mesajdaki kodu denediniz mi?
Cevapla
#5
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
Cevapla
#6
Raporlar-Çıktılar kısmından. Ders yükü raporunu açınca.
.rar ders yükü hesabı.rar (Dosya Boyutu: 604,26 KB | İndirme Sayısı: 2)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da