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

Access Discussion :

Problème de syntaxe avec un Recordset


Sujet :

Access

  1. #1
    Membre à l'essai
    Homme Profil pro
    Access VBA
    Inscrit en
    novembre 2020
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : Access VBA

    Informations forums :
    Inscription : novembre 2020
    Messages : 12
    Points : 13
    Points
    13
    Par défaut Problème de syntaxe avec un Recordset
    Bonjour,
    J'ai un Recordset rq contenant les champs: P1, P2, P3, P4, Nb1, Nb2, Nb3, Nb4
    J'aimerais récupérer les valeurs de ces champs dans 2 tableaux mp(4) et mnb(4)

    Cette variante "en dur" fonctionne pour P1. Bien sûr je pourrais répéter cela 4 fois, jusqu'à P4.
    Mais cela serait plus élégant d'avoir une boucle, seulement je ne trouve pas la bonne syntaxe.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
            If rq!p1 <> "" Then
              If TraitAReprendre(rq!p1) Then
                 mp(1) = rq!p1
                 mnb(1) = rq!nb1
              End If
            End If

    Voici mon essai qui ne fonctionne évidemment pas !
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
           For i = 1 To 4 
            If "rq!p" & i <> "" Then
              If TraitAReprendre("rq!p" & i) Then
                 mp(i) = "rq!p" & i
                 mnb(i) = "rq!nb" & i
              End If
            End If
           Next i
    Merci d'avance si vous avez une solution pour moi !

  2. #2
    Expert confirmé Avatar de nico84
    Homme Profil pro
    Consultant/développeur ERP
    Inscrit en
    mai 2008
    Messages
    2 985
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Consultant/développeur ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : mai 2008
    Messages : 2 985
    Points : 5 001
    Points
    5 001
    Par défaut
    Bonjour,

    Essaie avec cette syntaxe :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    mp(i) = rq.Fields("p" & i)
    Utilisez Planet, gestion d'entreprise gratuite pour TPE / PME

  3. #3
    Membre à l'essai
    Homme Profil pro
    Access VBA
    Inscrit en
    novembre 2020
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : Access VBA

    Informations forums :
    Inscription : novembre 2020
    Messages : 12
    Points : 13
    Points
    13
    Par défaut
    Merci beaucoup Nico, cela fonctionne !

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

Discussions similaires

  1. [VB-Excel]problème de syntaxe avec Array
    Par DomBourti dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 13/07/2006, 21h30
  2. Problème de syntaxe avec des nombres
    Par baleiney dans le forum Langage
    Réponses: 7
    Dernier message: 09/07/2006, 10h48
  3. Problème de syntaxe avec le composant TCppWebBrowser
    Par Ptite Développeuse dans le forum C++Builder
    Réponses: 10
    Dernier message: 19/04/2006, 15h48
  4. problème de police avec un recordset
    Par Asdorve dans le forum VB 6 et antérieur
    Réponses: 9
    Dernier message: 18/04/2006, 13h33
  5. problème de syntaxe avec champ date
    Par mussara dans le forum SQL Procédural
    Réponses: 4
    Dernier message: 03/02/2006, 16h19

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