Display all the lookup values found

[boboivan]

Hi!

I have this code that finds, counts and warns me about the existing of null values in a query field:

Private Sub Form_Load()
Dim seepp As String
Dim countpp As String

countpp = DCount("QueryField1", "QueryName", "IsNull([QueryField2])")
    
If countpp <> 0 Then
seepp = DLookup("QueryField1", "QueryName", "IsNull([QueryField2])")
Me.txbWarning.Value = "You have " & countpp & " null values" & "for " & seepp
End If
End Sub

If there is more than one null values found, I'd like to see in my warning texbox all the null values found in QueryField1 (which are displayed as id number, not text, as I'd like - another issue, but not important), like 1, 4, 5, 7, ... or textFormat1, textFormat2, ...
I'm guessing that seepp value marked with red color should be improved, but I have no idea how.

Thx!

[ranman256]

Why not just open the query of values that are null, and show the user?

countpp = DCount("QueryField1", "QueryName", "[QueryField2] is null")
if countpp>0 then docmd.openquery "qsNullVals"

[boboivan]

Thank you ranman for your input!
This is the easiest way to do it.