Refresh continuous form when combo box update

[sophannaly]

Hi,

I create form which default type as continuous form. I have put combo box in that form. When user select on dropdown list from combo box, I would like to show only record that meet condition in form.

Here is what I have tried, but I couldn't get what I expect

Private Sub cboRevision_AfterUpdate()
    Dim strNewRecord As String
    strNewRecord = "SELECT * FROM history_request_expenditure " _
        & " WHERE revision = '" _
        & Me!cmboRevision.Value & "'"
        Me.txtHidden.SetFocus
        Me.RecordSource = strNewRecord
        Me.Refresh
End Sub

Please give me an idea on how to solve this problem.

Best regards,
Sophanna

[Seth Schrock]

What is the RowSource for your combo box?

[sophannaly]

This is RowSource for my combo box:

SELECT DISTINCT (history_request_expenditure.revision) AS Expr1 FROM history_request_expenditure ORDER BY history_request_expenditure.revision;

[Seth Schrock]

Is the field Revision a Text data type?

You might try replacing line 8 in your OP with Me.Requery.

[sophannaly]

Hi,

I already tried with Me.Requery but it doesn't work.

Revision is double data type. I could see it change on the form(only one row change with the revision that I chose from dropdown list). And it still shows other records with other revision.

In my table, there are alot of record that has the same revision value and I want to show all that records in my form when I choose Revision from dropdown.

[Seth Schrock]

If Revision is a number data type (which Double is a number), then you need to remove the single quotes that you have in your string around the value of the combo box (the ones at the end of lines 4 and 5). Single quotes are only used for text, hash marks for dates, and nothing around numbers. See what that does.

[sophannaly]

Hi,
I already followed what you told me, but it still change only the first record and shows other revision too.

Private Sub cboRevision_AfterUpdate()
    Dim strNewRecord As String
    strNewRecord = "SELECT * FROM history_request_expenditure " _
        & " WHERE revision = " _
        & Me!cboRevision.Value
        Me.txtHidden.SetFocus
        Me.RecordSource = strNewRecord
        Me.Requery
End Sub

Could anybody tell me how to solve this such as do I need to put loop or something else?