Schrijven in meerdere cellen tegelijk

[Jan Van Haaren]

Hoi,

Ik heb een form gemaakt dat leest uit een verschillende cellen uit een tabel. Nu zou ik een dropdown menu willen maken en als je daar iets kiest dat dat wordt weggeschreven in 10 cellen. Is daar een systeem voor?

Dank bij voorbaat, Jan

 

[Bartuls]

Programmeren!
Je schrijft een functie in een module en laat deze functie uitvoeren bij je menukeuze.

De code moet er ongeveer als volgt uitzien:

public function fnDoUt() as boolean
dim db as database
dim strsql as string

set db = currentdb()
strsql = "update tblJouwTabel SET fld1 = " & forms![frmJouwForm]![txtJouwVeld] & ";"

docmd.setwarnings false
db.execute strsql, dbfailonerror
docmd.setwarnings true

set db = nothing

end function