Mit ComboBox Formular öffen

[mikel]

Hallo zusammen,
wollte mal Anfragen ob es eine Möglichkeit gibt mit einer ComboBox Formulare zu öffnen.

z.b:

Select Combox1
case1
DoCmd.open ="frm_test"
case 2
DoCmd.open ="...."

usw.

 

[mmarschner]

Versuch es mal mit

DoCmd.OpenForm [Text aus der Kombobox].Value

Gruß Michael

 

[mikel]

Danke für die Antwort. Mir fehlt allerdings der komplette Aufbau der ComboBox in VBA
Muss icht den TExt im Steuerelement einsetzen?

Grüße
Michael

 

[mmarschner]

Hallo Michael,

mit Text meinte ich die Liste mit den Formularnamen. Und den Programmcode als Ergeignisprozedur unter "Nach Aktualisierung".

Die Formularnamen kannst Du als Werteliste eingeben, oder in einer Tabelle abspeichern, die dann als Datenquelle für das Kombinationsfeld dient.

Andererseits könntest Du die Liste auch per VBA Code aufbauen, indem Du die Formularnamen ausliest.

 

[andyfau]

Hallo,
eine Kombobox ist eine gute Möglichkeit eine Art Menü aufzubauen, so wie Michael es beschreibt.

Es gibt auch die Möglichkeit das Steuerelement "Navigationssteuerelement" zu nutzen, welches sich vielfältig formatieren lässt. Formulare, die geöffnet werden sollen, müssen nur eingetragen werden.

 

[mikel]

Hallo,
so, ich habe jetzt nach langen Versuchen eine ComboBox als Navigation zusammengesetzt. Die funktioniert auch sehr gut.
Was ich allerdings nicht hinbekommen habe ist, dass beim Aufruf des Formulares die ComboBox als erstes Anzeigt: "Bitte wählen"

Hier einmal einen Auszug aus dem Code:

Private Sub cbonaviAuswahlAngebote_AfterUpdate()
 On Error GoTo ErrorHandler
 Dim selectedOption As String
 
  selectedOption = Me!cbonaviAuswahlAngebote.Value
 
    
' Überprüfen, ob ein Wert ausgewählt wurde
    If IsNull(selectedOption) Or selectedOption = "" Then
        MsgBox "Bitte wählen Sie eine Option aus.", vbExclamation, "Keine Auswahl"
        Exit Sub
    End If

.....
.....
End Sub

Wie bekomme ich diesen Wert angezeigt?

 

[andyfau]

Hallo,
sorge dafür, dass deine Wertelist, bzw. Tabelle, die als Datenherkunft dient, den Text "Bitte wählen..." als ersten Wert der Liste enthält. Dann kannst Du beim Laden des Formulars den ersten Eintrag als Standardwert vorbelegen. Natürlich muss dann, ebenso wie bei fehlender Auswahl, dieser Wert als ungültig abgelehnt werden.

Private Sub Form_Load()
    ' Setzen Sie den Standardwert des Kombinationsfelds basierend auf dem Index
    Me!KombinationsfeldName = Me!KombinationsfeldName.ItemData(0) ' Setzt den ersten Eintrag als Standardwert
End Sub

 

[mikel]

Danke es hat funktioniert!