krldev.de

Direkt zum Seiteninhalt

Hauptmenü

krlweb.de
Willkommen
MS-Access
- Allgemein
- Tabellen
- Abfragen
- Formulare
- Berichte
- Seiten
- Makro
- Module
- VBA
- Weitergabe (Setup)
Download
Links
Kontakt
Haftungsausschluß

ExtDLoopUp

MS-Access

ExtDLookUp-Funktion:

Verwendung:

MS-Access

Beschreibung:

DLookup ist eine prima Funktion um mal eben einen bestimmten Wert abzufragen. Aber was tun wenn sich die Tabelle aus der der Wert abgefragt werden soll nicht in der aktuellen DB befindet?

Lösung:

Public Function ExtDLookUp _
(strDB As String, _
   strFeld As String, _
   strTabelle As String, _
   strBedingung As String _
)

On Error GoTo ErrorHandle

Dim db As Database
Dim rs As Recordset

Set db = DBEngine.OpenDatabase(strDB)
Set rs = db.OpenRecordset( _
           "SELECT " & strFeld & " " & _
           "FROM " & strTabelle & " " & _
           "WHERE " & strBedingung & ";")

If Not rs.EOF Then
    ExtDLookUp = rs(0)
End If

Set rs = Nothing
Set db = Nothing
Exit Function

ErrorHandle:
ExtDLookUp = "Error"
End Function

Untermenü