Dropdown Menü verliert Inhalt nach dem Speichern

Liebe Lisa,

vielen Dank für die schnelle Antwort.

Ich nutze in den Entwicklertools das "Kombinationsfeld-Inhaltsteuerelement"

Ich habe jetzt auch schon das ganze Dokument in Excel importiert um dort Dropdowns per Programmierung einzusetzen.

Funktioniert schon etwas besser, aber ich fände es dennoch spannend zu erfahren, ob die Möglichkeit besteht die Inhalte der TABSTOPS irgendwie in den Speicherprozess einzubeziehen, da Word es grundsätzlich ja in die Eigenschaften einfügen lässt und auch
wenn man zwischen den Inhalten hin und her tauscht auch annimmt. Nur nach dem Speichern ist es halt weg :-(

Liebe Grüsse

Christian

Hallo,

offenbar verliert das Dropdown-Menü bei dir auch seinen Bindestrich :-(.

Welche Art von Kombinationsfeld verwendest du - Inhaltssteuerelement, Formularsteuerelement, ActiveX-Steuerelement? Oder hast du eines per VBA programmiert?

Viele Grüße

Lisa

Hallo Christian,

leider sehe ich keine Chance, die Tabstopps beizubehalten. Sie verschwinden nicht erst beim Speichern, sondern schon beim Wechsel zwischen verschiedenen Listeneinträgen.

Einfacher wäre, statt des Kombinationsfeld-Inhaltssteuerelements das
Bausteinkatalog-Inhaltssteuerelement zu verwenden. Das setzt allerdings voraus, dass beim Ausfüllen des Formulars die Bausteine immer verfügbar sind: über die
dokumentspezifische Vorlage, über die Building Blocks.dotx oder über die
Normal.dotm.

Eine andere Möglichkeit wäre eventuell ein Kombinationsfeld aus den ActiveX-Steuerelementen mit entsprechendem Code. Aber von den Vorversionstools wird ja abgeraten.

Viele Grüße

Lisa

Hallo Frank,

Registerkarte "Start", Gruppe "Zwischenablage", kleines schwarzes Dreieck auf Schaltfläche "Einfügen" anklicken, im geöffneten Dropdown-Menü den Befehl "Inhalte einfügen" wählen, im Dialogfeld "Inhalte einfügen" die Option "Verknüpfung einfügen" aktivieren...

Viele Grüße

Lisa

Hallo Karl

Geht leider nicht... Ich habe den Code wie von Dir erwähnt ergänzt:

Private Sub combInteresse2_NotInList(NewData As String, Response As Integer)

If MsgBox("Do you really want to add new data to the list?", vbYesNo) = vbYes Then

Response = acDataErrAdded

Dim db As DAO.Database

Dim rs As DAO.Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("T_Interessen", dbOpenDynaset)

rs.AddNew

rs!I_Name = NewData

rs.Update

rs.Close: Set rs = Nothing

Set db = Nothing

Else

Response = acDataErrContinue

Me!combInteresse2.Undo

End If

End Sub

Vielen Dank für Deine Hilfe und herzliche Grüsse

Mike