hi all i want to find all and pause and set focused on empty control box on access form
the control box named q1-q2-------q60
some control have no value i
iwant when i press enter jump to empty control and skip others
this is code but no way
***********************
On Error Resume Next
Dim r, i As Integer
Dim strActiveCtl As String
Dim Ctlnm As String
Me.Controls("q" & x).SetFocus
For Each ctl In Forms!correc.Controls
Me.Controls("q" & x).SetFocus
Ctlnm = ctl.name
If InStr(Ctlnm, "q") Then
Select Case ctl.Value
Case Is = Null
ctl.Value = "f"
x = x + 1
End Select
End If
Next
**********************
the control box named q1-q2-------q60
some control have no value i
iwant when i press enter jump to empty control and skip others
this is code but no way
***********************
On Error Resume Next
Dim r, i As Integer
Dim strActiveCtl As String
Dim Ctlnm As String
Me.Controls("q" & x).SetFocus
For Each ctl In Forms!correc.Controls
Me.Controls("q" & x).SetFocus
Ctlnm = ctl.name
If InStr(Ctlnm, "q") Then
Select Case ctl.Value
Case Is = Null
ctl.Value = "f"
x = x + 1
End Select
End If
Next
**********************