krldev.de


Direkt zum Seiteninhalt

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

Copyright ©2002 - 2013 Laubensdörfer Reinhold. Alle Rechte vorbehalten. (letzte Aktualisierung: 18 Aug 2013) | info@krlweb.de

Zurück zum Seiteninhalt | Zurück zum Hauptmenü