Discussion :

[BW7541]

Bonjour, dans un formulaire de type "tableau" je souhaite lier une liste modifiable "sous_catégorie" pour n'afficher que les sous_catégories liées à la liste modifiable "catégories" de la même ligne sur le formulaire.
Dans l'évènement "RéceptionFocus" du champ sous_catégories, j'ai inséré cette requête

Code :

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

1
2
3
4
Me.liste_sous_categories.RowSource = "SELECT
[tb_sous_categorie].[sous_categorie], [tb_sous_categorie].[lien_categ] FROM
tb_sous_categorie WHERE ((([tb_sous_categorie].[lien_categ])))= \'" &
Me.categorie & "\'; "

Mais mon code ne doit pas être bon car il me renvoie une erreur:

Code :

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

1
2
"Erreur de syntaxe (opérateur absent) dans l'expression 
((([tb_sous_categorie].[lien_categ])))= \'138\"

138 étant le code de la catégorie de la ligne concernée.

C'est donc un problème de syntaxe que je n'arrive pas à résoudre, j'ai essayé
plusieurs syntaxes mais à chaque fois je me plante.

Quelle est la bonne syntaxe?

Merci d'avance

[Marc_27]

Bonjour BW7541

qu'est-ce que sont les "\"?
Normalement je fais

Code :

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

...=138

ou si c'est du texte:

Code :

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

...='138'

[BW7541]

Bonjour,
ce n'est pas la valeur absolue mais une variable (en l'occurence le code catégorie du formulaire) qui contient la valeur paramètre.

[Marc_27]

T'as déjà essayé de les mettre dans les ':

Code :

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

...='\138\'

[BW7541]

j'ai essayé :
= '\" & Me.categorie & "\';

il m'envoie l'erreur "Type de données incompatible dans l'expression du critère"

j'ai essayé :
= '\& Me.categorie &\'; "

même message d'erreur

Pour tout dire je me suis inspiré des modèles ci-dessous qui eux fonctionnent

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Modifiable46_NotInList(NewData As String, Response As Integer) 
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des categories ?", _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
        DoCmd.RunSQL "INSERT INTO tb_categories (categorie) SELECT """ & NewData & """;"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        Modifiable46.Undo
    End If
 
End Sub

En VBA bibliothèque ADO :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Modifiable0_NotInList(NewData As String, Response As Integer) 
    dim cn as adodb.connection 
    set cn = currentproject.connection      
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des prénoms ?",  _
                    vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then 
        cn.execute "Insert into tblPrenoms values(\'" & NewData & "\');" 
        Response = acDataErrAdded 
    Else 
        Response = acDataErrContinue 
        Modifiable0.Undo 
    End If 
End Sub

[Marc_27]

Je jamais utilisé les \.

Mes idées finissent la...

[BW7541]

Merci quand même