iyi günler
hayırlı arifeler
eklediğim örnekte iki metin kutusuna bölme işlemi uygulanıyor
bölen "0" ise division by zero uyarısı veriyor
Private Sub Komut0_Click()
On Error GoTo hata_var
'If Metin1 / Metin3 = "division by zero" ise bir sonraki adıma geç
If Metin1 / Metin3 <> Metin1 \ Metin3 Then
MsgBox "geçersiz sonuç"
Else
Metin6 = Metin1 / Metin3
End If
hata_var:
If Err.Number = 11 Then MsgBox "Sıfıra bölme yapamazsınız"
End Sub
If Err.Number = 11 Then MsgB