AccessTr.neT

Tam Versiyon: division by zero
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7 8
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
Sayfalar: 1 2 3 4 5 6 7 8