IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Requêtes et SQL. Discussion :

Requête qui ne marche pas quand je l'utilise en VBA ? [AC-2003]


Sujet :

Requêtes et SQL.

  1. #1
    Membre averti
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Points : 381
    Points
    381
    Par défaut Requête qui ne marche pas quand je l'utilise en VBA ?
    Bonjour,

    J'ai la requête suivante :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Dim MaTable As Recordset
    Set MaTable = CurrentDb.OpenRecordset("SELECT tbl_entreprises.Entreprise FROM tbl_entreprises INNER JOIN tbl_personnels ON tbl_entreprises.IdEntreprise = tbl_personnels.IdEntreprise WHERE (((tbl_personnels.IdPersonnel)=[Formulaires]![frm_visite_ajout]![lstVisite]))")
    lblEntreprise.Caption = MaTable("Entreprise")
    MaTable.Close
    Set MaTable = Nothing
    Elle me génère l'erreur suivante :
    Erreur d'exécution '3061':
    Too few parameters. Expected 1.
    Quand je l'exécute sans passer par le VBA, ça fonctionne, savez-vous ce qui peut bloquer dans ce cas ?

    MAJ : D'après mes tests, l'erreur est causée par mon critère [Formulaires]![frm_visite_ajout]![lstVisite] mais je ne sais pas pourquoi...

    Merci,
    ZiP

  2. #2
    Membre averti
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Points : 381
    Points
    381
    Par défaut
    Bonjour,

    J'ai réussi à contourner l'erreur de cette manière :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    Private Sub lstVisite_AfterUpdate()
        Dim MaTable As Recordset
     
        Set MaTable = CurrentDb.OpenRecordset("SELECT tbl_entreprises.Entreprise FROM tbl_entreprises INNER JOIN tbl_personnels ON tbl_entreprises.IdEntreprise = tbl_personnels.IdEntreprise WHERE (((tbl_personnels.IdPersonnel)=" & lstVisite.Value & "))")
        If MaTable.RecordCount > 0 Then
            lblEntreprise.Caption = MaTable("Entreprise")
        Else
            lblEntreprise.Caption = ""
        End If
        MaTable.Close
        Set MaTable = Nothing
    End Sub
    Ce n'est surement pas la meilleure des solutions, mais elle fonctionne !

    ZiP

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Requête qui ne marche pas sur une table Joomla.
    Par tintin72 dans le forum Requêtes
    Réponses: 2
    Dernier message: 26/02/2010, 18h51
  2. Projet Web qui ne marche pas quand déployé avec un WAR
    Par aeMAETH dans le forum Eclipse Java
    Réponses: 0
    Dernier message: 22/09/2009, 04h09
  3. requête qui ne marche pas (HTTP 500)
    Par ChTiRiBi dans le forum Requêtes et SQL.
    Réponses: 15
    Dernier message: 07/08/2008, 10h29
  4. requête qui ne marche pas
    Par ProgVal dans le forum Débuter
    Réponses: 5
    Dernier message: 08/07/2008, 16h21
  5. [php-mysql] requête qui ne marche pas....
    Par sanosuke85 dans le forum Requêtes
    Réponses: 1
    Dernier message: 09/01/2006, 18h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo