Select a record in ComboBox to be appear in Subform

[quinbe]

Hi all,
I have a form and a subform having 1-M relationship by Hearder_ID. This what I'm trying to do... I want to type the HeaderName (not Header_ID) in a CboBox to get all detail information which is appear in the subform
The code below I got from faq702-4933, but I cannot figure out what I did wrong.
Anyone please help

Private Sub Combo6_AfterUpdate()
Dim Header_ID As Integer

Header_ID = Me.Combo6.Column(0)

With Me.[Table2Subform].Form
    .RecordsetClone.FindFirst "Header_ID = " & Header_ID
    If Not .RecordsetClone.NoMatch Then
        .Bookmark = .RecordsetClone.Bookmark
    End If
End With

End Sub
[code]

 

[quinbe]

For more information

The error I had is________Run-time error '94':
Invalid use of Null

 

[PHV]

You may try this:
Dim Header_ID As Integer
If Trim(Me!Combo6.Column(0) & "") = "" Then Exit Sub
Header_ID = Me!Combo6.Column(0)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[quinbe]

Thanks PHV,
I tried the code you post, no matter what HearderName I tried, it still give me deatail of the first record.
The combo box's control source I have set = HeaderName,
Row Source Type = Table/Query
Is there any mistake here???

 

[PHV]

What is the SQL code of Combo6.RowSource ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[quinbe]

PHV,
I have a blank there. Is it what I had missed making the code doesn't work???