Springen naar inhoud


- - - - -

Dcount En Decimale Getallen

DCOUNT

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

#1 CDirk

CDirk

    Starting Developer

  • Leden
  • 8 berichten
    Laatst bezocht 09 mei 2020 10:12

Geplaatst op 02 april 2020 - 20:51

Ik probeer me wat te verdiepen in Acces en loop tegen een probleem aan. Waarschijnlijk zal er wel een eenvoudige oplossing voor zijn, maar het lukt me niet deze op te lossen.

Ik wil namelijk het aantal rijen in een tabel gaan tellen die een bepaalde decimale waarde bevatten.
Om hier niet het gans project te moeten plaatsen heb ik hier enkel regels die een fout veroorzaken.

In de tabel heeft een van mijn lijnen de waarde 27,34 (met komma) Met deze code probeer ik te kijken of deze lijn aanwezig is: (Voorlopig deze waarde in QQ geplaatst om te kunnen testen.

Code:
Dim QQ As Double
	 QQ = 27.34
	 Debug.Print DCount("AWC_Zendnota", "DataAanvragenWaardecreditering", "AWC_Kostprijs = " & QQ)


Dit geeft echter een fout, blijkaar is er iets mis met het punt of komma in de decimale waarde.
Iemand enig idee hoe je hier kan vergelijken met een decimale waarde?

mvg,

#2 Scotty

Scotty

    Starting Developer

  • Leden
  • 3 berichten
    Laatst bezocht 10 jul 2020 11:25

Geplaatst op 10 juli 2020 - 11:06

Hierbij 2 oplossingen

Sub test1()
Dim strSQl As String
Dim Db As DAO.Database
Dim rst As DAO.Recordset
Dim QQ As String
QQ = "27.34"

strSQl = "SELECT COUNT(AWC_Kostprijs) FROM tblDataAanvragenWaardecreditering WHERE AWC_Kostprijs =" & (QQ)
Set Db = CurrentDb
Set rst = Db.OpenRecordset(strSQl)
    
Debug.Print rst(0)
End Sub

-------------------------------

Sub test2()
Dim QQ As String
QQ = "27.34"
Debug.Print DCount("AWC_Zendnota", "tblDataAanvragenWaardecreditering", "AWC_Kostprijs = " & QQ)
    
End Sub

mvg, Marc




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)