Looping

[Neo]

I have a sub form which shows data of orders.

I want to have a button on the main form that will loop through the records in the sub form and check that there are no null values.

can some one explainm how to do this

thanks

 

[Tim K.]

You can try this.

Dim ctl As Control
For Each ctl In Me.<YouSubFormControlNameHere>.Form.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If IsNull(ctl.Name) Then
MsgBox " ....."
ctl.SetFocus
Exit Sub
End If
End If
Next ctl

 

[Neo]

it almost works but still only check the first line

 

[Tim K.]

Sorry. Try this again.

Private Sub Command1_Click()
Dim ctl As Control
For Each ctl In Me.<YouSubFormControlNameHere>.Form.Controls
    If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
        If IsNull(ctl) Then
            MsgBox "No null allowed"
            Me.<YouSubFormControlNameHere>.SetFocus
            ctl.SetFocus
            Exit Sub
        End If
    End If
Next ctl
End Sub