Warning Window

[KMEscherich]

Using Access '97

Hi there, am wondering if there is a way to have one window come up with all the controls that are missing an entry instead of having several pop up. In other words, if I am missing data entry in 5 controls, is there a way to have one list of all 5 controls appear in 1 window instead of getting 5 different warning windows popping up?

Thank you VERY MUCH for your assistance.

[ADezii]

Using Access '97

Hi there, am wondering if there is a way to have one window come up with all the controls that are missing an entry instead of having several pop up. In other words, if I am missing data entry in 5 controls, is there a way to have one list of all 5 controls appear in 1 window instead of getting 5 different warning windows popping up?

Thank you VERY MUCH for your assistance.

In the BeforeUpdate() Event Procedure of your Form, you can do something like the following:

Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error Resume Next
 
Dim ctl As Control, strNulls As String, blnCancelUpdate As Boolean
 
blnCancelUpdate = False
 
For Each ctl In Me.Controls
  If ctl.ControlType = acTextBox And ctl.ControlType <> acLabel Then
    If IsNull(ctl.Value) Then
      strNulls = strNulls & ctl.Name & vbCrLf
      blnCancelUpdate = True
    End If
  End If
Next
 
If blnCancelUpdate Then
  MsgBox "Text Box(es) missing values: " & vbCrLf & vbCrLf & strNulls, vbExclamation, "Missing Data"
  Cancel = True
Else
  'do nothing - Update
End If
End Sub