Discussion :

[RonSde]

Bonjour,
Je suis dans un formulaire DDP, dans le champ DDP1.
Je veux vérifier que la valeur de DDP1 existe également dans le champ COM d'une table COM1.
J'ai essayé dans tous les sens la méthode Findfirst mais je n'y arrive pas.
Voici une version toute simple qui ne marche pas :

Dim MaBase As Database
Dim rst As RECORDSET

Set MaBase = CurrentDb
Set rst = MaBase.OpenRecordset("COM1")

rst.FindFirst "[COM] = 'Forms!DDP!DDP1'"

If rst.NoMatch = True Then
MsgBox "Le dossier suivant n'existe pas en commande : " & Forms!DDP!DDP1
Exit Sub
End If

Le programme ne trouve pas la valeur recherchée dans la table COM1 même si cette valeur s'y trouve. Lorsque je remplace 'Forms!DDP!DDP1' par le texte qui lui correspond, par exemple '121040/A2', cela fonctionne.
J'ai essayé de multiples façons de faire (strCriteria, etc.) rien ne fonctionne.

Pourriez-vous m'aider ou me conseiller ? (Faut-il utiliser Seek ? Comment ?)
Merci d'avance, bien cordialement, Richard
(Je programme occasionnellement en Visual Basic sous Access mais je ne suis pas un spécialiste, donc il me faut si possible une réponse assez simple/claire...)

[madefemere]

Bonsoir,

Je dirais que la syntaxe :

Code :

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

rst.FindFirst "[COM] = 'Forms!DDP!DDP1'"

n'est pas bonne à ce niveau .

Il faudrait écrire :

Code :

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

rst.FindFirst "[COM] =" & Forms!DDP!DDP1

si Forms!DDP!DDP1 est numérique.

Ne pas oublier d'utiliser les ' et " si Forms!DDP!DDP1 est du texte.

Quand tu mets effectivement "[COM]=Valeur", ça marche comme étant une expression.

Bonne continuation.