26/04/2015, 09:46
26/04/2015, 11:03
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:
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.
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 SubOn 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.
26/04/2015, 17:05
(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.
26/04/2015, 17:15
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
İ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
26/04/2015, 17:21
sayın cmahmut,
EK'te;
alternatif olması adına hazırlanmış bir örnek uygulama mevcuttur.inceleyebilirisniz.bilginize.
iyi çalışmalar,
saygılar.
EK'te;
alternatif olması adına hazırlanmış bir örnek uygulama mevcuttur.inceleyebilirisniz.bilginize.
iyi çalışmalar,
saygılar.
27/04/2015, 02:11
Teşekkürler... atoz112,
Formülün yerini değiştirerek istenen sonuca ulaştım.
Formülün yerini değiştirerek istenen sonuca ulaştım.