how to control tab ?

[alex_raju]

hi,

i have a main form (mf) and a subform (sf)
how i can send tab key to main form cmdbutton from subform, while subform text control(productid) value "r" at the same time i am using below code in afterupdate option

Private Sub ProductID_AfterUpdate()
On Error GoTo Err_ProductID_AfterUpdate

Dim strfilter As String

strfilter = "productID=" & Me!ProductID

Me!UnitPrice = DLookup("UnitPrice", "Products", strfilter)

Me.ProductID.SetFocus

Exit_ProductID_Afterupdate:
Exit Sub

Err_ProductID_AfterUpdate:
If Me.ProductID.Value <> DLookup("ProductId", "Products") Then
MsgBox "wrong no"


SendKeys "{home}"
Undo
Else
End If
End Sub

thank you
alex

[apr pillai]

Add the following in the Code:

Me.Parent.cmdbutton.SetFocus

Private Sub ProductID_AfterUpdate()
On Error GoTo Err_ProductID_AfterUpdate

Dim strfilter As String

strfilter = "productID=" & Me!ProductID

Me!UnitPrice = DLookup("UnitPrice", "Products", strfilter)

Me.ProductID.SetFocus

Me.Parent.cmdbutton.SetFocus

Exit_ProductID_Afterupdate:
Exit Sub

Err_ProductID_AfterUpdate:
If Me.ProductID.Value <> DLookup("ProductId", "Products") Then
MsgBox "wrong no"
SendKeys "{home}"
Undo
Else
End If
End Sub