Private Function missingData() AS Integer
Dim ctl as Control
missingData = False
For Each ctl in Me.Controls
if right(ctl.name,3) = "_mn" Then
If len(ctl.Text & vbNullString) = 0 Then
missingData = True
ctl.setFocus
MsgBox "Control '" & ctl.Name & "' should contain a value", vbCritical + vbOkOnly
Exit Function
End If
End If
Next ctl
End Function
Private Sub Form_BeforeUpdate(Cancel As Integer)
Cancel = missingData()
End Sub