Sammeln Sie den praktischsten Webseite Special Effect Code!
Funktion Dlookup (Strfieldname, StrtableName, Strhere, objconn)
'Referenz -Dlookup -Funktion in Access VBA
'Aufgrund der unterschiedlichen Umgebung werden die ObjConn -Parameter hinzugefügt, und die adodb.Connection wird direkt in übertragen
Dim Strsql
Dim Rs
Setzen Sie rs = server.createObject ("adodb.oldset")
'Rufen wir eine externe benutzerdefinierte Funktion auf.
Strfieldname = poksql (strfieldname)
Wenn Strhere <> "" dann
STRWHY = "wo" & stark
Ende wenn
Strsql = "select" & strfieldname & "von" & StrtableName & "" & Strwhere
'Debugstop Strsql
Bei der nächsten Fehleraufnahme als nächstes
Rs.oopen Strsql, Objconn, 1, 1
Wenn er <> 0 dann erregt
Antwort.Write err.descripting
Antwort.end ()
Ende wenn
Wenn rs.eof und rs.Bof dann dann
Dlookup = "" "
anders
'Um eine benutzerdefinierte Funktion nz aufzurufen
Für Einzelheiten finden Sie auf den Informationen der Access VBA -Hilfe
dlookup = nz (RS (RS (strfieldname), "")
Ende wenn
Rs.close
Endfunktion