+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Kontrolu (/konu-veri-kontrolu.html)
Sayfalar:
1
2
Cvp: Veri Kontrolu - mehmetdemiral - 13/10/2009
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 = -1Cvp: Veri Kontrolu - yakcaglayan - 13/10/2009
sayın mehmetdemiral
teşekkür ederim
kolay gelsin.
Cvp: Veri Kontrolu - Seruz - 13/10/2009
Ş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