strsql = "SELECT tblObservaties.AutoID, tblObservaties.Datum, tblObservaties.C_OntwVelden, [02_Ontwikkelthemas].Ontwikkelthema, [03_Generieke doelen].[Generiek doel], " _
& "[04_ObservatieItems].Omschrijving, tblObservaties.Alg, tblObservaties.C_GrF, [04_ObservatieItems].C_Gen_Doel, tblObservaties.C_Observatie " _
& "FROM tblSoortenOntwikkeling INNER JOIN ((((tblObservaties INNER JOIN 01_Ontwikkelvelden ON tblObservaties.C_OntwVelden = [01_Ontwikkelvelden].C_OntwVelden) " _
& "INNER JOIN 02_Ontwikkelthemas ON (tblObservaties.[C_OntwThema's] = [02_Ontwikkelthemas].[C_OntwThema's]) AND ([01_Ontwikkelvelden].C_OntwVelden = [02_Ontwikkelthemas].C_OntwVelden)) " _
& "INNER JOIN [03_Generieke doelen] ON ([01_Ontwikkelvelden].C_OntwVelden = [03_Generieke doelen].C_OntwVelden) " _
& "AND ([02_Ontwikkelthemas].[C_OntwThema's] = [03_Generieke doelen].[C_OntwThema's])) INNER JOIN 04_ObservatieItems ON (tblObservaties.C_Observatie = [04_ObservatieItems].C_Observatie) " _
& "AND ([01_Ontwikkelvelden].C_OntwVelden = [04_ObservatieItems].C_OntwVelden) AND ([02_Ontwikkelthemas].[C_OntwThema's] = [04_ObservatieItems].[C_OntwThema's]) " _
& "AND ([03_Generieke doelen].C_Gen_Doel = [04_ObservatieItems].C_Gen_Doel)) ON tblSoortenOntwikkeling.S_Ontw = [01_Ontwikkelvelden].S_Ontw " _
& "WHERE (((tblObservaties.Verantwoordelijke) = '" & GlbInitialen & "') " _
& "And ((tblObservaties.KleuterID) = '" & GlbKleuterID & "') " _
& "And ((tblObservaties.Schooljaar) = '" & GlbSchooljaarKort & "') " _
& "And ((tblObservaties.Graad) = '" & GlbGraad & "')) " _
& "ORDER BY [01_Ontwikkelvelden].S_Ontw_Sort, tblObservaties.NumDatum DESC , tblObservaties.C_Gen_Doel;"
'CopyTextToClipboard (strsql)
LstObservaties.RowSource = strsql
strsql = Empty
Op het formulier zijn de getoonde gegevens in de listbox niet correct gesorteerd na uitvoeren van het hierboven vermelde script.
Bekijk ik de gegevensbron, dus de query, dan staan ze wel juist.
Ik heb dan de mogelijkheid om in de listbox te klikken op een lijn waardoor de afzonderlijke gegevens terug in de respectieve velden gezet worden van het formulier om eventueel aanpassingen te doen.
Na deze actie laat ik de listbox opnieuw vullen met dezelfde procedure en dan komen ze wel juist te staan.
Wat kan hiervan de reden zijn?
Op de bijgevoegde bestande zie je duidelijk het verschil
Graag uw advies.