[ACCESSXP & VBA] Select count probleem

[Verwijderd]

Hoi,

ik heb onderstaande code:

code:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT COUNT(" & Form![Storage_time] & ") FROM Pull_Window WHERE '" & Form![Storage_time] & "' = yes", dbOpenDynaset)
Form![Time_points] = rs(0)

De tabel:

code:

Time_ point 12  24  36  48  60  EPRO    EPRO/HCTZ
0       Yes Yes Yes Yes Yes Yes Yes
3       Yes No  No  No  No  Yes Yes
6       Yes Yes No  No  No  Yes Yes
9       No  No  No  No  No  Yes Yes
12      Yes Yes Yes Yes Yes Yes Yes
18      No  No  No  No  No  Yes Yes
24      No  Yes Yes Yes Yes Yes Yes
36      No  No  Yes Yes Yes Yes Yes

Form![Storage_time] is een numeriek veld.
Op de 1 of andere manier komt er altijd 8 uit deze SQL-statement. Weet iemand wat hier fout aan is??? (komt ook 8 uit als je b.v. 1 invult)

Alvast bedankt,

Swaab

[gorgi_19]

Ik denk dat je toch ook de resultaat query er bij moet zetten. Nu is het nogal lastig een oorzaak aanwijzen zonder welke debuginformatie dan ook.

Er gaat iets fout in je query, dat is alles wat ik met zekerheid kan zeggen. Voor de rest wordt het een gokwerkje, wat imho zinloos is.

[Verwijderd]

Dat is juist het punt, heb geen debuginfo. Geeft geen enekele fout resulteert alleen steeds 8.

[gorgi_19]

Verwijderd schreef op 07 mei 2003 @ 09:07:
Dat is juist het punt, heb geen debuginfo. Geeft geen enekele fout resulteert alleen steeds 8.

* gorgi_19 wil de fout ook niet hebben, gorgi wil het resultaatsql-statement zien

[Verwijderd]

wat bedoel je daar mee: resultaatsql-statement ?????

[gorgi_19]

code:

("SELECT COUNT(" & Form![Storage_time] & ") FROM Pull_Window WHERE '" & Form![Storage_time] & "' = yes",

Wat bovenstaande code wordt, zonder de Form!-zooi er in.
Kortom, wat uitgevoerd zou moeten worden.

[Verwijderd]

ok,

SELECT COUNT("12") FROM Pull_Window WHERE '12' = yes.

(kan je dat ook uit vba halen?)

[gorgi_19]

Verwijderd schreef op 07 mei 2003 @ 09:14:
ok,

SELECT COUNT("12") FROM Pull_Window WHERE '12' = yes.

(kan je dat ook uit vba halen?)

Heb je deze zelf gemaakt of heb je dat de vba laten uitspugen? (* gorgi_19 heeft de laatste nodig; anders zie je niet wat er fout gaat).

[ Voor 16% gewijzigd door gorgi_19 op 07-05-2003 09:17 ]

[Verwijderd]

Hoe kan ik dei VBA laten uitspugen??

[Verwijderd]

ok,
na wat kloten en hulp is het uiteindelijk gelukt met onderstaande code:

code:

Dim mySQL As String
mySQL = "SELECT COUNT([" & Form![Storage_time] & "]) FROM Pull_Window " _
             & "WHERE [" & Form![Storage_time] & "] = yes"
Set rs = CurrentDb.OpenRecordset(mySQL, dbOpenDynaset)

I.i.g. bedankt