changing content of listbox

[Jean-Paul]

I have a form wit a listbox: Naam_gemeente

The default recordsource is:
SELECT [Adressen metaal].Gemeente, [Adressen metaal].land FROM [Adressen
metaal] GROUP BY [Adressen metaal].Gemeente, [Adressen metaal].land
HAVING ((([Adressen metaal].land)=[forms]![hoofdmenu]![tekst40])) ORDER
BY [Adressen metaal].Gemeente;

This is perfect

Now I created a pushbutton to change the recordsource upon klicking:

Private Sub Bedrijfknop_Click()
Me!Naam_gemeente.RecordSource = "SELECT [Adressen metaal].Naam,
[Adressen metaal].land FROM [Adressen metaal]GROUP BY [Adressen
metaal].Naam, [Adressen metaal].land HAVING ((([Adressen metaal].land) =
[Forms]![hoofdmenu]![Tekst40]))ORDER BY [Adressen metaal].Naam;"
Forms!bedrijven.Refresh
End Sub

This returns an errormessage saying
the method object doesn't support this object

What am I doing wrong?

Thanks

 

[Brendan Reynolds]

I have a form wit a listbox: Naam_gemeente

The default recordsource is:
SELECT [Adressen metaal].Gemeente, [Adressen metaal].land FROM [Adressen
metaal] GROUP BY [Adressen metaal].Gemeente, [Adressen metaal].land HAVING
((([Adressen metaal].land)=[forms]![hoofdmenu]![tekst40])) ORDER BY
[Adressen metaal].Gemeente;

This is perfect

Now I created a pushbutton to change the recordsource upon klicking:

Private Sub Bedrijfknop_Click()
Me!Naam_gemeente.RecordSource = "SELECT [Adressen metaal].Naam,
[Adressen metaal].land FROM [Adressen metaal]GROUP BY [Adressen
metaal].Naam, [Adressen metaal].land HAVING ((([Adressen metaal].land) =
[Forms]![hoofdmenu]![Tekst40]))ORDER BY [Adressen metaal].Naam;"
Forms!bedrijven.Refresh
End Sub

This returns an errormessage saying
the method object doesn't support this object

What am I doing wrong?

Thanks

A listbox doesn't have a RecordSource property. Try using the RowSource
property instead.