Filtre : [Grave] Erreur de syntaxe (opérateur absent) dans l'expression !

**NaïsMouart** · 18/11/2008, 08h46

Bonjour,

Je souhaite ouvrir un formulaire avec un filtre à l'ouverture.
A priori, rien de bien compliqué, je sais.
Sauf que !

Je pars d'un formulaire "OSC" lié à une table "OSC". Les données ne peuvent pass être modifiées. Si on clique sur un bouton "Modifier l'enregistrement", je ferme alors mon formulaire, l'ouvre en mode création le temps d'autoriser les modifications des données, ferme, puis le réouvre en mode Formulaire, mais avec un filtre pour retrouver l'enregistrement que je voulais modifier.
L'index de ma table est OSC.Nom

J'ai donc essayé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Modifier_Click()
Dim db As DAO.Database
Dim qdf As QueryDef
Set db = CurrentDb
Dim a
a = Me.Nom
DoCmd.OpenForm "OSC", acDesign
'Ici, je modifie les propriétés de mon formulaire. (ça, ça marche)
DoCmd.Close acForm, "OSC"
Condition = "[Nom] = '" & a & "'"
DoCmd.OpenForm "OSC", acNormal, , Condition
End Sub

Mais Access me renvoie le message d'erreur :
"Erreur de syntaxte (opérateur absent) dans l'expression : "[Nom] = 'OSCn°1'"

Au moins, access reconnaît bien la valeur sur laquelle il faut filtrer (OSCn°1), mais...

J'ai le même problème avec mes requêtes SQL, le code étant le même !

Qu'est ce que j'ai mal fait ?

Merci de votre aide et de votre patience.

**Domi2** · 18/11/2008, 09h25

Bonjour,

Tout cela me semble assez compliqué...

Si tu veux simplement modifié des données, pourquoi ouvrir ton formulaire en mode "création" ?

Code :

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

DoCmd.OpenForm "OSC", acDesign

Cela ne semble pas correspondre à ce que tu cherches à faire.

Pour interdire la modification des données, tu as simplement mis la propriété Modif autorisée à non ?

Domi2

**NaïsMouart** · 18/11/2008, 09h42

Bonjour,

je dois ouvrir mon formulaire en mode création car je modifie d'autres propriétés. Par exemple, je passe du mode "Double Affichage" à "Formulaire Unique".
Mon seul problème est d'ouvrir avec un filtre ! Ca paraît simple, mais ca me dépasse...!

**spaiku** · 18/11/2008, 17h27

Bonjour,

je ne vois pas non plus ce qui pourrait poser problème dans ton code, même s'il est recommandé de toujours préciser le type de ses variables lors de leur déclaration (en l'occurrence, ta variable a est de type String).

Peux-tu poster le texte d'une requête qui ne marche pas ?

**NaïsMouart** · 19/11/2008, 11h28

Bonjour,

Tu m'as ainsi fait remarquer que je n'avais pas déclaré ma variable "Condition" ! (En fait, je vérifiais que tout le monde suivait...)
Comme quoi, il ne faut pas confondre vitesse et précipitation !
Et ca filtre, maintenant, mais j'ai fais tellement de manipulations entre temps que j'en perds la tête !
En revanche, ca me supprime la valeur du champ avec lequel je filtre !

Donc, mon code marche avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Modifier_Click()
Dim a As String
a = Me.Nom
DoCmd.SetWarnings Off
DoCmd.OpenForm "OSC", acDesign
Forms!OSC.DefaultView = 0
DoCmd.Close acForm, "OSC"
Dim Condition As String
Condition = "Nom='" & a & "'"
DoCmd.OpenForm "OSC", , , Condition
DoCmd.Maximize
End Sub

Mais ca me supprime la valeur de mon champ [Nom] avec :

Code :

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

1
2
3
4
5
6
7
Private Sub Panier_Click()
Dim a As String
Me.Nom = a
codeSQL = "INSERT INTO [Panier] SELECT DISTINCT * FROM OSC WHERE [Nom] = '" & a & "';"
DoCmd.RunSQL codeSQL
DoCmd.OpenTable "Panier"
End Sub