Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 30/03/2011, 15h48   #1
Membre du Club
 
Homme Claude Larocque
Développeur informatique
Inscription : mai 2009
Messages : 61
Détails du profil
Informations personnelles :
Nom : Homme Claude Larocque
Localisation : Canada

Informations professionnelles :
Activité : Développeur informatique
Secteur : Finance

Informations forums :
Inscription : mai 2009
Messages : 61
Points : 46
Points : 46
Par défaut Erreur de syntaxe que j'aimerais bien trouver

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 :
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
toumack est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 30/03/2011, 17h35   #2
Membre Expert
 
Homme Michel
Ingénieur développement logiciels
Inscription : mai 2005
Messages : 1 584
Détails du profil
Informations personnelles :
Nom : Homme Michel
Localisation : France, Val de Marne (Île de France)

Informations professionnelles :
Activité : Ingénieur développement logiciels
Secteur : High Tech - Éditeur de logiciels

Informations forums :
Inscription : mai 2005
Messages : 1 584
Points : 2 143
Points : 2 143
Bonjour,
essaie
Code :
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
__________________
"tout le monde veut sauver la planète, mais personne ne veut descendre les poubelles." J Yanne
micniv est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 30/03/2011, 18h00   #3
Membre actif
 
Homme Dominique
Gestion parc machine, assistance informatique, développement Access, Excel...
Inscription : février 2007
Messages : 130
Détails du profil
Informations personnelles :
Nom : Homme Dominique
Âge : 56
Localisation : France, Puy de Dôme (Auvergne)

Informations professionnelles :
Activité : Gestion parc machine, assistance informatique, développement Access, Excel...
Secteur : Service public

Informations forums :
Inscription : février 2007
Messages : 130
Points : 161
Points : 161
Bonsoir.
Il manque aussi & _ après FROM PRODUITS
Cordialement, Dominique
PapouDomi est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 30/03/2011, 18h31   #4
Membre actif
 
Homme Dominique
Gestion parc machine, assistance informatique, développement Access, Excel...
Inscription : février 2007
Messages : 130
Détails du profil
Informations personnelles :
Nom : Homme Dominique
Âge : 56
Localisation : France, Puy de Dôme (Auvergne)

Informations professionnelles :
Activité : Gestion parc machine, assistance informatique, développement Access, Excel...
Secteur : Service public

Informations forums :
Inscription : février 2007
Messages : 130
Points : 161
Points : 161
Ci dessous le code qui doit fonctionner
Code :
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
PapouDomi est déconnecté   Envoyer un message privé Réponse avec citation 10
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 03h34.


 
 
 
 
Partenaires

Hébergement Web