Sub form Help

  • Thread starter Thread starter Bill Davis
  • Start date Start date
B

Bill Davis

I have a subform that is in Dataview on my Main form what
i would like to do is when i click on the [product_id] in
the subform is have that product id and infomation be the
current record [product_id] on my main form. Can someone
help we witht he code for this?
Thank you
Bill
 
Bill Davis said:
I have a subform that is in Dataview on my Main form what
i would like to do is when i click on the [product_id] in
the subform is have that product id and infomation be the
current record [product_id] on my main form. Can someone
help we witht he code for this?
Thank you
Bill
Click to expand...

So your subform is essentially a datasheet-view list of the same set of
records that are viewed on the main form in single-form view? Try code
like this (warning: air code) for the Click event of the subform's
product_id control:

'----- start of code -----
Private Sub product_id_Click()

If Me.NewRecord Then
Me.Parent!product_id.SetFocus
RunCommand acCmdRecordsGoToNew
Else
Me.Parent.Recordset.FindFirst _
"product_id=" & Me.product_id
End If

End Sub
'----- end of code -----

That assumes that the product_id field is numeric, not text. If it's
text -- but won't contain a single-quote (') character -- use this
condition for the call to FindFirst:

"product_id='" & Me.product_id & "'"
 
Dirk,
THANK YOU THANK YOU VERY MUCH!!
Bill
-----Original Message-----
I have a subform that is in Dataview on my Main form what
i would like to do is when i click on the [product_id] in
the subform is have that product id and infomation be the
current record [product_id] on my main form. Can someone
help we witht he code for this?
Thank you
Bill
Click to expand...

So your subform is essentially a datasheet-view list of the same set of
records that are viewed on the main form in single-form view? Try code
like this (warning: air code) for the Click event of the subform's
product_id control:

'----- start of code -----
Private Sub product_id_Click()

If Me.NewRecord Then
Me.Parent!product_id.SetFocus
RunCommand acCmdRecordsGoToNew
Else
Me.Parent.Recordset.FindFirst _
"product_id=" & Me.product_id
End If

End Sub
'----- end of code -----

That assumes that the product_id field is numeric, not text. If it's
text -- but won't contain a single-quote (') character -- use this
condition for the call to FindFirst:

"product_id='" & Me.product_id & "'"

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)


.
Click to expand...
 
Back
Top