OVH Cloud OVH Cloud

mise à jour d'une table en VBA

2 réponses
Avatar
...Patrick
Bonjour,

je cherche à mettre à jour par VBA une table "reservations" par la méthode
suivante:
1) importer des données dans une table appellée "reservationNEW"
2) effacer le contenu de la table "reservations"
3) mettre les nouveaux enregistrements de "reservationNEW" dans
"reservations".

Le code est certainement court mais je n'ai que ceci pour l'instant:

sub Importer()
' 1) importer depuis excel dans un table provisoire
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97,
"T_reservationsNEW", _
"D:\Files Access\t_reservations.xls", True, "Feuil1!"

' 2) effacer les données de la table "reservations"


' 3) mettre à jour "reservations" avec les données de "réservationsNEW"


end sub

2 réponses

Avatar
Eric
Bonjour,

En supposant que les tables ont la même structure:

2-Currentdb.Execute "Delete from reservations"
3-Currentdb.Execute " Insert Into Reservations Select * from
t_reservationsNEW"
4- non demandé, mais après verification, supprimer la table temporaire
t_reservationsNEW soit:
Currentdb.Tabledefs.delete "t_reservationsNEW"

Bonjour,

je cherche à mettre à jour par VBA une table "reservations" par la
méthode suivante:
1) importer des données dans une table appellée "reservationNEW"
2) effacer le contenu de la table "reservations"
3) mettre les nouveaux enregistrements de "reservationNEW" dans
"reservations".

Le code est certainement court mais je n'ai que ceci pour l'instant:

sub Importer()
' 1) importer depuis excel dans un table provisoire
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97,
"T_reservationsNEW", _
"D:Files Accesst_reservations.xls", True, "Feuil1!"

' 2) effacer les données de la table "reservations"


' 3) mettre à jour "reservations" avec les données de "réservationsNEW"


end sub


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
...Patrick
Merci Eric , j'essaie ça tres vite !

Bye


"Eric" a écrit dans le message de news:
%
Bonjour,

En supposant que les tables ont la même structure:

2-Currentdb.Execute "Delete from reservations"
3-Currentdb.Execute " Insert Into Reservations Select * from
t_reservationsNEW"
4- non demandé, mais après verification, supprimer la table temporaire
t_reservationsNEW soit:
Currentdb.Tabledefs.delete "t_reservationsNEW"

Bonjour,

je cherche à mettre à jour par VBA une table "reservations" par la
méthode suivante:
1) importer des données dans une table appellée "reservationNEW"
2) effacer le contenu de la table "reservations"
3) mettre les nouveaux enregistrements de "reservationNEW" dans
"reservations".

Le code est certainement court mais je n'ai que ceci pour l'instant:

sub Importer()
' 1) importer depuis excel dans un table provisoire
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97,
"T_reservationsNEW", _
"D:Files Accesst_reservations.xls", True, "Feuil1!"

' 2) effacer les données de la table "reservations"


' 3) mettre à jour "reservations" avec les données de "réservationsNEW"


end sub


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr