veld kopieren naar andere tabel

[happytogether]

Beste experts :thumb:

kunnen jullie mij helpen met het volgende
Ik heb een tabel met klantgegevens (bedrijfsnaam, postbus, pc, plaats....)
een zelfde tabel voor leveranciers.
en nu heb ik een tabel (bedrijfsnaam, adres, pc, plaats....) voor afleveradressen voor het maken van bijv vrachtdocumenten.
deze tabel wordt niet gekoppeld aan klant of leverancier.
Nu wil ik dat als ik klant of leverancier invoer dat de bedrijfsnaam automatisch ingevult wordt in de tabel afleveradressen.
kan dit en zo ja hoe doe ik dat?

 

[sesam]

Afterinsert

Als je de gegevens invult op een formulier, dan zou je de gebeurtenis na invoegen, afterinsert, kunnen gebruiken. Deze wordt uitgevoerd elke keer als er een nieuwe klant/leverancier wordt toegevoegd.

 

[happytogether]

wat vul ik in dan bij afterinsert zodat de gegevens naar het veld in de andere tabel worden gekopieerd?

 

[sesam]

Verschillende manieren

Hier zijn allerlei verschillende manieren voor. Je kunt een macro maken die een toevoegquery aanroept. Je kunt ook een stukje code schrijven die het werk voor je uitvoert. Dat zou er dan als volgt uit kunnen zien:
dim db as database
set db=currentdb
db.execute "INSERT INTO aflever(bedrijfsnaam) VALUES('" & Me!bedrijfsnaam & "')"

waar de tabel met afleveradressen aflever heet en het veld op je formulier dat gekopieerd moet worden bedrijfsnaam.

Het volgende stukje code doet hetzelfde:
dim db as database, rs as recordset
set db=currentdb
set rs=db.openrecordset("aflever")
rs.addnew
rs!bedrijfsnaam=Me!bedrijfsnaam
rs.update