Op een formulier staan enkele velden om de criteria voor een query in te perken, zoals begindatum, einddatum, product(en), klant(en).
Ik heb voor de klanten en voor de producten aparte tabellen gemaakt, waar de geselecteerde items in worden geplaatst, en "oude" items uit worden verwijderd.
De code die ik hiervoor gebruik is als volgt:
Nu heb ik ook een tabel tblDatum gemaakt, om de begindatum en einddatum in te plaatsen. (Dit om naar te verwijzen in een rapport)
Ik heb nu twee tabellen: tblBeginDatum en tblEindDatum.
Hoe werkt dat nu?
Wat ik tot nu toe heb zijn de declaraties(is niet veel):
Ik heb voor de klanten en voor de producten aparte tabellen gemaakt, waar de geselecteerde items in worden geplaatst, en "oude" items uit worden verwijderd.
De code die ik hiervoor gebruik is als volgt:
code:
1
2
3
4
5
6
7
8
9
10
11
12
| Set rst = CurrentDb.OpenRecordset("tblGeselecteerdeProducten")
Set ctl = Me.cboProduct 'Stel de productkeuzelijst in als control
For Each varItem In ctl.ItemsSelected
With rst
.AddNew
!ProductNaam = ctl.ItemData(varItem)
.Update
End With
Next varItem 'Ga door met het volgende item |
Nu heb ik ook een tabel tblDatum gemaakt, om de begindatum en einddatum in te plaatsen. (Dit om naar te verwijzen in een rapport)
Ik heb nu twee tabellen: tblBeginDatum en tblEindDatum.
Hoe werkt dat nu?
Wat ik tot nu toe heb zijn de declaraties(is niet veel):
code:
Hoe kopieer ik nu Me.txtBegindatum naar de tabel tblBeginDatum?
1
2
3
4
| Set rst = CurrentDb.OpenRecordset("tblBeginDatum")
'Open de tabel BeginDatum om data in weg te schrijven
Set ctl = Me.txtBegindatum
'Stel de Begindatum in als control |
[ Voor 6% gewijzigd door Sherlock op 05-12-2003 12:06 ]
And if you don't expect too much from me, you might not be let down.