string uebergabe in funktion

    hallo,
    ich habe ein Problem mit einer Funktion. Ich arbeite in Access 2003 und Programmiere im entsprechenden VB.

    Ich moechte eine funktion erstellen, welche mir formulare oeffnet.
    ich moechte auf einen button clicken, dann diese funktion aufrufen und mein formular soll geoeffnet werden. aber das funktioniert nicht. ich glaube es liegt an der art der uebergabe.
    ich stelle euch den code rein:

    also das ist die funktion
    Function oeffnen(formulare As String) As Form

    On Error GoTo Err_bt_Click

    DoCmd.OpenForm formulare

    Exit_bt_Click:
    Exit Function

    Err_bt_Click:
    MsgBox Err.Description
    Resume Exit_bt_Click

    End Function

    aufgerufen soll sie werden durch:
    Private Sub bt_search_Click()

    Dim frm_search As String

    oeffnen (frm_search)

    End Sub.


    Wenn ich das ganze nicht ueber eine funktion sondern direkt in den click schreibe funktioniert es :

    Private Sub bt_input_Click()
    On Error GoTo Err_bt_input_Click

    Dim stdocname As String

    stdocname = "frm_search"


    DoCmd.OpenForm stdocname

    Exit_bt_input_Click:
    Exit Sub
    Err_bt_input_Click:
    MsgBox Err.Description
    Resume Exit_bt_input_Click
    End Sub


    wo liegt mein Fehler?

    vielen Dank

    Ramona

    meine vb-zeiten sind schon weng her...
    setz mal ein "call" vor den aufruf... hoff mal ich bin gedanklich in der richtigen sprache..

    ansonsten mal den aufruf selbst testen. also mal in die funktion eine msgbox
    setzen die dir irgendwas ausgibt ("hallo" oder so) oder den übergabeparameter

    das mit der messagebox hatte ich schon versucht, aber es funktioniert schon die uebergabe nicht.

    bei folgendem code oeffent sich eine leere msg box
    Function oeffnen(formulare As String) As Form
    MsgBox (formulare)

    End Function

    und bei folgendem eine mit der ausgabe formulare
    Function oeffnen(formulare As String) As Form
    MsgBox ("formulare")

    End Function


    und call funktioniert auch nicht

    die lieben anfuehrungszeichen

    hier die loesung die funktioniert

    Sub oeffnen(formular As String)

    On Error GoTo Err_bt_Click

    DoCmd.OpenForm formular

    Exit_bt_Click:
    Exit Sub

    Err_bt_Click:
    MsgBox Err.Description
    Resume Exit_bt_Click

    End Sub

    Private Sub bt_search_Click()

    Dim frm_search As String

    Call oeffnen("frm_search")

    End Sub