division by zero

tablolara bağlanmayacak
mesela formulun birisi şöyle
metin1 ="(" & a(1) & " " & c(1) & " " & a(2) & ")" & " " & c(2) & " " & "(" & a(3) & " " & c(3) & " " & a(4) & " " & c(4) & ")" & " " & "(" & a(5) & " " & c(5) & " " & a(6) & ")"
burada
a dizisinde 0-9 arası herhangi bir rakam
c dizisinde "+ - * / "işaretlerinden birisi olacak
ama hangisinin nezaman sıfır olacağı
veya hangi aradaki işaretin nezaman "/" olacağı belli değil
yani
bana on errror resume next gibi genel bir çözüm lazım
0 bölen olduğunda işlem bir sonraki satırdan devam etsin

---

referanslar
bunları ilgili yerlere yapıştırırken
izin gerekir
diyerek bilgisayar izin vermiyor
bu masaüstündeki dosyaları laptop daki aynı yerdeki referans dosyaları ile nasıl değiştirebilirim
teşekkürler

---

masaüstündeki office programı ve laptopdaki office programı serileri resimlerini ekledim aradaki fark
on error resume next çalışmasına etki edermi
masaüstünde çalışıyor birinci resim 11.8166.8221
laptopda çalıoşmıyor ikinci resim 11.8321.8324

Sn:accessman
Aşağıdaki kodları denermisiniz?

Private Sub Komut0_Click()

On Error GoTo hata_var

Metin6 = CSng(Metin1) / CSng(Metin3)

On Error GoTo 0

On Error Resume Next

Metin6 = CSng(Metin1) / CSng(Metin3)



   If Err.Number = 11 Then

   MsgBox "Sıfıra bölme yapamazsınız"

Err.Clear

End If

Exit Sub

hata_var:

Select Case Err.Number

Case 11

MsgBox "Sıfıra Bölmeye Çalıştınız"

Metin6 = CSng(Metin1) + CSng(Metin3)

MsgBox "Toplama İşlemi Yapılmıştır."

Case Else

Metin6 = CSng(Metin1) - CSng(Metin3)

End Select

Resume Next

End Sub

teşekkürler oğulcan92
maalesef çözüm olmadı

(08/09/2010, 16:06)benremix yazdı: Arkadaşlar bende 2003 te çalışıyor. referans 11.
2010 'a daha kolay alışabilmek için 2003 ile 2010 menülerini karşılaştıran kaynak bulan siteye eklerse memnun oluruz.
Saygılar...

istediğiniz dosya ektedir.

sn accessman, koda on error resume next yazdığınızda çalıştığı pc var mı?

on error goto hata



If Metin1 / Metin3 <> Metin1 \ Metin3 Then

MsgBox "geçersiz sonuç"

Else

Metin6 = Metin1 / Metin3

End If

hata: resume next

kodunu deneyebilir misiniz?

teşekkürler arkadaşlar
resume next ile masaüstü çalışıyordu
ama kurcalarken oda problem çıkarmaya başladı
on errror resume next başına " ' " konulunca division by zero hatası veriyordu
kaldırınca hata vermiyordu
yani çalışıyordu