What I have is working almost. It is as follows:
Public Function NoBrand()
If DCount("Brand", "UserBrandsTBL", "Include = " & True & "") = 0 Then
MsgBox "You must select a brand before proceeding.", vbExclamation, "Select Brand"
Me.UserBrandsFRM.SetFocus
Exit Function
End If...