erreur de syntaxe (operateur absent) [Résolu]

[kovrov]

Bonjour tout le monde,
sur un formulaire access j'ai une liste déroulante avec un bouton qui ouvre un autre form des champs communs, mais au niveaux des expressions avec l'apostrophe j'obtiens l'erreur suivante:
erreur de syntaxe (operateur absent)

code du bouton:

Code :

1
2
 
stLinkCriteria = "[Affectation]=" & "'" & Me![Affectation] & "'"

quelle est la solution a votre avis?

[ClaudeLELOUP]

Bonjour,

Tu donnes trop peu de détails pour qu'on puisse t'aider.

En tout cas, ton code posera problème si le texte du contrôle [Affectation] contient une apostrophe.

[kovrov]

j'ai un formulaire qui contient un liste déroulante (Affectation) et un bouton (Commande2) qui ouvre et qui trouve le mot sélectionné dans la liste sur un autre formulaire (xsorties), tout marche bien sauf si je sélectionne un mot qui contient l'apostrophe!!
voici le code que j'ai donnée à ce bouton:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Private Sub Commande2_Click()
On Error GoTo Err_Commande2_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "xsorties" 'c'est le nom du deuxieme formulaire
 
   stLinkCriteria = "[Affectation]=" & "'" & Me![Affectation] & "'"  'affectation c'est la liste deroulante
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande2_Click:
    Exit Sub
 
Err_Commande2_Click:
    MsgBox Err.Description
    Resume Exit_Commande2_Click
 
End Sub

et merci d'avance!

[ClaudeLELOUP]

Bonjour,

remplace

Code :

stLinkCriteria = "[Affectation]=" & "'" & Me![Affectation] & "'"

par

Code :

stLinkCriteria = "[Affectation]="""  & Me![Affectation] & """"

... tu as ainsi déplacé le problème : c'est quand ton texte contiendra un double quote que tu lèveras l'erreur.

Reviens si le risque existe.

[keita]

bonjour

Code :

1
2
3
4
5
6
7
8
9
Dim stDocName As String
Dim stLinkCriteria As String
Dim vAffect As String
vAffect = Me![Affectation]
vAffect = replace(vAffect,"'","''") ' pour doubler le quote dans affectation s'il y en a.
stDocName = "xsorties" 'c'est le nom du deuxieme formulaire
 
stLinkCriteria = "[Affectation]=" & "'" & vAffect & "'"  'affectation c'est la liste deroulante
DoCmd.OpenForm stDocName, , , stLinkCriteria

@+

[kovrov]

merci ClaudeLELOUP, ça marche bien!
encore merci