Colete o código de efeito especial da página da web mais prático!
Função dLlookUp (strfieldName, strtableName, strwhere, objconn)
'Função de referência DLlookup no Access VBA
'Devido ao ambiente diferente, os parâmetros Objconn são adicionados e o Adodb.Connection é transferido diretamente em
StrSQL dim
Dim Rs
Definir rs = server.createObject ("adodb.oldset")
'Vamos chamar uma função personalizada externa verificaisql ()
StrfieldName = checksql (strfieldname)
Se strwhere <> "" então
Strwhere = "onde" e forte
final se
Strsql = "Selecione" & strfieldName & "From" & strtableName & "" & strwhere
'Debugstop Strsql
Em erro de erro em seguida
Rs.ooopen strsql, objconn, 1, 1
se err <> 0 então
Response.Write err.Descriping
Response.end ()
final se
Se Rs.eof e Rs.Bof então
dLlookUp = "" "
outro
'Para chamar uma função personalizada NZ
'Para detalhes, consulte as informações da ajuda do acesso VBA
dLlookUp = NZ (RS (RS (StrfieldName), "")
final se
Rs.close
Função final