Discussion :

[Virgile59]

Bonjour, voici le petit bout de code en question :

Code :

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

1
2
3
4
5
Dim Mat As String
Dim Soc As String
Mat = Right(Me!Liste, 4)
Soc = Left(Me!Liste, 2)
DoCmd.OpenForm "frmContrat", , , "[MCODST]= & Soc & " And "[MCDMAT]= & Mat & "

MCODST et MCDMAT sont de type texte dans la table.

Sur ouverture du formulaire j'ai une incompatibilité de type...
Il doit y avoir un problème de syntaxe, pourriez-vous m'aider ?
Merci d'avance...

[Jean-Philippe André]

Salut,
ton emplacement des quotes n'est pas le bon.
Essaie avec :

Code :

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

DoCmd.OpenForm "frmContrat", , , "[MCODST]= '" & Soc & "' And [MCDMAT]= '" & Mat & "'"

Attention aussi, si une de ces valeurs peut avoir un ', il faut prevoir le coup en le doublant comme ceci :

Code :

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

DoCmd.OpenForm "frmContrat", , , "[MCODST]= '" & Replace(Soc,"'","''") & "' And [MCDMAT]= '" & Replace(Mat,"'","''") & "'"

[Virgile59]

Merci beaucoup !