If Me![FieldWithDefaultValue] <> YourDefaultValue Then
' Use quotes around value if a string literal
If Nz(Me![YourOtherField]) = 0 Then
MsgBox "SomeField is required when SomeOtherField equals a
value other than SomeValue" & vbCRLF & "Press OK to enter a value."
' vbCRLF inserts a new line
Cancel = True
Me![YourOtherField].SetFocus
End If
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.