Discussion :

[hannii]

Bonjour,

voilà 1 jour que je cherche dans tout le forum sans rien trouver.
Mon travail est le suivant: il y a la Table1 sous Access que je compte travaillée en passant par visual basic (toujours sous Access).

Le but est de parcourir tous les enregistrements de cette table à l'aide d'une boucle. Jusqu'ici tout va bien.

Pour chaque enregistrement, un jeu de conditions du genre :
Si le champ A est vrai alors copier l'enregistrement dans la table 2 (que je créé au préalable).
Si le champ A est faux alors je vérifie d'autres champs et je copie ou pas dans l'idée de modifier des champs ou d'en déplacer par la suite. (toutes les modifications seront apportées sur la table 2)

Voilà donc le principe.
Le problème, pour l'instant, se situe au niveau de la récupération de la valeur d'un champ afin de la comparer ou de voir son état (vrai ou faux pour mes cases à cocher).

Voici mon début de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Commande6_Click()
 
Dim a, b As String
b = 100
 
DoCmd.OpenTable "Table1", acViewNormal, acReadOnly
 
 
For a = 1 To b then
DoCmd.GoToRecord acDataTable, "Table1", acNext
DoCmd.GoToControl ("Champ1")
ActiveControl.SetFocus
If Champ1 = vrai Then
    ...   'conditions pas encore établies
End If
DoCmd.CopyObject , "Table2", acTable, "Table1"
Next
 
End Sub

Si quelqu'un a bien compris et c'est comment je peux m'en sortir ? Une fois le ces quelques termes compris je pourrais enfin grandir mon code afin d'accomplir toutes les opérations qu'il me faut.

En tout cas merci d'avance.

[niclalex]

Bonjour,
La methode qui va bien pour "lire" les champs d'une table ou requete est le RECORDSET. §Je te laisse feuilleter la fac je suis sur que tu trouvera ton bonheur.
a+

[hannii]

Merci pour l'info. Je suis allé voir ça sur la FAQ mais là je suis confronté à un autre problème. Je n'y comprend rien du tout
Je n'arrive pas à trouver ce qui me concerne dans le recordset...

[Invité]

Dans l'éditeur VBA -> Menu "Outils" -> "Références"
Vérifier que "Microsoft DAO 3.6 Object Library" est bien coché !

Ensuite, tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub ParcourEnr()
On Error GoTo Erreur_Proc
  Dim rs As DAO.Recordset, db As Database
  Set db = Application.CurrentDb
  Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
  With rs
    Do
      If .Fields("Champ1") = True then
        .Edit
        ' On peut modifier les champs que l'on veut ici
        .Fields("Champ2") = "MonTexte"
        ' Ne pas oublier de mettre à jour
        .Update
      Endif
    While Not .Eof
  End With
 
Exit_Proc:
  rs.Close
  Set rs = Nothing
  Set db = Nothing
  Exit Sub
 
Erreur_Proc:
  MsgBox Err.Description & vbCrLf & "Inscription dans fichier 'ErrorLog.txt'"
  Resume Exit_Proc
End Sub

Un truc de ce style là

[hannii]

Ou plutot :

Do Until
.
.
.
Loop


Merci énormément, voilà ce qu'il me fallait. Ca marche parfaitement. Il ne me reste donc plus qu'à compliquer sérieusement la partie des conditions (en espérant que ce ne sera pas trop lourd pour mon CPU), mais je pense que pour cette macro le plus dur est passé.

Et sincèrement je ne pense pas que j'aurais réussi seul.

Encore