Die Webseite rund um Microsoft Access
ACCESS LINKS PROJEKTE SHOP KONTAKT INFO
 Home          Beispiel-DBs          Funktionen          FAQs          Downloads          Newsletter          Forum        
         Tipps
Funktion ParameterAuslesen()
Die Nachfolgende Funktion gibt alle Parameter der mitgegeben Abfrage im Direktfenster aus. Oft sind in einer Abfrage mehrere Parameter angegeben mit zum Teil sehr langen Verweisen auf Formularfelder. Mit der Funktion lassen sich diese Parameter zur Fehlersuche schnell und unproblematisch auslesen und kontrollieren.
Public Function ParameterAuslesen(qrynam As String)

'-------------------------------------------------------------
' Zum Auslesen aller Parameter einer Abfrage.
'-------------------------------------------------------------

On Error GoTo fehler

Dim db As Database
Dim qdf As QueryDef
Dim par As Parameter

    Set db = CurrentDb()
    Set qdf = db.QueryDefs(qrynam)

' Parameter-Auflistung des QueryDef-Objekts durchlaufen
    For Each par In qdf.Parameters
        Debug.Print par.Name
    Next par

ende:
    Exit Function

fehler:
    MsgBox Err.Description, 16, ""
    Resume ende

End Function

Alle anzeigen




 Login | Impressum | ADMIN | Printversion

Copyright by Seitenzentrale.de