Hi Paul,
That's where I put it... Looks like this:
Private Sub Command8_Click()
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acCheckBox
If Nz(ctl.Value, vbNullString) = vbNullString Then...