Check for empty table 2

[dontay]

Hi All,
What is a good way to check a table to see if it's empty, then return a value that I can use to exit a procedure?

Any help would help me keep my job, and impress the powers that be, or not.

Don

 

[TheAceMan1]

How are ya dontay . . . .

Have a look at the [purple]DCount Function.[/purple]

See Ya! . . . . . .

 

[PHV]

A starting point :
strTable = "myTable"
MsgBox strTable & " has " & CurrentDB.TableDefs(strTable).RecordCount & " record(s)"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[dontay]

Thanks all,
Dcount worked perfit:

Dim IntCountRec As Integer
IntCountRec = DCount("[FieldName]", "tblName")
If IntCountRec < 1 Then
Exit Sub
Else
Run procedure
End If

You don't know how much this site has lifted me up.

Thank you all!!!!!!

 

[TheAceMan1]

Great dontay . . . . .

Shortening your code, you would have:

[blue]   If  DCount("[FieldName]", "tblName") Then
       [green]'Run procedure[/green]
   EndIf[/blue]

See Ya! . . . . . .