Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1423 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  utiliser les enregistrements d'une table Access en VBA

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

utiliser les enregistrements d'une table Access en VBA

n°1584006
daweed13
Posté le 09-07-2007 à 13:50:10  profilanswer
 

Je début actuellement sur VBA  et je souhaite récuperer des enregistrements dans une table pour pouvoir les attribuer à différentes variables et les travailler entre elles et je n'y arrive pas voici mon code à l'heure actuelle:
              Dim r_test as DAO.Recordset
              Dim R_All As String
              Dim evt_ID As Variant
 
               R_All = "Select * From T_tempChoixID
               Set r_test = CurrentDb.OpenRecordset(R_All, dbOpenForwardOnly, dbReadOnly)
               evt_ID = r_test![ID_choix]
 
Mais en faisant ça, je ne recupère que mon premier enregistrement (je l'affiche avec MsgBox evt_ID)
Or je sais compter le nombre d'enregistrement que j'ai et je voudrais comme en php pouvoir attribuer mes variables en ayant evt_ID[1];evt_ID[2]... et ainsi de suite pour pouvoir les utiliser dans une boucle.
Merci d'avance

mood
Publicité
Posté le 09-07-2007 à 13:50:10  profilanswer
 

n°1584018
olivthill
Posté le 09-07-2007 à 14:02:03  profilanswer
 

Faire :

 Dim r_test as DAO.Recordset  
   Dim R_All As String  
   Dim evt_ID(100) As Variant  
   Dim lg_num
 
   R_All = "Select * From T_tempChoixID  
   Set r_test = CurrentDb.OpenRecordset(R_All, dbOpenForwardOnly, dbReadOnly)  
 
   lg_num = 1
   While Not r_test.EOF  ' tant qu'il y a des lignes de résultat pour la requete
 
      If (lg_num > 100) Exit While
 
      evt_ID(lg_num) = r_test![ID_choix]
      lg_num = lg_num + 1
 
      ...
 
      r_test.MoveNext  ' passe à la ligne de résultat suivante
 
   Wend


Message édité par olivthill le 09-07-2007 à 14:08:52
n°1584070
daweed13
Posté le 09-07-2007 à 15:01:53  profilanswer
 

merci c'est super sympa de répondre vite et c'est vrai que j'ai du mal à transcrire ce que je sais faire en php vers VB et là c'est exactement ce que je cherchais

n°1881256
louloupe
Posté le 06-05-2009 à 07:59:46  profilanswer
 

J'ai un souci. J'ai une table  Access avec deux champs dimension et pondération. Je veux mettre que le champ pondération se remplisse automatiquement en fonction des données du champ dimension. C'est à dire je veux mettre les conditions suivantes sur le champ dimension:
 
if dimension >= 1,2 than ponderation =1
else
if dimension <1,2 & > 0,8 than ponderation =2
else
if dimension < 0,8 than ponderation =3
 
Aidez-moi car je sais pas comment utiliser VBA dans un champ access.
 
Merci
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  utiliser les enregistrements d'une table Access en VBA

 

Sujets relatifs
[VBA/EXCEL] Ligne ignorée dans la macro[Access] Mettre une valeur dans une zone de texte venant d'une table ?
Utiliser une commande CMD[SQL et PHP] Relier des données dans une table
[VBA] remplissage d'une valeur sur choix dans un menu déroulantGraphe sou VBA
VBA Excel Impression sur critères[Access] Valeur par défault liste déroulante
[Access] Formulaire - Table intermédiaire et champs multiselections 
Plus de sujets relatifs à : utiliser les enregistrements d'une table Access en VBA


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR