Combo box not working in subform

[edster]

I have a main form which is linked through a [PackageID] field to a subform. i wast to use the same form for both shipments in and out. the subform has a list of serial numbers add for each [package id].

On the main form i have addresses ect and then a combo box onthe [PackageID] field which brings up all the serial numbers that came in, in that package.

This is perfect for sending a large container back out unopened, however there are times when the database will need to 'pick and choose' serial no.s from several packages. To do this i made the [SerialNo] field on the subform a combo box - looking up all the serial no.s in stock - however when a serial no is selected it doesn't update the other 15 fields in the subform.

Any sugestions? Got a feeling thats its quite an easy thing to do but its beaten me!

Many thanks

Ed

 

[adevera]

Is your serial no inside the subform...

Is there a chance you can attached your db ?

 

[edster]

The combo box updates the serial field but not the rest of the subform fields, ie it doesn't display the whole record.

Any ideas?

This is the standard code:

Private Sub Combo28_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Serial No] = '" & Me![Combo28] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub