division by zero

1 2 3 4 5 6 7 8
08/09/2010, 12:26

accessman

maalesef olmuyor sn alpeki99 çözümü yokmu
siz örnekte denediniz ve olduysa ekleyebilirmsiniz
08/09/2010, 12:34

alpeki99

Nasıl olmuyor test edip gönderdim. Eğer sıfıra bölünürse hata vermeden sizin yazdırmış olduğunuz hata mesajını gösteriyor.
08/09/2010, 12:48

accessman

sizin gönderdiğinizi yazdım ama olmuyor bir bakın
08/09/2010, 12:55

alpeki99

Bende çalışıyor sizin örnek dosyanız
4 / 0 Hesapla tıklıyorum. msgbox "geçersiz sonuc" işletiliyor.
08/09/2010, 13:16

POWER

Sn accesman,
Sn alpeki99,

Aynı örneği bendeki 2003 de çalıştırdığım zaman accessman haklı
Aynı örneği bendeki 2010 da çalıştırdığım zaman alpeki99 haklı

Her ikisininde referanslarına baktım tek farklı referans

2003 Microsoft Access 11.0 Object Library
2010 Microsoft Access 14.0 Object Library

kullanıyor. Sebeb bu olabilir. 14.0 Object Library bunu görüyor fakat 11 görmüyor.

Bu benim düşüncem. Saygılarımla.
08/09/2010, 13:22

alpeki99

İşte access'in insanları deli eden tarafları.


Private Sub Komut0_Click()
On Error GoTo Hata_Kontrol

If Metin1 / Metin3 <> Metin1 \ Metin3 Then
MsgBox "geçersiz sonuç"
Else
Metin6 = Metin1 / Metin3
End If

Hata_Kontrol:
On Error Resume Next

End Sub

Birde bu şekilde deneyin bende problem çıkarmıyor. Sizde de tahminime göre çıkarmaması gerek. 2003 olmadığı için test edemiyorum.
1 2 3 4 5 6 7 8