AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Veri Kontrolu

1 2
13/10/2009, 00:18

mehmetdemiral

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..
13/10/2009, 00:40

yakcaglayan

sayın mehmetdemiral
teşekkür ederim
kolay gelsin.
13/10/2009, 09:07

Seruz

Ş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
1 2