Functie of Sub aanroepen met druk-op-de-knop

[assessor]

Ik wil met een knop de volgende Functie in een Module aanroepen.

Function AMLRUNUpdate()
On Error GoTo AMLRUNUpdate_Err

' Surpress warnings
DoCmd.SetWarnings False

' Creates AMLRUN table with the contents of the AMLRUN linked table.
DoCmd.RunSQL "SELECT AMLRUNLINK.F1 AS mgr, Right([F2],5) AS mgrid, F3 AS dep, F4 AS emp, Right([F5],5) AS empnr, F6 AS cert, F8 AS due, F7 AS dtg INTO AMLRUN FROM AMLRUNLINK WHERE (((F6) Like ""aml*"")) OR (((F6) Like ""*run""));", -1

' Reset warnings
DoCmd.SetWarnings True
End

AMLRUNUpdate_Exit:
Exit Function

AMLRUNUpdate_Err:
MsgBox Error$
Resume AMLRUNUpdate_Exit

End Function

Hoe kan ik dit het best doen?

Deze en een hele reeks soortgelijke Functies heb ik "vertaald" uit macros, dit is wellicht niet het elegantst, ik ben tot elke voorstel voor verbetering bereid daar mijn VB kennis redelijk beperkt is.

vast dank, Jos

 

[OctaFish]

Kwestie van de functie aanroepen:

Call AMLRUNUpdate

Overigens hebben we een aparte CODE knop, zodat code een stukkie fraaier is te lezen

 

[assessor]

soms is het zo simpel... zat me blind te staren op de standaard knop-opties en zag niet bruikbaars.
(dat gebeurt als je eens in de ... maanden iets met Access/VB doet)

Dank voor het wakker schudden.