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