Keuzelijst laten vullen

[BasHD]

Ik heb een formulier [Leden] Daarin zit een knop de een ander formulier opent [DuurzaamheidMprForm]. Ik heb een tabel CRV_Duurzaamheid.

In het formulier [DuurzaamheidMprForm] heb ik een keuzevak met kieslijst gemaakt.
Naam is cboDatum

Als ik een keuze wil maken zou ik willen dan er op basis van een vakje uit het eerste formulier gezocht wordt naar dezelfde waarde in de tabel CRV_Duurzaamheid en dat dan de bij behorende datums in de keuzelijst worden weergegeven.

Ik heb ook een query gemaakt die ik kan koppelen aan de keuzelijst met invoervak. Dat werkt wel:

Dit is mijn code:

SQL code :

SELECT CRV_Duurzaamheid.[Einde per]
FROM CRV_Duurzaamheid
WHERE (((CRV_Duurzaamheid.UBNNummer)=[Forms]![Leden]![UbnNummer]));

maar ik wil dit ook in VBA hebben direct aan het keuzelijst. Moet kunnen dacht ik.

Private Sub cboDatum_Enter()

Dim strSQL As String

Stop
strSQL = "SELECT [EindePer]"
strSQL = strSQL & "FROM [CRV_Duurzaamheid]"
strSQL = strSQL & "WHERE [UBNNummer] = '" & [Forms]![Leden]![UbnNummer] & "'"
strSQL = strSQL & "ORDER BY [EindePer];"

'stSQL = "Select[Einde per] From [CRV_Duurzaamheid] WHERE [UBNNummer] = '" & [Forms]![Leden]![UbnNummer] & "' ORDER BY [EindePer];"


Forms![DuurzaamheidMprForm]!cboDatum.RowSource = strSQL
Forms![DuurzaamheidMprForm]!cboDatum.Requery

End Sub

De eigenschappen van zowel de keuzelijst als het vakje in de brontabel heb ik op korte datum notatie staan. Toch geeft access als fout dat gegevenstypen niet overeenkomen in criteriumexpressie.


Wat doe ik fout?

Ik werk in Office 2010

Zie voor scherm jpeg-tje

Gr BB

 

[OctaFish]

Kijk eens naar het verschil tussen de twee codes die je geeft:

WHERE (((CRV_Duurzaamheid.UBNNummer)=[Forms]![Leden]![UbnNummer]));
WHERE [UBNNummer] = '" & [Forms]![Leden]![UbnNummer] & "'"

Eén van de twee is fout... En je geeft zelf al aan dat de eerste variant werkt. Dus waarom zet je er extra quootjes bij in de VBA code?

 

[BasHD]

Kijk wat "" kunnen doen. Deze code werkt wel!

Dank u OctaFish.

Ik had keuze gemaakt voor quootjes omdat deze in een ander stukje VBA wel werkte. Wat ik inderdaad niet gezien had was dat het daar ging om een zoekwaarde tekst en hier om een nummerieke zoekwaarde.

Gr
BB

Private Sub cboDatum_Enter()

Stop

Dim strSQL As String

strSQL = "SELECT [EindePer]"
strSQL = strSQL & "FROM [CRV_Duurzaamheid]"
strSQL = strSQL & "WHERE [UBNNummer] = [Forms]![Leden]![UbnNummer]"
strSQL = strSQL & "ORDER BY [EindePer];"

Forms![DuurzaamheidMprForm]!cboDatum.RowSource = strSQL
Forms![DuurzaamheidMprForm]!cboDatum.Requery

End Sub