Mit access vba prüfen ob Tabelle Spalte null-Werte

Ich versuche zu finden, wenn die angegebene Spalte null-Werte oder keine Daten.wenn null-Werte vorhanden sind, in der Spalte gibt dann die MessageBox, um Benutzer sagen Spalte null-Werte enthalten.
Meine vba - 

Dim sqlid As String
Dim rst As Recordset
Dim cdb As Database

Set cdb = CurrentDb
SQLEID = "SELECT * " & _
   "FROM table_1 ;"
'
  Set rst = cdb.OpenRecordset(sqlid , dbOpenSnapshot)
   Do While Not rst.EOF
   If IsNull(rst.Fields("column1").Value) Then
   MsgBox "Has nulls"
   End If

   Loop   

    rst.Close
    Set rst = Nothing
    Set cdb = Nothing

Aber wenn ich gerannt bin, das mein Zugang geht nicht mehr reagiert. Wie kann ich überprüfen, ob die Spalte überhaupt null mit vba

warum nicht SQLEID = "SELECT sum(1) FROM [table_1] WHERE IsNull([column1])" und schauen, was es gibt? Oder noch kürzer: If DCount(1, "table_1", "IsNull([column1])")>0 Then. Auch die Rechtschreibung: SQLEID = "SELECT..." aber cdb.OpenRecordset(sqlid ..) und fügen Sie Option Explicit
Die Abfrage ** "SELECT sum(1) AUS [table_1] WHERE IsNull([column1])"** Sie angegeben haben, ist zurück 68. Sagt Element nicht gefunden in der Auflistung
wenn es gibt 68, das bedeutet, dass Sie 68 Einträge mit null-Werten. Was ist da jetzt das problem?
Ich verwendete If DCount es funktioniert perfekt. Dank

InformationsquelleAutor sam | 2014-05-07

  1. 1

    Hängt es als das recordset wird nicht erhöht, Sie müssen eine MoveNext

    Do While Not rst.EOF
   If IsNull(rst.Fields("column1").Value) Then
   MsgBox "Has nulls"
   End If
   rst.MoveNext
Loop

    Simoco hatte einen besseren Vorschlag für die Durchführung dieser,

    If DCount(1, "table_1", "IsNull([column1])")>0 Then
MsgBox "Has nulls"
End If

    InformationsquelleAutor Jimmy Smith

Schreibe einen Kommentar