[AC-2007] Opérateur absent Recordsource formulaire [Résolu]

[Jordywolf]

Bonjour à tous,
je developpe une petite base de données sous access 2007 dans laquelle deux listes deroulantes d'un formulaire me permettent de mettre a jour les enregistrements d'un sous-formulaire. Ce n'est pas la premiere fois que je fais cela mais la j'ai un code d'erreur (operateur absent) sur la requete SQL et je ne comprends vraiment pas pourquoi. Pouvez-vous m'aider?

je vous livre le code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'met a jour les enregistrements du sous formulaire en fonction des criteres
 
Dim champcrit, critere, compt As Variant
Dim strNewRecord, moncheck, stTri As String
 
'initialise les valeurs
 
champcrit = Me!Ch_Crit1 (Liste qui renvoit les champs de la requete source)
critere = Me!Crit1 (liste mise a jour par les valeurs distinctes de champcrit)
 
strNewRecord = "SELECT R_tri_date.* FROM R_tri_date WHERE (((R_tri_date." & champcrit & ")= '" & critere & "')) ORDER BY R_tri_date.Numero;"
stTri = "(((R_tri_date." & champcrit & ")='" & critere & "'))"
 
End Select
 
'met a jour les enregistrements du sous formulaire
 
Forms![F_RECH]![SF_FREX].Form.RecordSource = strNewRecord
Me!SF_FREX.Requery
'met a jour le nombre d'enregistrement
compt = DCount("*", "R_tri_date", stTri)
Me!E_crit.Caption = compt & " fiches correspondent aux critères sélectionnés"
 
End Sub

le copier/coller du code a generé des retours sur l'expression SQL mais elle se trouve en une seule ligne dans mon code.
A noter que cette fonction fonctionnait tres bien sous access 2003 mais je suis passé à 2007 et depuis je n'arrive plus a la faire fonctionner.
L'erreur est sur la propriete recordsource (operateur absent ou erreur de syntaxe) et aussi sur la fonction DCount.
Merci de bien vouloir m'aider car je m'arrache les cheveux.

[marot_r]

Vérfie si tu n'as pas une référence brisée.

Vois aussi si définir ton objet recordset de type DAO.Recordset ne résoudrait pas le problème.

A+

[Jordywolf]

Merci marot,

mais je pense que cela est du au fait que j'ai des apostrophes dans mes critères et je vais résoudre cela en changeant les apostrophes par des guillemets.
Encore merci
A+

[marot_r]

Oui en effet je n'avais pas pensé à cela.

Tu peux aussi si tu veux doubler tes ' dans tes paramètres avec une petite fonction du type :

Code :

1
2
3
4
5
6
7
8
9
public sub DoublerApostrophe(prmValeur as variant) as variant
  dim result as variant:result=null
 
  if not isnull(prmValeur) then
    result=replace(prmvaleur,"'","''")
  end if
 
  DoublerApostrophe=result
end function

A+