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:
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.
Zitat von: atropos am Oktober 08, 2019, 12:36:48
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.