Discussion :

[toumack]

Bonjour,
Avec ce code, j'obtiens une erreur de syntaxe, est-ce que je ne sais plus comment ou suis-je trop fatigué pour trouver, mais est-ce que quelqu'un aurait la gentillesse de me dire ou est cette erreur:

Code :

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

1
2
3
4
5
6
7
lngCat = CLng(Split(Me.OpenArgs), ";")(0))
    lngSubCat = CLng(Split(Me.OpenArgs), ";")(1))
    strSQL = "SELECT ID, [Nom du produit] " & _
      "FROM Produits "
      "WHERE Catégorie = " & lngCat & " " & _
      "AND SousCatégorie = " & lngSubCat & " " & _
      "ORDER BY ID"

Merci

[micniv]

Bonjour,
essaie

Code :

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

1
2
3
4
5
6
7
8
9
10
 
lngCat = nz(CLng(Split(Me.OpenArgs), ";")(0)),0)
    lngSubCat = nz(CLng(Split(Me.OpenArgs), ";")(1)),0)
 
 strSQL = "SELECT ID, [Nom du produit] " & _
      " FROM Produits "
      " WHERE Catégorie = " & lngCat  & _
      " AND SousCatégorie = " & lngSubCat & _
      " ORDER BY ID"
Debug.print strSql

lit le résultat de Debug;print dans la fenetre execution de l'éditeur VBE
soit après ou en cours d'éxécution si débugage est proposé
ou mieux en débuggant en pas à pas

[PapouDomi]

Bonsoir.
Il manque aussi & _ après FROM PRODUITS
Cordialement, Dominique

[PapouDomi]

Ci dessous le code qui doit fonctionner

Code :

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

1
2
3
4
5
6
7
  lngcat = CLng(Split(Me.OpenArgs, ";")(0))
  lngsubcat = CLng(Split(Me.OpenArgs, ";")(1))
  strsql = "SELECT ID, [Nom du produit] " & _
  "FROM Produits " & _
        "WHERE Catégorie = " & lngcat & " " & _
        "AND SousCatégorie = " & lngsubcat & " " & _
        "ORDER BY ID"

Une parenthèse en trop après OPenArgs.
Cordialement, Dominique