Warum noch ein Access-Buch?
Für wen ist das Buch?
Jetzt bestellen
+ direkter Download des eBooks!
Nur EUR 59,95!
Fehler gefunden?
Bitte melden!
Wünsche an das Buch?
Her damit!
Was denken die Leser über dieses Buch?
Lesen Sie aktuelle Rezensionen!
Kapitel des noch nicht veröffentlichten Buchs zum Downloaden, Probelesen und Kommentieren
Beispieldatenbanken
Zusätzliches Material

Das Buch im HTML-Format

Für unbestimmte Zeit bieten Addison-Wesley und André Minhorst den kompletten Inhalt des Buchs als Download an. Schauen Sie rein und informieren Sie sich über den Inhalt! Und wenn Ihnen das Buch nützlich erscheint und Sie glauben, dass Sie etwas gelernt haben oder durch das Gelesene sogar etwas Zeit und somit Geld bei Ihrer Arbeit einsparen konnten, können Sie sich ja beim Autor und beim Verlag revanchieren - beispielsweise durch den Kauf dieses Buchs.

Am schönsten wäre es natürlich, wenn Sie das Buch direkt hier bestellen - Sie erhalten das Buch dann direkt vom Verlag, und der Autor und Verlag haben dann noch mehr davon, als wenn Sie es anderswo kaufen.

Danke für Ihr Interesse!

7.8.5 Parameter und Rückgabewerte einer Routine

7.8.6 Gleichzeitige Rückgabe von Statuswert und Ergebnis

In vielen Fällen dürfte eine Funktion für die Ermittlung der gewünschten Information reichen. Sobald Sie aber neben einem Ergebnis auch noch eine Statusmeldung erwarten, sollten Sie die oben genannte Vorgehensweise zur Rückgabe von Ergebnissen per Parameter mit der Rückgabe eines Funktionswerts verknüpfen. Der Rückgabewert der Funktion gibt dann den Statuswert zurück und die Parameter sind für das Ergebnis zuständig. Eine Erweiterung der Routinen aus Listing 7.17 zeigt, wie dies funktioniert:

Public Function NameErmittelnMitStatus(lngPersonalID As Long, _
    strVorname As String, strNachname As String) As Boolean

    Dim db As DAO.Database
    Dim rst As DAO.Recordset

    Set db = CurrentDb
    Set rst = db.OpenRecordset("SELECT Vorname, Nachname FROM Personal " _
        & "WHERE [Personal-Nr] = " & lngPersonalID)

    If Not rst.EOF Then

        strVorname = rst!Vorname
        strNachname = rst!Nachname
        NameErmittelnMitStatus = True
    Else
        NameErmittelnMitStatus = False
    End If

    rst.Close

    Set rst = Nothing
    Set db = Nothing

End Function

Public Sub BeispielRueckgabeparameterMitStatus()

    Dim strVorname As String
    Dim strNachname As String

    If NameErmittelnMitStatus(1, strVorname, strNachname) = True Then
        Debug.Print strVorname
        Debug.Print strNachname
    Else
        Debug.Print "Der Mitarbeiter konnte nicht eingelesen werden."
    End If

End Sub

Listing 7.18: Gleichzeitige Übergabe von Statuswert und Funktionsergebnis

Nächster Abschnitt:

7.8.7 Alle Routinen verwenden

© 2006-2008 André Minhorst Alle Rechte vorbehalten.