Privé SubcmdNo_Click ()
Schemerige accObj als Nieuwe Access.Application
Schemerige strDSF als Koord
strDSF = [Vormen]! [frmMain]! [txtTarget]
Met accObj
.OpenCurrentDatabase strDSF
. Zichtbaar = Waar
.UserControl = Waar
Eind met
Reeks accObj = niets
Sub van het eind
|