Voilà nous avons des base de données qui évolue de temps en temps ....
Ajout de champ dans certaines tables, suppression de table, de champ.
Nous voudrions créer un tit logiciel qui nous permet de mettre à jour les
nouvelles BD avec les infos de l'ancienne ...
Toutes les lignes avec *** sont les lignes avec lesquelles nous ne savons
pas faire la fonction ...
Sélection BD new
Sélection Bd Ancien
boucle avec les tables de BD new ***
boucle des champs dans table BD new ***
trouver champs correspondant dans BD ancien
remplir champ dans bd new
Boucle jusqu'a finir les champs
boucle jusqu'a finir les tables
Msgbox "fin"
Je ne sais pas comment faire pour copier les enregistrement d'une table vers
une autre sachant que nous ne savons pas les champs contenut dans la nouvelle
et ancienne BD. lister les tables ...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Charles ERNST
Private Sub Commande0_Click() Dim Db As Database Dim T As TableDef, T1 As TableDef Dim F As Field, f1 As Field
Set Db = CurrentDb Set T = Db.TableDefs("Nouvelle Table") Set T1 = Db.TableDefs("ancienne table")
On Error Resume Next For Each F In T.Fields Set f1 = T1.Fields(F.Name) If Err Then ' champ inexistant dans ancienne table Else ' requète de mise à jour End If Next For Each f1 In T1.Fields Set F = T1.Fields(f1.Name) If Err Then ' champ supprimé dans nouvelle table ' traitement End If Next End Sub
"Doudou" a écrit dans le message de news:
Bonjour,
Voilà nous avons des base de données qui évolue de temps en temps .... Ajout de champ dans certaines tables, suppression de table, de champ.
Nous voudrions créer un tit logiciel qui nous permet de mettre à jour les nouvelles BD avec les infos de l'ancienne ...
Toutes les lignes avec *** sont les lignes avec lesquelles nous ne savons pas faire la fonction ...
Sélection BD new Sélection Bd Ancien
boucle avec les tables de BD new *** boucle des champs dans table BD new *** trouver champs correspondant dans BD ancien remplir champ dans bd new Boucle jusqu'a finir les champs boucle jusqu'a finir les tables Msgbox "fin"
Je ne sais pas comment faire pour copier les enregistrement d'une table vers une autre sachant que nous ne savons pas les champs contenut dans la nouvelle et ancienne BD. lister les tables ...
Merci beaucoup d'avance
Private Sub Commande0_Click()
Dim Db As Database
Dim T As TableDef, T1 As TableDef
Dim F As Field, f1 As Field
Set Db = CurrentDb
Set T = Db.TableDefs("Nouvelle Table")
Set T1 = Db.TableDefs("ancienne table")
On Error Resume Next
For Each F In T.Fields
Set f1 = T1.Fields(F.Name)
If Err Then
' champ inexistant dans ancienne table
Else
' requète de mise à jour
End If
Next
For Each f1 In T1.Fields
Set F = T1.Fields(f1.Name)
If Err Then
' champ supprimé dans nouvelle table
' traitement
End If
Next
End Sub
"Doudou" <Doudou@discussions.microsoft.com> a écrit dans le message de news:
C758B500-2FA0-4948-8003-970ECB4CD20D@microsoft.com...
Bonjour,
Voilà nous avons des base de données qui évolue de temps en temps ....
Ajout de champ dans certaines tables, suppression de table, de champ.
Nous voudrions créer un tit logiciel qui nous permet de mettre à jour les
nouvelles BD avec les infos de l'ancienne ...
Toutes les lignes avec *** sont les lignes avec lesquelles nous ne savons
pas faire la fonction ...
Sélection BD new
Sélection Bd Ancien
boucle avec les tables de BD new ***
boucle des champs dans table BD new ***
trouver champs correspondant dans BD ancien
remplir champ dans bd new
Boucle jusqu'a finir les champs
boucle jusqu'a finir les tables
Msgbox "fin"
Je ne sais pas comment faire pour copier les enregistrement d'une table
vers
une autre sachant que nous ne savons pas les champs contenut dans la
nouvelle
et ancienne BD. lister les tables ...
Private Sub Commande0_Click() Dim Db As Database Dim T As TableDef, T1 As TableDef Dim F As Field, f1 As Field
Set Db = CurrentDb Set T = Db.TableDefs("Nouvelle Table") Set T1 = Db.TableDefs("ancienne table")
On Error Resume Next For Each F In T.Fields Set f1 = T1.Fields(F.Name) If Err Then ' champ inexistant dans ancienne table Else ' requète de mise à jour End If Next For Each f1 In T1.Fields Set F = T1.Fields(f1.Name) If Err Then ' champ supprimé dans nouvelle table ' traitement End If Next End Sub
"Doudou" a écrit dans le message de news:
Bonjour,
Voilà nous avons des base de données qui évolue de temps en temps .... Ajout de champ dans certaines tables, suppression de table, de champ.
Nous voudrions créer un tit logiciel qui nous permet de mettre à jour les nouvelles BD avec les infos de l'ancienne ...
Toutes les lignes avec *** sont les lignes avec lesquelles nous ne savons pas faire la fonction ...
Sélection BD new Sélection Bd Ancien
boucle avec les tables de BD new *** boucle des champs dans table BD new *** trouver champs correspondant dans BD ancien remplir champ dans bd new Boucle jusqu'a finir les champs boucle jusqu'a finir les tables Msgbox "fin"
Je ne sais pas comment faire pour copier les enregistrement d'une table vers une autre sachant que nous ne savons pas les champs contenut dans la nouvelle et ancienne BD. lister les tables ...
