replacen van datum

[Basbrommer]

Hallo,

Ik wil de records wijzigen die in een datumveld staan. Nu heb ik dat geprobeerd met replace maar de lukt niet omdat dat alleen maar met string variabelen werkt. Tenminste dat is wat ik zie.
Wat ik wil is het volgende:
Ik heb records gekopieerd naar een tabel en daarin wil ik een datum plaatsen in het datumveld. Dit heb ik geprobeerd in VBA maar ik kom er niet uit.

'Rem Zoekt de hoogste datum op in het tabel met dagdeel 11
Function hdatum()
Dim dtehdatum As Date
dtehdatum = DMax("datum", "presentie", "dagdid=11")
End Function

Sub bijwerken()
replace([datum], [dagdid]=11 and [datum] is null, dtehdatum+7)
End Sub

Wie kan mij hierbij helpen?

Groeten Bas

 

[Guus2005]

Je replace statement moet een update statement zijn.
Zoiets als

currentdb.execute "update presentatie set datum = #01-01-2055# where datum is null"

Enjoy!

 

[Basbrommer]

Hoi Guus,

Ik ben al weer een stapje verder gekomen maar ben er nog niet helemaal uit.

Kan je de datum ook in een variabele veranderen? Want deze procedure moet iedere keer met een andere datum uitgevoerd worden. Mij is dat niet gelukt.

Nu heb ik:
CurrentDb.Execute "UPDATE presentie SET presentie.datum = #21-12-1221# WHERE (((presentie.datum) Is Null) And ((presentie.dagdid) = 51)) Or (((presentie.datum) Is Null) And ((presentie.dagdid) = 52))"

Kan je mij hierbij helpen?

Groeten Bas

 

[Guus2005]

Bedoel je

CurrentDb.Execute "UPDATE presentie SET presentie.datum = #" & dtmVariabeleDatum & "# WHERE (((presentie.datum) Is Null) And ((presentie.dagdid) = 51)) Or (((presentie.datum) Is Null) And ((presentie.dagdid) = 52))"

Je ziet het is simpel!

 

[Basbrommer]

Het is gelukt! bedankt!