(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.