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

VBA Access Discussion :

Requete Access sql sous vba Excel


Sujet :

VBA Access

  1. #1
    Membre régulier
    Inscrit en
    Avril 2007
    Messages
    268
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 268
    Points : 91
    Points
    91
    Par défaut Requete Access sql sous vba Excel
    Bonjour,
    je ne sais pas si je post au bon endroit...
    Je veux récupérer les résultats d'une requête par un recordset depuis excel et j'ai une vilaine "Erreur de syntaxe"....
    Je suis la tête dessus depuis trop longtemps pour pouvoir voir l'erreur aussi bête est elle

    J'aurais donc besoin d'une petite aide
    Merci d'avance.


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Set Rs1 = CurrentDb.OpenRecordset("SELECT VALEUR ISIN, SECID FROM TBL_BO GROUP BY VALEUR ISIN, SECID HAVING SECID Is Null")
     
    If Rs1.RecordCount > 0 Then

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Si VALEUR ISIN est le nom d'un champ, entoure le de crochet partout où tu le trouves dans ta chaine.

    Starec

  3. #3
    Membre régulier
    Inscrit en
    Avril 2007
    Messages
    268
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 268
    Points : 91
    Points
    91
    Par défaut
    OUI VALEUR ISIN et SECID sont bien des champs mais

    "Incompatibilité de type"

  4. #4
    Membre expérimenté

    Profil pro
    Inscrit en
    Juin 2003
    Messages
    1 229
    Détails du profil
    Informations personnelles :
    Localisation : Sénégal

    Informations forums :
    Inscription : Juin 2003
    Messages : 1 229
    Points : 1 579
    Points
    1 579
    Par défaut
    C'est ton sql qui n'est pas normalisé.

    - Group By est utilisé sans de fonction de regroupement (Sum, Count,)
    - Is null est mal utilisé il me semble.
    - A la place de having c'est un where qui semble plus adapté

    essai
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Set Rs1 = CurrentDb.OpenRecordset("SELECT [VALEUR ISIN], SECID FROM TBL_BO Where SECID=Null")

  5. #5
    Membre régulier
    Inscrit en
    Avril 2007
    Messages
    268
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 268
    Points : 91
    Points
    91
    Par défaut
    Pourtant ça ne marche toujours pas
    j'ai une nouvelle erreur:

    variable objet ou variable de bloc with non défini.

    Et surtout la requete n'est pas du tt la meme

  6. #6
    Membre régulier
    Profil pro
    Inscrit en
    Juin 2005
    Messages
    101
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2005
    Messages : 101
    Points : 96
    Points
    96
    Par défaut
    c'est que tu as une autres erreur.
    Sans le code c'est plus dur

  7. #7
    Membre régulier
    Inscrit en
    Avril 2007
    Messages
    268
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 268
    Points : 91
    Points
    91
    Par défaut
    Une erreur dans le code ?

    Je ne pense pas mais le voici

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Dim Rs1 As Recordset
    Dim Rs2 As Recordset
    Dim rm As Integer
    Dim MonAccess As New Access.Application
    MonAccess.OpenCurrentDatabase "F:\- Bureau -\Rappro_titre.mdb"
    MonAccess.Visible = False
    MonAccess.docmd.RunMacro "1-MAJ-TBL-BO"
     
    MonAccess.Visible = True
     
    Set Rs1 = CurrentDb.OpenRecordset("SELECT [VALEUR ISIN], SECID FROM TBL_BO Where SECID=Null")
    If Rs1.RecordCount > 0 Then
    MsgBox ("Un contrat est absent, merci de le renseigner")
    De plus ici j'utilise l'exemple qu'a donnée dpbound mais ca n'a rien a vir avec ma requete initiale en utilisant un where je ne requete pas la meme chse que ce que je voulais au debut

Discussions similaires

  1. Réponses: 7
    Dernier message: 03/10/2007, 20h06
  2. Requete SQL sous VBA
    Par titeZ dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 05/08/2007, 11h05
  3. Réponses: 3
    Dernier message: 03/08/2007, 00h41
  4. Requete SQL sous VBA
    Par Sam 069 dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 27/07/2006, 12h04
  5. Format dans Requete SQL sous VBA
    Par Sam 069 dans le forum Requêtes et SQL.
    Réponses: 1
    Dernier message: 18/07/2006, 13h09

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