division by zero - Baskı Önizleme

division by zero - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: division by zero (/konu-division-by-zero.html)

Sayfalar: 1 2 3 4 5 6 7 8

Cvp: division by zero - accessman - 11/09/2010

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

Cvp: division by zero - ogulcan92 - 11/09/2010

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

Cvp: division by zero - accessman - 13/09/2010

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

Cvp: division by zero - kadirdursun - 13/09/2010

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

Cvp: division by zero - ozanakkaya - 13/09/2010

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?

Cvp: division by zero - accessman - 13/09/2010

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