probleme dlookup vba

Version imprimable

Bonjour,

j'ai deux problemes :
1) comment poster du code correctement dans le forum
2) j'utilise un dlookup dans un cod vba qui me renvoie un valeur null et je ne sais pas pourquoi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim test
   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("tblRESEAU", dbOpenDynaset)
 
   rst.MoveFirst
   Do Until rst.EOF
   rst.Edit
 
   test = DLookup("Libelle_projet", "Projets", "numproj" = rst.Fields("projet"))
   MsgBox test
 
    'rst.Fields("Nom_Projet") = DLookup("[Libelle_projet]", "Projets", "[numproj]" = rst.Fields("projet"))
   rst.Update
 
   Loop

merci de votre aide

06/01/2023, 16h21
hyperion13

Salut
1) Pour les codes, c'est expliqué ici
2) même avec votre code impossible de vous donner une réponse précise. Peut-être utiliser Nz().
06/01/2023, 16h25
Robert1957

Bonjour jmtpat,

Citation:

2) j'utilise un dlookup dans un cod vba qui me renvoie un valeur null et je ne sais pas pourquoi.

Parce que votre DLookUp est mal écrit.

Code:

test = DLookup("Libelle_projet", "Projets", "[numproj]=" & rst("projet"))

Il faut sortit le rst du string de la fonction, en supposant que numproj et rst projet sont numérique. Si texte il faut ajouter les ".

Bonne journée
13/01/2023, 15h41
jmtpat

Bonjour,

Désolé de ne pas avoir répondu plus tôt, je viens de tester, ça fonctionne correctement.

Merci à tous.
14/01/2023, 16h33
User

Bonjour,

Si jamais vous repassez par ici, pour ajouter la balise de code et faciliter sa lecture, c'est le bouton (#) comme indiqué dans le lien ;)