Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Dlook up "externe"

Dlook up "externe"

4 réponses
Avatar
Xantia
Bonjour

Quel est l'équivalent des instructions;
Set RS = db.OpenRecordset("Table1")
et
strMaString = DLookup("[RéfTable2]", "[Table2]", "[Champ2]= '" & MonIndice
&'")

lorsqu'on n'est pas dans Access.

merci

@+
Alain
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre CFI [mvp]
bonjour
oui, mais tu es dans quoi ??

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Xantia" a écrit dans le message de news:
Bonjour

Quel est l'équivalent des instructions;
Set RS = db.OpenRecordset("Table1")
et
strMaString = DLookup("[RéfTable2]", "[Table2]", "[Champ2]= '" & MonIndice
&'")

lorsqu'on n'est pas dans Access.

merci

@+
Alain




Avatar
Xantia
Bonjour Pierre

Je suis dans Outlook.

cdlt
Alain

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
oui, mais tu es dans quoi ??

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Xantia" a écrit dans le message
de news:

Bonjour

Quel est l'équivalent des instructions;
Set RS = db.OpenRecordset("Table1")
et
strMaString = DLookup("[RéfTable2]", "[Table2]", "[Champ2]= '" &
MonIndice


&'")

lorsqu'on n'est pas dans Access.

merci

@+
Alain








Avatar
Pierre CFI [mvp]
.../...
si tu charges la ref microsoft dao
pour openrecordset c'est pareil
dlookup est spécifique à access, mais tu ouvres un recordset filtré
Set RS = db.OpenRecordset("Select RéfTable2 from Table2 where Champ2= '" & MonIndice & "'")
if not rs.eof then
strMaString = rs(0)
else
strMaString ="rien"
end if

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Xantia" a écrit dans le message de news:
Bonjour Pierre

Je suis dans Outlook.

cdlt
Alain

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
oui, mais tu es dans quoi ??

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Xantia" a écrit dans le message
de news:

Bonjour

Quel est l'équivalent des instructions;
Set RS = db.OpenRecordset("Table1")
et
strMaString = DLookup("[RéfTable2]", "[Table2]", "[Champ2]= '" &
MonIndice


&'")

lorsqu'on n'est pas dans Access.

merci

@+
Alain












Avatar
Xantia
Bonsoir Pierre

Merci pour tes explications qui m'aident à comprendre.
Effectivement avec la bibliothèque DAO ça m'est plus familier.

par contre peux tu me confirmer que sous outlook le code suivant est OK
pour accéder à mon appli Acces ?
Set db = GetObject(, "Access.Application")
db.OpenCurrentDatabase LeCheminDeMaBase
.;...
puis ton modele
Set RS = db.OpenRecordset("Select RéfTable2 from Table2 where Champ2= '" &
MonIndice & "'")


J'écrit ce code sous l'evenement ItemSend et NewMail de l'appli outlook.

Je suis un peu surpris car j'ai sauvegardé, fermé puis re-ouvert Outllook
et si mon code est effectivement toujours présent, je n'arrive plus à
l'executer en
pas à pas lorsque j'envoi un email, même si j'ai effectivement mis un
point d'arret sur les 2 subroutines. Aurais tu une idée sur ce qui se passe
?

@+
Alain


"Pierre CFI [mvp]" a écrit dans le message de
news:
.../...
si tu charges la ref microsoft dao
pour openrecordset c'est pareil
dlookup est spécifique à access, mais tu ouvres un recordset filtré
Set RS = db.OpenRecordset("Select RéfTable2 from Table2 where Champ2= '" &
MonIndice & "'")

if not rs.eof then
strMaString = rs(0)
else
strMaString ="rien"
end if

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Xantia" a écrit dans le message
de news:

Bonjour Pierre

Je suis dans Outlook.

cdlt
Alain

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
oui, mais tu es dans quoi ??

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Xantia" a écrit dans le
message



de news:
Bonjour

Quel est l'équivalent des instructions;
Set RS = db.OpenRecordset("Table1")
et
strMaString = DLookup("[RéfTable2]", "[Table2]", "[Champ2]= '" &
MonIndice


&'")

lorsqu'on n'est pas dans Access.

merci

@+
Alain