Discussion :

[chloe_teb]

Bonjour à tous,

je dois crée une zone de texte dépendante c'est pourquoi j'ai fait un code VBA:

Sub prenom_AfterUpdate()
Me.[Nom].Value = DLookup("[Nom]", "[Base_Inclusion]", "[Base_Inclusion].[Prenom] = " & Me.[Prenom].Value)
End Sub

Hors il me met une erreur au niveau du "Me"

Quelqu'un peut-il m'aider ?

Merci

[tee_grandbois]

Bonsoir,

il me met une erreur au niveau du "Me"

pourrais-tu nous donner le libellé de l'erreur ?

[Paraffine]

Bonjour Chloé,

Tu as plusieurs problèmes potentiels.

• Le plus préoccupant (problème de conception): ne peux-tu pas avoir plusieurs noms pour un même prénom ? En général, c'est sur un identifiant que l'on s'appuie pour rechercher les données pour un enregistrement donné. Dlookup n'est pas du tout indiqué si tu es susceptible d'obtenir plus d'une valeur pour ton critère.
• Ton critère ne passera pas tel quel, car les prénoms sont généralement au format texte, donc il manque des guillemets :

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

   DLookup("[Nom]", "[Base_Inclusion]", "[Base_Inclusion].[Prenom] = '" & Me.[Prenom].Value & "' ")

  ou

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

   DLookup("[Nom]", "[Base_Inclusion]", "[Base_Inclusion].[Prenom] = """ & Me.[Prenom].Value & """ ")

• Enfin, puisque tu as saisi les noms des contrôles entre crochets, il faut vérifier qu'il n'y a pas d'erreur sur leur orthographe

(et question "bête" : toutes ces informations sont dans le même formulaire, bien sûr?)


Pour bien isoler les différentes sources d'erreur, c'est une bonne pratique de procéder par étape
1) on définit une variable
2) on récupère la valeur dans cette variable
3) on l'affecte au formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim stLeNom as string
stLeNom = DLookup("[Nom]", "[Base_Inclusion]", "[Base_Inclusion].[Prenom] = '" & Me.[Prenom].Value & "' ")
Me.[Nom].Value = stLeNom

On peut même utilement définir une autre variable pour contenir le critère:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim stLeNom as String
dim stLeCritere as String
(...)
stLeCritere = "[Base_Inclusion].[Prenom] = '" & Me.[Prenom].Value & "' "
stLeNom = DLookup("[Nom]", "[Base_Inclusion]", stLeCritere)

De cette façon il est plus facile d'isoler les erreurs. Et avec les outils de débogage, on peut vérifier que le critère est correct et a bien comme valeur "[Base_Inclusion].[Prenom] = 'Tartempion' ", si le prénom saisi est "Tartempion".


Cordialement,
Paraffine