hoeveel records

[JEPEDEWE]

via:

Me!pingping.RowSource = "SELECT Betalingen.DATUM, Betalingen.REFERENTIE, Betalingen.Nog_te_betalen, Betalingen.BETAALD FROM Betalingen WHERE (((Betalingen.BETAALD) = False) And ((Betalingen.KODE) = [Forms]![patlijst]![KODE]))ORDER BY Betalingen.DATUM;"

worden een aantal records getoond die voldoen aan de selectie

Via welk commando kan ik te weten komen HOEVEEL records er zullen getoond worden?

Bedankt

 

[Tha Devil]

Over het algemeen doe je dat in een database met een COUNT-functie, het wordt dan iets in de trend van
[sql]
SELECT
COUNT(Betalingen.DATUM)
FROM
Betalingen
WHERE
(((Betalingen.BETAALD) = False) And ((Betalingen.KODE) = [Forms]![patlijst]![KODE]))[/sql]

 

[JEPEDEWE]

Ik dacht dat het eventueel zou lukken zonder een recordset te creeeren

Ik schreef het volgende:

Dim db As Database
Dim TB As Recordset
Dim SQL As String
Set db = CurrentDb()
SQL = "SELECT Count(Betalingen.ID) AS AantalVanID, Betalingen.BETAALD, Betalingen.KODE FROM Betalingen GROUP BY Betalingen.BETAALD, Betalingen.KODE HAVING Betalingen.BETAALD = False AND Betalingen.KODE ='" & [Forms]![patlijst]![KODE] & "';"
Set TB = db.OpenRecordset(SQL)
If TB.AantalVanID > 0 Then
End If

Bij TB.AantalVanID krijg ik een foutmelding die zegt:

"Kan de methode of het gegevenslid niet vinden"
AantalVanID staat toch in de SQL-lijn

Snap het niet

 

[JEPEDEWE]

OK... gedeeltelijk de oplossing gevonden
Ik veranderde
TB.AantalVanID
in
TB!AantalVanID
en het werkt
maar, alleen als er effectief records aan het criterium voldoen...
Zijn er geen, dan krijg ik een foutmelding
Hoe bekijk ik best of er records aan mijn voorwaarden voldoen VOOR ik de telling doe??

 

[OctaFish]

Jouw code groepeert op 2 velden, dus zal nooit één waarde retourneren voor het aantal. En ik dacht dat je dat wilde weten...

 

[JEPEDEWE]

Hoe los ik dit probleem dan op?

 

[Harry46]

>Me!pingping.RowSource = "SELECT....

Dat suggereert dat 'pingping' een listbox of een combobox is.
In dat geval krijg je met Me!pingping.ListCount het aantal records.

 

[JEPEDEWE]

OK Harry46... dit geeft me inderdaad het correcte cijfer, maar...
Nu wil ik op basis van dit cijfer het uitzicht van een aantal velden veranderen...deze reageren echter niet op de gestelde voorwaarde
Snap niet waarom... jij misschien?

Me!pingping.RowSource = "SELECT Betalingen.DATUM, Betalingen.REFERENTIE, Betalingen.Nog_te_betalen, Betalingen.BETAALD FROM Betalingen WHERE (((Betalingen.BETAALD) = False) And ((Betalingen.KODE) = [Forms]![patlijst]![KODE]))ORDER BY Betalingen.DATUM;"
a = Me!pingping.ListCount
If a <> 0 Then
Me.pingping.BackColor = RGB(255, 255, 255)
Me.Bijschrift95.BackColor = RGB(255, 255, 255)
Else
Me.pingping.BackColor = RGB(236, 236, 236)
Me.Bijschrift95.BackColor = RGB(236, 236, 236)
End If

 

[OctaFish]

Bij mij werkt de code. Heb je misschien de optie <Kolomkoppen> aan staan?

 

[JEPEDEWE]

Oei, die optie kien ik niet.... waar vind ik die?
JP

 

[OctaFish]

In de Eigenschappen van je keuzelijst. Standaard staat die optie overigens uit. Staat hij wèl aan, dan telt de Listcount hem mee, en haal je dus nooit de waarde 0.

 

[JEPEDEWE]

Ik veranderde een "kleurlijn" in

Me.pingping.BackColor = 255

en het werkt...
raar

JP