SetFocus of a subform control

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a control named "Quantity' in a subform. I want to use OnExit property to perform data validation. If the test fails, I want to set the focus back to Quantity. But it does not work. Here is the code. Appreciate anyone can give me advise

Private Sub Quantity_Exit(Cancel As Integer

Dim intReturn As Strin
If [Forms]![frmOrder]![frmsubOrderDetails].Form.Quantity < 1 The
Debug.Print "888
Debug.Print [Forms]![frmOrder]![frmsubOrderDetails].Form.Quantit
intReturn = MsgBox("Quantity must not be Zero or less",
vbCritical, "ERP System"
Debug.Print "999
[Forms]![frmOrder]![frmsubOrderDetails].Form.Quantity.SetFocu
Debug.Print [Forms]![frmOrder]![frmsubOrderDetails].Form!Quantity.SetFocu
Els
Exit Su
End I

End Sub
 
Try this instead
[Forms]![frmOrder]![frmsubOrderDetails].Controls
("Quantity").SetFocus

-----Original Message-----
I have a control named "Quantity' in a subform. I want
Click to expand...
to use OnExit property to perform data validation. If the
test fails, I want to set the focus back to Quantity.
But it does not work. Here is the code. Appreciate
anyone can give me advise.
Private Sub Quantity_Exit(Cancel As Integer)

Dim intReturn As String
If [Forms]![frmOrder]!
Click to expand...
[frmsubOrderDetails].Form.Quantity < 1 Then
Debug.Print "888"
Debug.Print [Forms]![frmOrder]! [frmsubOrderDetails].Form.Quantity
intReturn = MsgBox("Quantity must not be Zero or less", _
vbCritical, "ERP System")
Debug.Print "999"
[Forms]![frmOrder]! [frmsubOrderDetails].Form.Quantity.SetFocus
Debug.Print [Forms]![frmOrder]! [frmsubOrderDetails].Form!Quantity.SetFocus
Else
Exit Sub
End If

End Sub
.
Click to expand...
 
Thanks ..... I got the problem solved. I read some of other similar threads and got the idea. I use Cancel=True.
 
Back
Top