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