Skip to main content

AccessTr.neT


Sıfır bölme işlemi #hata veriyor

Sıfır bölme işlemi #hata veriyor

Çözüldü #1
EK'teki denemede sorguda sonuç alanı #Hata yerine sıfır veya boş nasıl yazdırırız.
.rar Deneme.rar (Dosya Boyutu: 24,8 KB | İndirme Sayısı: 3)
Cevapla
#2
1- Önce formun veri kaynağını değiştirip tabloyu seçtim.
2- Metin17 isimli metin kutusunun ver kaynağında sorgudan gelen SONUÇ alanı vardı onu sildim.
3- Bir buton ekledim isim olarak btnHesapla verdim.
4- Buton'un olaylarından Tıklandığında olayını oluşturdum.
5- Tıklandığında olayına aşağıdaki kodu yazdım:

Private Sub btnHesapla_Click()

On Error GoTo HataYakala
 
 Metin17 = ((Me.sayı + Me.sayı1) * 100) / Me.sayı2
 
HataCikis:
 Exit Sub

HataYakala:
 MsgBox "Hata Kodu : " & Err.Number
 
 If Err.Number = 6 Then
   Metin17 = 0
 End If
 
End Sub

On Error Goto HataYakala satırında "Eğer hata olursa HataYakala etiketinin oraya giderek oradan devam et" demek istiyorum. HataYakala: etiketinde If Err.Number = 6 Then ile 6 numaralı hata olursa Metin17 kutusununa 0 (sıfır) değerini verdim.
.rar Sıfıra Bölme Hatası.rar (Dosya Boyutu: 28,4 KB | İndirme Sayısı: 6)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#3
(26/04/2015, 11:03)alpeki99 yazdı: 1- Önce formun veri kaynağını değiştirip tabloyu seçtim.
2- Metin17 isimli metin kutusunun ver kaynağında sorgudan gelen SONUÇ alanı vardı onu sildim.
3- Bir buton ekledim isim olarak btnHesapla verdim.
4- Buton'un olaylarından Tıklandığında olayını oluşturdum.
5- Tıklandığında olayına aşağıdaki kodu yazdım:

Private Sub btnHesapla_Click()

On Error GoTo HataYakala
 
 Metin17 = ((Me.sayı + Me.sayı1) * 100) / Me.sayı2
 
HataCikis:
 Exit Sub

HataYakala:
 MsgBox "Hata Kodu : " & Err.Number
 
 If Err.Number = 6 Then
   Metin17 = 0
 End If
 
End Sub

On Error Goto HataYakala satırında "Eğer hata olursa HataYakala etiketinin oraya giderek oradan devam et" demek istiyorum. HataYakala: etiketinde If Err.Number = 6 Then ile 6 numaralı hata olursa Metin17 kutusununa 0 (sıfır) değerini verdim.
.rar Sıfıra Bölme Hatası.rar (Dosya Boyutu: 20,43 KB | İndirme Sayısı: 3)
Cevapla
#4
Sayın,alpeki99
İzah edemediğimi zannediyorum. Tabloda sıfır işlemli değerlerinde RAPORDA gözükmesini istiyorum. sonuç değerinin #HATA gözükmesi hoş değil. Bir türlü başaramadım. Örnek aradım bulamadım. Raporda SONUÇ değerinin #HATA değil de sıfır olmasını istiyorum
Cevapla
#5
sayın cmahmut,


EK'te;
alternatif olması adına hazırlanmış bir örnek uygulama mevcuttur.inceleyebilirisniz.bilginize.

iyi çalışmalar,
saygılar.
.rar Deneme-ATOZ.rar (Dosya Boyutu: 29,98 KB | İndirme Sayısı: 17)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#6
Teşekkürler... atoz112,
Formülün yerini değiştirerek istenen sonuca ulaştım.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da