Sie sind hier: Teil 4
Der eigene Format Assistent
Teil 4
Der eigene Format Assistent
(4/5)
Erstellen Sie ein Standardmodul (mdl_Start) mit folgendem Inhalt:
Option Compare Database
Option Explicit
Public p_Rueckgabe As String
Public Function fnc_OpenAddin(strObjektName As String, _
strTextfeldname As String, _
strAktuellerWert As String)
DoCmd.OpenForm "frm_Assistent", acViewNormal, , , _
acFormPropertySettings, acDialog
If p_Rueckgabe = "" Then p_Rueckgabe = strAktuellerWert
fnc_OpenAddin = p_Rueckgabe
End Function
|