[Access 2000] Waarde in tabel plaatsen

Pagina: 1
Acties:

  • Sherlock
  • Registratie: Mei 2000
  • Laatst online: 04-09 22:11
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:
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:
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
Hoe kopieer ik nu Me.txtBegindatum naar de tabel tblBeginDatum?

[ 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.


  • Masch
  • Registratie: Augustus 2002
  • Laatst online: 07:05
code:
1
2
3
4
5
with rst
.addnew
!veldnaamvanbegindatum = me!txtbeegindatum
.update
end with

Dat moet het zijn!

[ Voor 11% gewijzigd door Masch op 05-12-2003 12:32 . Reden: update + addnew -- duh ]

(\__/) Ik wist totaal niet wat hier neer te zetten....
(='.'=) Dus het werd....
("")("") Een konijn!!


  • Sherlock
  • Registratie: Mei 2000
  • Laatst online: 04-09 22:11
Oké, ik heb dan de volgende code, maar daar lukt het nog niet mee:
code:
1
2
3
4
5
6
7
8
Set rst = CurrentDb.OpenRecordset("tblBeginDatum") 
Set ctl = Me.txtBegindatum
    
        With rst
        .AddNew
        !Begindatum = Me.txtBegindatum
        .Update
        End With

Ik zie niks in de tabellen staan, en de rapporten geven een #fout aan.

[ Voor 3% gewijzigd door Sherlock op 05-12-2003 12:15 ]

And if you don't expect too much from me, you might not be let down.


  • Masch
  • Registratie: Augustus 2002
  • Laatst online: 07:05
Me!txtbegindatum
punctualiteit is belangrijk hé!

[ Voor 6% gewijzigd door Masch op 05-12-2003 12:08 ]

(\__/) Ik wist totaal niet wat hier neer te zetten....
(='.'=) Dus het werd....
("")("") Een konijn!!


  • Sherlock
  • Registratie: Mei 2000
  • Laatst online: 04-09 22:11
Oh sorry, dat was ik vergeten te vertellen: zo had ik het eerst staan. Heb daarna de versie met . geprobeerd, maar helaas ook zonder resultaat.

And if you don't expect too much from me, you might not be let down.