Your technology certification is waiting. Enroll in Cloud Class ®
Public Function fnHasData(TableName as string) as boolean
Dim strSQL as string
Dim rs as DAO.Recordset
strSQL = "SELECT Top1 * FROM [" & TableName & "]"
set rs = currentdb.openrecordset(strsql,, dbfailonerror)
fnHasData = iif(rs.eof, false, true)
OnError Resume next
set rs = nothing
fnHasData = false
Debug.print "fnHasData", err.number, err.description
msgbox err.number & vbcrlf & err.description, , "fnHasData error"
Open in new window
If Isnull(DLOOKUP("FieldName", "TableName")) = False Then
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.