title image


Smiley Re: DLookUp externe Tabelle benutzen
Tja, mir ist keine einfache Möglichkeit bekannt, man muß es also selber machen mit einer Funktion wie dieser:

Function ExternalDLookup(sPath As String, sField As String, sDomain, Optional sKrit = "")

Dim rs As DAO.Recordset

Dim sSQL As String



If Left(sField, 1) "[" Then sField = "[" & sField

If Right(sField, 1) "]" Then sField = sField & "]"

If Left(sDomain, 1) "[" Then sDomain = "[" & sDomain

If Right(sDomain, 1) "]" Then sDomain = sDomain & "]"



If Len(sKrit) > 0 Then sKrit = " WHERE " & sKrit



sSQL = "SELECT " & sField & " FROM " & sDomain & " IN '" & sPath & "'" & sKrit

Set rs = CurrentDb.OpenRecordset(sSQL)



If Not rs.EOF Then ExternalDLookup = rs(0)



rs.Close: Set rs = Nothing



End Function



Aufruf dann z.b. mit



Debug.print ExternalDLookup("C:\Pfad\db.mdb", "Ende_InvNr", "MeineTbl", "[Feld1] = 11")



Gruß

Robert





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: