Discussion :

[30avril1989]

Bonjour,

Ma problèmatique:

J'ai deux tables Access, et j'aimerai qu'à partir d'une, je puisse mettre l'autre à jour, et ce en supprimant les doublons (si nécessaire), en supprimant les lignes éronnées (si nécessaire) et en modifiant certaines données (si nécessaire).

Je pense qu'il faudrait faire cette mise à jour avec l'aide de Recorset. Mais je n'ai aucunes idées de comment je dois m'y prendre.

Pourriez-vous me donner quelques idées svp.


Merci de l'aide que vous pourrez m'apporter !!!!

30avril1989

[rstck]

Bonjour,

je peux te donner quelques éléments de réponse que j'ai trouvés, à mon niveau, (1) pour mettre à jour une table :

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
 
'-- on se place dans la base courante
Dim Db As DAO.Database
Set Db = CurrentDb
'-- on ouvre la table portant le nom "NOM_TABLE"
Dim Tb As DAO.TableDef
Set Tb = Db.TableDefs("NOM_TABLE")
'-- on ouvre le recordset de cette table
Dim Rs As DAO.Recordset
Rs = Tb.OpenRecordset
 
'-- on parcourt les enregistrements
Do While Not Rs.EOF
   Rs.Edit
   '-- instructions de mise à jour
   Rs.Update
   Rs.MoveNext
Loop

Et (2) pour ajouter des enregistrements à une table :

Code :

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

1
2
3
4
5
6
7
 
Do While Not Rs.EOF
    Rs.AddNew
    '-- instructions qui remplissent les champs du nouvel enregistrement
    Rs.Update
    Rs.MoveNext
Loop

Néanmoins, je te conseillerais plutôt d'exécuter d'abord une requête d'ajout/mise à jour avec jointure gauche (ou droite, symétriquement) entre tes deux tables. Puis de passer par le recordset pour parcourir linéairement ta table et éliminer les enregistrements qui ne rentrent pas dans tes critères de choix.

Sur le sujet de la mise à jour d'une table, tu pourras consulter (sql/vba) :
http://access.developpez.com/faq/

Et plus généralement, sur le recordset, tu pourras trouver énormément d'informations ici :
http://warin.developpez.com/access/dao/
http://vb.developpez.com/bidou/recordset-ado/

[30avril1989]

Bonjour,

Voici mon 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
21
22
23
24
25
26
27
28
29
Public Function prout()

Dim Db As DAO.Database
Set Db = CurrentDb

Dim Tb As DAO.TableDefs
Set Tb = Db.TableDefs("employés")

'MonSql = "SELECT * FROM employés"

Dim Rs As DAO.Recordset
Set Rs = Db.OpenRecordset("SELECT * FROM employés")

Rs.AddNew
Rs![Numéro de poste] = 8
Rs![Prénom] = Valentin
Rs![Nom] = GERMAIN
Rs![Poste] = ASW
Rs![Bureau] = Vendome
Rs![Salaire] = 1000
Rs![Commission] = 123
Rs![Embauche] = 28 / 4 / 2010
Rs![Statut] = 9
Rs![Permanence] = oui
Rs![commentaire] = je
Rs.Update
Rs.Close

End Function

Lorsque je le compile, j'ai une erreur:

Erreur d'exécution: Incopatibilité de type

Cette erreur se situe sur la ligne de code qui est en gras et soulignée.

Merci pour l'aide que vous pourrez m'apporter.

30avril1989

[30avril1989]

Re,

J'ai réussi à résoudre mon problème de compilation.

Mais maintenant, le problème est que çà n'ajoute pas le nouvel enregistrement à la table "employés".

Merci pour votre aide!

30avril1989

[30avril1989]

Re,

Pour que ma table soit mise à jour, il faut que je revienne en "mode création" puis de nouveau "affichage" pour que je vois la mise à jour. Pourquoi?

Merci pour votre aide

30avril1989

[rstck]

Si tu veux ajouter des enregistrements à ta table, à mon avis, dans ton cas, il faut que tu travailles avec le recordset de ta table et pas celui de ta requête, qui, de toute façon, sélectionne tous les champs. C'est suffisant pour ce que tu veux, mais je ne sais pas si c'est nécessaire : je ne sais pas si une requête SELECT puis des AddNew sur son recordset a le même effet qu'une requête d'ajout. J'imagine que oui.

[30avril1989]

Je te remercie beaucoup!

[Tofalu]

Re,

Pour que ma table soit mise à jour, il faut que je revienne en "mode création" puis de nouveau "affichage" pour que je vois la mise à jour. Pourquoi?

Merci pour votre aide

30avril1989

L'enregistrement est ajouté mais tu ne le vois pas. Fais F5 (rafraichir) sur ta table et tu verras qu'il est bien présent.