Discussion :

[JOKER6]

Bonjour à tous,

Je cherche à réaliser une fonction DLookup avec VBA pour rechercher des doublons mais je n'y arive pas.
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
 
Dim varCode As Variant
 
varCode = DLookup("[Champ]", "Table", "[Champ]='" & Me.Champ & "'")
 
If (Not IsNull(varCode)) Then
Me.Champ2 = 0
End If

Quand je saisie une donnée, j'obtiens une erreur d'execution '3464' : Types de données incompatible dans l'expression du critère.
Pouvez-vous m'aidez svp.

[marot_r]

Bonjour.

Access a raison ton type de critère est incompatible :-).

Tu cherches un nombre (d'après le test en dessous) et tu définis un critère de type texte au niveau du dLookup.

Pour les nombres et les booléens, il ne faut pas mettre de délimiteur :

Code :

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

varCode = DLookup("[Champ]", "Table", "[Champ]=" & Me.Champ)

Pour les textes, on peut mettre l'apostrophe (') ou le guillemet ("). Personnellement je préfère le guillemet car il y rarement des guillemets dans les textes alors qu'il y a souvent des apostrophes.

Code :

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

varCode = DLookup("[ChampTexte]", "Table", "[ChampTexte]=""" & Me.Champ & """")

Et pour les dates il faut mettre un dièse (#)

Code :

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

varCode = DLookup("[ChampDate]", "Table", "[ChampDate]=#" & format(Me.Champ,"yyyy\-mm\-dd") & "#")

Le format n'est pas indispensable mais il évite les erreurs d'interprétation des dates. 01/02/2016 selon l'environnement peut être vu comme le 1er février ou le 2 janvier. En format inversé, il n'y a pas de confusion possible.

A+

[JOKER6]

Merci pour votre réponse,

J'ai corrigé avec le code suivant:

Code :

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

1
2
3
4
5
6
7
Dim varCode As Variant
 
varCode = DLookup("[Champ]", "Table", "[Champ]=" & Me.Champ)
 
If (Not IsNull(varCode)) Then
Me.Champ2 = 0
End If

Le problème c'est que à chaque fois je crée un nouvel enregistrement Me.Champ2=0 alors que je veux uniquement cela quand il y a un doublon de Champ.
Quel est le problème dans mon code?