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.
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.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| 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 |