Hallo,
Ik heb een stukje programma achter een knop gezet, waarvan ik niet snap waarom het niet werkt.
Het is de bedoeling dat een paar velden uit een tabel overgenomen worden uit een andere tabel. Alles lijkt goed te werken, behalve het stukje van "& "(Me.[Titel],Me.[Beschrijving]);". Als ik daar een vaste waarde inzet (& "('titeltje','Beschr');") dan vult hij het wel netjes in.
Ik snap niet waarom.
Hier de code:
Private Sub Knop20_Click()
Dim db As Database
Dim rs As Recordset
'Initialisaties
Set db = CurrentDb()
Set rs = db.OpenRecordset("TBL_PO_modellen", dbOpenSnapshot)
rs.MoveFirst
Do While Not rs.EOF
If rs![Datum_laatstekeer] + [Frequentie_in_dagen] < Now Then
db.Execute " INSERT INTO Actie_items " _
& "(Titel,Beschrijving) VALUES " _
& "(Me.[Titel],Me.[Beschrijving]);"
'& "('titeltje','Beschr');"
Me.[Datum_laatstekeer] = Now()
End If
Me.[Datum_uitvoeren] = [Datum_laatstekeer] + [Frequentie_in_dagen]
rs.MoveNext
Loop
Me.Refresh
End Sub
Alvast bedankt.
Pieter Jan
Ik heb een stukje programma achter een knop gezet, waarvan ik niet snap waarom het niet werkt.
Het is de bedoeling dat een paar velden uit een tabel overgenomen worden uit een andere tabel. Alles lijkt goed te werken, behalve het stukje van "& "(Me.[Titel],Me.[Beschrijving]);". Als ik daar een vaste waarde inzet (& "('titeltje','Beschr');") dan vult hij het wel netjes in.
Ik snap niet waarom.
Hier de code:
Private Sub Knop20_Click()
Dim db As Database
Dim rs As Recordset
'Initialisaties
Set db = CurrentDb()
Set rs = db.OpenRecordset("TBL_PO_modellen", dbOpenSnapshot)
rs.MoveFirst
Do While Not rs.EOF
If rs![Datum_laatstekeer] + [Frequentie_in_dagen] < Now Then
db.Execute " INSERT INTO Actie_items " _
& "(Titel,Beschrijving) VALUES " _
& "(Me.[Titel],Me.[Beschrijving]);"
'& "('titeltje','Beschr');"
Me.[Datum_laatstekeer] = Now()
End If
Me.[Datum_uitvoeren] = [Datum_laatstekeer] + [Frequentie_in_dagen]
rs.MoveNext
Loop
Me.Refresh
End Sub
Alvast bedankt.
Pieter Jan