Combobox im Kontextmenü wird nicht angezeigt

[atropos]

Moin,

ich baue gerade ein Kontextmenü für ein Formular und möchte dort auch ein ComboBox Element mit Daten aus einer Abfrage zur Auswahl haben. Ich benutze Access 2010 auf Windows 7 - Das Menü an sich funktionert auch, nur die Combobox wird einfach nicht angezeigt. So füge ich sie hinzu:

Code [Auswählen] Erweitern

    Set cbb4 = cb.Controls.Add(msoControlComboBox)
    With cbb4
        .BeginGroup = True
        .Caption = "Daten kopieren aus ..."
        Set rs = CurrentDb.OpenRecordset("qry_AuswahlOptionen")
        If rs.RecordCount > 0 Then
            rs.MoveFirst
            While Not rs.EOF
                .AddItem CStr(rs.Fields(1).Value), rs.AbsolutePosition + 1
                rs.MoveNext
            Wend
        End If
        .DropDownLines = 8
        .DropDownWidth = -1
        .ListIndex = 1
        .Style = msoComboNormal
        .Visible = True
        .onAction = "=fImport()"
    End With

Kann jemand weiterhelfen? Danke schonmal.

[PhilS]

Kann jemand weiterhelfen? Danke schonmal.

Ich nehme an .DropDownWidth = -1 bedeutet Breite automatisch festlegen? - Das würde ich sicherheitshalber überprüfen.

Ansonsten ist die Frage sehr spezifisch. - Kannst du deinen Code zu einem eigenständig lauffähigen Beispiel erweitern und dieses hier posten? - Dann könnte der geneigte Leser einfach mal probieren, ob er die Lösung findet.