AccessTr.neT

Sayfalar: 1 2

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

sayın mehmetdemiral
teşekkür ederim
kolay gelsin.

Ş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

Sayfalar: 1 2

mehmetdemiral

yakcaglayan

Seruz