Collectez le code d'effet spécial de page Web le plus pratique!
Fonction Dlookup (StrFieldName, StrtableName, Strwhere, ObjConn)
«Fonction de référence dlookup dans Access VBA
'En raison de l'environnement différent, les paramètres objconn sont ajoutés et la connexion adodb.
STRSQL DIM
Rs sombre
set rs = server.createObject ("adodb.oldset")
«Appelons une fonction personnalisée externe Checkksql ()
StrFieldName = ChecksQL (StrFieldName)
Si strwhere <> "" alors
Strwhere = "où" et fort
terminer si
StrSql = "SELECT" & StrFieldName & "From" & Strtablename & "" & Strwhere
'Debugstop Strsql
Sur l'erreur reprendre ensuite
Rs.OOPEN STRSQL, OBJCONN, 1, 1
Si err <> 0 alors
réponse.write err.decripting
réponse.end ()
terminer si
Si Rs.Eof et Rs.Bof alors
dlookup = "" "
autre
'Pour appeler une fonction personnalisée NZ
'Pour plus de détails, veuillez vous référer aux informations de l'aide VBA Access
dlookup = nz (RS (RS (StrFieldName), "")
terminer si
Rs.Close
fonction finale