Data berekenen in Recordsets

[bartprins999]

Hallo,

Ik probeer een aantal data te berekenen, doe dit sinds kort met Datediff en werkt prima, maar probeer nu een datumveld vanuit een recordset aan te spreken en het lijkt erop dat dit niet of anders werkt. Heb al een tijdje op sites gezocht, maar kan er eigenlijk niets over terugvinden. Wel een aantal mensen die met een query uit hun probleem konden komen, maar dat is in dit geval geen optie volgens mij.

Ik heb een stukje code bijgesloten, misschien dat iemand me verder kan helpen?

Het vervolg van de code is dat er nog gekeken wordt in de recordset of er voldaan wordt een een aantal criteria en vervolgens wordt er met Word een merge gemaakt. Tevens worden er dan een aantal velden bijgewerkt.

Dim rst As DAO.Recordset
Set rst = Forms!Klanteninvoer.RecordsetClone
rst.FindFirst "Klanteninvoer.ID = " & Keuzelijst
Forms!Klanteninvoer.Bookmark = rst.Bookmark

Dim strVoorletters As String
Dim strAchternaam As String
Dim strStraat As String
Dim strHuisnr As String
Dim strPostcode As String
Dim strWoonplaats As String
Dim strAanhef As String
Dim strTijdVerschil As String

Dim appword As New Word.Application

strVoorletters = rst!Voorletters
strAchternaam = rst!Achternaam
strStraat = rst!Straat
strHuisnr = rst!Huisnr
strPostcode = rst!Postcode
strWoonplaats = rst!Woonplaats
strAanhef = rst!Achternaam
strTijdVerschil = rst![Datum infopakket verzonden] - [Date]

‘of strTijdverschil = Datediff (d, [Datum infopakket verzonden], Date)
‘geen van beiden werkt

If strTijdVerschil <= 7 Then 
rst![Datum inschrijving] = Date
rst![Inschrijving ontvangen] = True

 

[Emil S]

en wat staat er dan in het veld "[Datum infopakket verzonden]"?
een string, serieel getal, datum?

 

[OctaFish]

Je gebruikt een string als variabele waar je een berekening in doet. Ik zou dat zowiezo al niet doen. Probeer dit eens:

Dim strTijdVerschil As integer
strTijdVerschil = Cdate(rst![Datum infopakket verzonden]) - [Date]

 

[Tardis]

strTijdVerschil = rst![Datum infopakket verzonden] - Date

of strTijdverschil = Datediff ("d", [Datum infopakket verzonden], Date)

Tardis

 

[OctaFish]

TS geeft aan dat deze twee methoden niet werken; het lijkt mij niet heel zinvol om ze dan nog een keer te suggereren.