Skip to main content

AccessTr.neT


division by zero

division by zero

Çözüldü #37
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
.rar referanslar.rar (Dosya Boyutu: 4,21 MB | İndirme Sayısı: 3)
@benbendedeilem
Son Düzenleme: 11/09/2010, 12:03, Düzenleyen: accessman.
Cevapla
Çözüldü #38
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
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #39
teşekkürler oğulcan92
maalesef çözüm olmadı
@benbendedeilem
Cevapla
Çözüldü #40
(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.
.rar office 2003 komutlarının 2007 karşılığı.rar (Dosya Boyutu: 569,07 KB | İndirme Sayısı: 9)
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #41
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?
Cevapla
Çözüldü #42
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
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task