Navigation mit Combox und SQL

[mikel]

Hallo zusammen,
nachdem ich eine Navigation mit eier Combobox und einer Werteliste habe, dies mir allerdings nicht so zusagt, habe ich das Ganze in eine Tabelle als Navigation gelegt.

Hierzu habe ich eine Funktion geschrieben die auch funktioniert. Was ich nicht hinbekomme ist beim öffnen des Formular, dass in der Combobox steht: "Bitte wählen Sie"

Kann mir da jemand weiterhelfen?

Hier der Code für meine Funktio:

Public Sub ÖffneNavigationsformular(FormularName As String, Optional AktuellesFormular As String = "")
    Dim obj As AccessObject
    Dim frmExists As Boolean

    On Error GoTo Fehlerbehandlung

    If Nz(FormularName, "") = "" Then
        MsgBox "Kein Formular angegeben.", vbExclamation
        Exit Sub
    End If

    frmExists = False

    ' Prüfen, ob das Formular existiert
    For Each obj In CurrentProject.AllForms
        If obj.Name = FormularName Then
            frmExists = True
            Exit For
        End If
    Next obj

    If frmExists Then
        DoCmd.OpenForm FormularName
        If AktuellesFormular <> "" Then
            DoCmd.Close acForm, AktuellesFormular
        End If
    Else
        MsgBox "Das Formular '" & FormularName & "' wurde nicht gefunden.", vbCritical
    End If

    Exit Sub

Fehlerbehandlung:
    MsgBox "Fehler beim Öffnen des Formulars: " & Err.Description, vbCritical
End Sub

 

[andyfau]

Du brauchtst nur in der Eigenschaft "Standardwert" des Kombifeldes "Bitte wählen Sie" zu schreiben.

 

[mikel]

Sorry das habe ich gerade nicht verstanden. "Eigenschaft?" Wo finde ich das?

 

[andyfau]

Entwurfansicht, Kombinationsfeld anklicken, rechte Maustaste, Eigenschaften, Reiter Daten, Standardwert.