Privat undercmdNo_Click ()
Dunkel accObj som ny Access.Application
Dunkel strDSF som stränger
strDSF = [bildar]! [frmMain]! [txtTarget]
Med accObj
.OpenCurrentDatabase-strDSF
. Synligt = True
.UserControl = True
Avsluta med
Fastställd accObj = ingenting
Avsluta suben
|