Springen naar inhoud


- - - - -

Data Niet Juist Gesorteerd In Een Listbox


  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 zzoemie

zzoemie

    Starting Developer

  • Leden
  • 1 berichten
    Laatst bezocht 22 jan 2021 12:05
  • LocatieBelgië

Geplaatst op 16 januari 2021 - 19:50

Ik gebruik de volgende code om een listbox te vullen:

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.

Bijgevoegde Bestanden



#2 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 818 berichten
    Laatst bezocht 11 sep 2021 19:20
  • LocatieMechelen (BE)

Geplaatst op 21 januari 2021 - 21:56

Zet je toevallig niet ergens een sort= als je de edit doet?

Ow wacht in je bovenstaande query doe je op je de datum een DESC maar de rest float een beetje




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)