Skip to main content

AccessTr.neT


Veri Kontrolu

Veri Kontrolu

Çözüldü #7
Kodları şu şekilde değiştirirseniz sorunsuz çalışacaktır:
Kod:
Dim a, b, c As String

    a = DCount("*", "TBL_GDATA")
    b = DCount("DONEM", "TBL_GDATA")
    c = DCount("ID", "TBL_GDATA")
    If a > 0 Then Check32 = -1
    If a > 0 And a = b Then Check36 = -1
    If a > 0 And a = c Then Check38 = -1

Kolay gelsin..
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #8
sayın mehmetdemiral
teşekkür ederim
kolay gelsin.
Halay Access hastalığının Bakırköy'de tedavisi varmıdır? Halay
Cevapla
Çözüldü #9
Şu Dim deki string ifadesini de kaldırmak lazım.
Integer olmalı, istenirse de boş bırakılabilir.

Kod:
Dim a, b, c As Integer
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task