If then Statement with Set Focus to a SubForm

Ken just helped me work through setting focus to a control on a subform. I'd
like to add an if/then statement to go to a new record if upon LostFocus a
control = 0 and if it doesn't equal 0 go to the subform to complete data
entry there. It seems this should work something like below

Iif([ScrappedPcs] = 0, (DoCmd.GoToRecord , , acnewrec),
(Me.SubForm.SetFocus) (Me.Subform!Control.SetFocus))

Am I even close?

The conditional IF statement IIF() is used to return a value, not execute
code blocks. You need to use a regular IF..THEN format to handle execution
of code.

If ScrappedPcs = 0 Then
DoCmd.GoToRecord, , acNewRec
Else
Me.Subform.Control.SetFocus
End If

"neenmarie" wrote in message
...
Ken just helped me work through setting focus to a control on a subform.
I'd
like to add an if/then statement to go to a new record if upon LostFocus a
control = 0 and if it doesn't equal 0 go to the subform to complete data
entry there. It seems this should work something like below

Iif([ScrappedPcs] = 0, (DoCmd.GoToRecord , , acnewrec),
(Me.SubForm.SetFocus) (Me.Subform!Control.SetFocus))

Am I even close?

Thank you for your help. I had to add one other line of code to set focus to
the subform first and then a line to set focus to the control on the subform.


If [ScrappedPcs] = 0 Then
[Operator].SetFocus
DoCmd.GoToRecord , , acNewRec

Else
Me.ScrapForm.SetFocus
Me.ScrapTransForm!PartNumber.SetFocus

Now it works perfecly thanks again.

Janine

"Paul Johnson" wrote:

The conditional IF statement IIF() is used to return a value, not execute
code blocks. You need to use a regular IF..THEN format to handle execution
of code.

If ScrappedPcs = 0 Then
DoCmd.GoToRecord, , acNewRec
Else
Me.Subform.Control.SetFocus
End If

"neenmarie" wrote in message
...
Ken just helped me work through setting focus to a control on a subform.
I'd
like to add an if/then statement to go to a new record if upon LostFocus a
control = 0 and if it doesn't equal 0 go to the subform to complete data
entry there. It seems this should work something like below

Iif([ScrappedPcs] = 0, (DoCmd.GoToRecord , , acnewrec),
(Me.SubForm.SetFocus) (Me.Subform!Control.SetFocus))

Am I even close?