salut à toi
Mets dans une nouvelle table tes nouvelles agences que tu nomeras "Agences"
Dans un module tu mets ce code :
Public Function Ajout() As Boolean
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "Agences" Then
CurrentDb.Execute "Insert into " & tdf.Name & " Select * From Agences"
End If
Next
End Function
Exécutes ce code via une Macro
Celà devrait faire
Dis moi !!!!
J'ai suivi tes instructions.
salut à toi
Mets dans une nouvelle table tes nouvelles agences que tu nomeras "Agences"
Dans un module tu mets ce code :
Public Function Ajout() As Boolean
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "Agences" Then
CurrentDb.Execute "Insert into " & tdf.Name & " Select * From Agences"
End If
Next
End Function
Exécutes ce code via une Macro
Celà devrait faire
Dis moi !!!!
J'ai suivi tes instructions.
salut à toi
Mets dans une nouvelle table tes nouvelles agences que tu nomeras "Agences"
Dans un module tu mets ce code :
Public Function Ajout() As Boolean
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "Agences" Then
CurrentDb.Execute "Insert into " & tdf.Name & " Select * From Agences"
End If
Next
End Function
Exécutes ce code via une Macro
Celà devrait faire
Dis moi !!!!
J'ai suivi tes instructions.
Rebonjour à toi
Attention d'utiliser dans le code le même nom que celui de la table créée :
Table créée : Zagences
donne ce code :
Public Function Ajout() As Boolean
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "Zagences" Then
CurrentDb.Execute "Insert into " & tdf.Name & " Select * From Zagences"
End If
Next
End Function
surtout ne pas utiliser dans le code : zAgences
qui n'est pas la même chose que Zagences
Ce qui semblerait être le cas à en croire ta réponse
A vérifier !!!!!
Rebonjour à toi
Attention d'utiliser dans le code le même nom que celui de la table créée :
Table créée : Zagences
donne ce code :
Public Function Ajout() As Boolean
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "Zagences" Then
CurrentDb.Execute "Insert into " & tdf.Name & " Select * From Zagences"
End If
Next
End Function
surtout ne pas utiliser dans le code : zAgences
qui n'est pas la même chose que Zagences
Ce qui semblerait être le cas à en croire ta réponse
A vérifier !!!!!
Rebonjour à toi
Attention d'utiliser dans le code le même nom que celui de la table créée :
Table créée : Zagences
donne ce code :
Public Function Ajout() As Boolean
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "Zagences" Then
CurrentDb.Execute "Insert into " & tdf.Name & " Select * From Zagences"
End If
Next
End Function
surtout ne pas utiliser dans le code : zAgences
qui n'est pas la même chose que Zagences
Ce qui semblerait être le cas à en croire ta réponse
A vérifier !!!!!
Rebonjour à toi
Aprés analyse de ta base le code fonctionne trés bien
Tout d'abors utilises dans la macro "Ajout Nouvelles CCM" l'Action
"ExécuterCode" en choisissant la fonction de la base "Ajout Nouvelles CCM"
Puis pour que l'ajout dans les tables fonctionne il est impératif que les
données de chaque champ à rajouter soient compatibles avec la nature du champ
de destination
Tu ne peux intégrer dans un champ Numérique des données Textes
En l'état les données de la table zAgences ne peuvent être intégrées dans
les autres tables suite à incompatibilité de type
Si tu essaies par un copier/coller basique l'opération c'est un échec total
Résouds ce problème et le code fonctionnera
Si tu arrives par un copier/coller manuel la recopie des données de la table
zAgences dans une table de destination sachant qu'elles doivent être toutes
identiques au niveau de la structure de leurs champs le code sera opérationnel
Pour l'ajout des colonnes je te propose ce code testé avec ta base :
Champ supplémentaire de type Numérique
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " Numeric"
End If
Next
End Function
Champ supplémentaire de type Texte
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " text"
End If
Next
End Function
Le code demandera par l'intémédiaire d'une boîte de dialogue le libellé du
champ à rajouter puis l'intégrera dans toutes les tables
Fais des essais et dis moi
Rebonjour à toi
Aprés analyse de ta base le code fonctionne trés bien
Tout d'abors utilises dans la macro "Ajout Nouvelles CCM" l'Action
"ExécuterCode" en choisissant la fonction de la base "Ajout Nouvelles CCM"
Puis pour que l'ajout dans les tables fonctionne il est impératif que les
données de chaque champ à rajouter soient compatibles avec la nature du champ
de destination
Tu ne peux intégrer dans un champ Numérique des données Textes
En l'état les données de la table zAgences ne peuvent être intégrées dans
les autres tables suite à incompatibilité de type
Si tu essaies par un copier/coller basique l'opération c'est un échec total
Résouds ce problème et le code fonctionnera
Si tu arrives par un copier/coller manuel la recopie des données de la table
zAgences dans une table de destination sachant qu'elles doivent être toutes
identiques au niveau de la structure de leurs champs le code sera opérationnel
Pour l'ajout des colonnes je te propose ce code testé avec ta base :
Champ supplémentaire de type Numérique
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " Numeric"
End If
Next
End Function
Champ supplémentaire de type Texte
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " text"
End If
Next
End Function
Le code demandera par l'intémédiaire d'une boîte de dialogue le libellé du
champ à rajouter puis l'intégrera dans toutes les tables
Fais des essais et dis moi
Rebonjour à toi
Aprés analyse de ta base le code fonctionne trés bien
Tout d'abors utilises dans la macro "Ajout Nouvelles CCM" l'Action
"ExécuterCode" en choisissant la fonction de la base "Ajout Nouvelles CCM"
Puis pour que l'ajout dans les tables fonctionne il est impératif que les
données de chaque champ à rajouter soient compatibles avec la nature du champ
de destination
Tu ne peux intégrer dans un champ Numérique des données Textes
En l'état les données de la table zAgences ne peuvent être intégrées dans
les autres tables suite à incompatibilité de type
Si tu essaies par un copier/coller basique l'opération c'est un échec total
Résouds ce problème et le code fonctionnera
Si tu arrives par un copier/coller manuel la recopie des données de la table
zAgences dans une table de destination sachant qu'elles doivent être toutes
identiques au niveau de la structure de leurs champs le code sera opérationnel
Pour l'ajout des colonnes je te propose ce code testé avec ta base :
Champ supplémentaire de type Numérique
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " Numeric"
End If
Next
End Function
Champ supplémentaire de type Texte
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " text"
End If
Next
End Function
Le code demandera par l'intémédiaire d'une boîte de dialogue le libellé du
champ à rajouter puis l'intégrera dans toutes les tables
Fais des essais et dis moi
Pour la partie "Ajout d'enregistrement" j'ai fait un copier coller pour
tester (sans rien changer) et cela fonctionne sans problème . Je copie des
données texte (Champ Codefede de la table zAgences) vers des données texte
(Champ CCM d'une des 4 tables présentes dans le fichier transmis tout à
l'heure).
J'ai modifié comme demandé la macro , en sélectionnant "executer code" puis
le nom du module .
J'ai toujours le même problème.
Ne faut il aps que je spécifie quelque part le nom du champ de destination
(CCM en l'occurence) qui est le même pour toutes les tables ?
Pour la partie ajout champ je ferai un test demain.
"FFO" a écrit :Rebonjour à toi
Aprés analyse de ta base le code fonctionne trés bien
Tout d'abors utilises dans la macro "Ajout Nouvelles CCM" l'Action
"ExécuterCode" en choisissant la fonction de la base "Ajout Nouvelles CCM"
Puis pour que l'ajout dans les tables fonctionne il est impératif que les
données de chaque champ à rajouter soient compatibles avec la nature du champ
de destination
Tu ne peux intégrer dans un champ Numérique des données Textes
En l'état les données de la table zAgences ne peuvent être intégrées dans
les autres tables suite à incompatibilité de type
Si tu essaies par un copier/coller basique l'opération c'est un échec total
Résouds ce problème et le code fonctionnera
Si tu arrives par un copier/coller manuel la recopie des données de la table
zAgences dans une table de destination sachant qu'elles doivent être toutes
identiques au niveau de la structure de leurs champs le code sera opérationnel
Pour l'ajout des colonnes je te propose ce code testé avec ta base :
Champ supplémentaire de type Numérique
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " Numeric"
End If
Next
End Function
Champ supplémentaire de type Texte
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " text"
End If
Next
End Function
Le code demandera par l'intémédiaire d'une boîte de dialogue le libellé du
champ à rajouter puis l'intégrera dans toutes les tables
Fais des essais et dis moi
Pour la partie "Ajout d'enregistrement" j'ai fait un copier coller pour
tester (sans rien changer) et cela fonctionne sans problème . Je copie des
données texte (Champ Codefede de la table zAgences) vers des données texte
(Champ CCM d'une des 4 tables présentes dans le fichier transmis tout à
l'heure).
J'ai modifié comme demandé la macro , en sélectionnant "executer code" puis
le nom du module .
J'ai toujours le même problème.
Ne faut il aps que je spécifie quelque part le nom du champ de destination
(CCM en l'occurence) qui est le même pour toutes les tables ?
Pour la partie ajout champ je ferai un test demain.
"FFO" a écrit :
Rebonjour à toi
Aprés analyse de ta base le code fonctionne trés bien
Tout d'abors utilises dans la macro "Ajout Nouvelles CCM" l'Action
"ExécuterCode" en choisissant la fonction de la base "Ajout Nouvelles CCM"
Puis pour que l'ajout dans les tables fonctionne il est impératif que les
données de chaque champ à rajouter soient compatibles avec la nature du champ
de destination
Tu ne peux intégrer dans un champ Numérique des données Textes
En l'état les données de la table zAgences ne peuvent être intégrées dans
les autres tables suite à incompatibilité de type
Si tu essaies par un copier/coller basique l'opération c'est un échec total
Résouds ce problème et le code fonctionnera
Si tu arrives par un copier/coller manuel la recopie des données de la table
zAgences dans une table de destination sachant qu'elles doivent être toutes
identiques au niveau de la structure de leurs champs le code sera opérationnel
Pour l'ajout des colonnes je te propose ce code testé avec ta base :
Champ supplémentaire de type Numérique
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " Numeric"
End If
Next
End Function
Champ supplémentaire de type Texte
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " text"
End If
Next
End Function
Le code demandera par l'intémédiaire d'une boîte de dialogue le libellé du
champ à rajouter puis l'intégrera dans toutes les tables
Fais des essais et dis moi
Pour la partie "Ajout d'enregistrement" j'ai fait un copier coller pour
tester (sans rien changer) et cela fonctionne sans problème . Je copie des
données texte (Champ Codefede de la table zAgences) vers des données texte
(Champ CCM d'une des 4 tables présentes dans le fichier transmis tout à
l'heure).
J'ai modifié comme demandé la macro , en sélectionnant "executer code" puis
le nom du module .
J'ai toujours le même problème.
Ne faut il aps que je spécifie quelque part le nom du champ de destination
(CCM en l'occurence) qui est le même pour toutes les tables ?
Pour la partie ajout champ je ferai un test demain.
"FFO" a écrit :Rebonjour à toi
Aprés analyse de ta base le code fonctionne trés bien
Tout d'abors utilises dans la macro "Ajout Nouvelles CCM" l'Action
"ExécuterCode" en choisissant la fonction de la base "Ajout Nouvelles CCM"
Puis pour que l'ajout dans les tables fonctionne il est impératif que les
données de chaque champ à rajouter soient compatibles avec la nature du champ
de destination
Tu ne peux intégrer dans un champ Numérique des données Textes
En l'état les données de la table zAgences ne peuvent être intégrées dans
les autres tables suite à incompatibilité de type
Si tu essaies par un copier/coller basique l'opération c'est un échec total
Résouds ce problème et le code fonctionnera
Si tu arrives par un copier/coller manuel la recopie des données de la table
zAgences dans une table de destination sachant qu'elles doivent être toutes
identiques au niveau de la structure de leurs champs le code sera opérationnel
Pour l'ajout des colonnes je te propose ce code testé avec ta base :
Champ supplémentaire de type Numérique
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " Numeric"
End If
Next
End Function
Champ supplémentaire de type Texte
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " text"
End If
Next
End Function
Le code demandera par l'intémédiaire d'une boîte de dialogue le libellé du
champ à rajouter puis l'intégrera dans toutes les tables
Fais des essais et dis moi
Rebonjour à toi
Aprés analyse de ta base le code fonctionne trés bien
Tout d'abors utilises dans la macro "Ajout Nouvelles CCM" l'Action
"ExécuterCode" en choisissant la fonction de la base "Ajout Nouvelles CCM"
Puis pour que l'ajout dans les tables fonctionne il est impératif que les
données de chaque champ à rajouter soient compatibles avec la nature du champ
de destination
Tu ne peux intégrer dans un champ Numérique des données Textes
En l'état les données de la table zAgences ne peuvent être intégrées dans
les autres tables suite à incompatibilité de type
Si tu essaies par un copier/coller basique l'opération c'est un échec total
Résouds ce problème et le code fonctionnera
Si tu arrives par un copier/coller manuel la recopie des données de la table
zAgences dans une table de destination sachant qu'elles doivent être toutes
identiques au niveau de la structure de leurs champs le code sera opérationnel
Pour l'ajout des colonnes je te propose ce code testé avec ta base :
Champ supplémentaire de type Numérique
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " Numeric"
End If
Next
End Function
Champ supplémentaire de type Texte
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " text"
End If
Next
End Function
Le code demandera par l'intémédiaire d'une boîte de dialogue le libellé du
champ à rajouter puis l'intégrera dans toutes les tables
Fais des essais et dis moi
Rebonjour à toi
Aprés analyse de ta base le code fonctionne trés bien
Tout d'abors utilises dans la macro "Ajout Nouvelles CCM" l'Action
"ExécuterCode" en choisissant la fonction de la base "Ajout Nouvelles CCM"
Puis pour que l'ajout dans les tables fonctionne il est impératif que les
données de chaque champ à rajouter soient compatibles avec la nature du champ
de destination
Tu ne peux intégrer dans un champ Numérique des données Textes
En l'état les données de la table zAgences ne peuvent être intégrées dans
les autres tables suite à incompatibilité de type
Si tu essaies par un copier/coller basique l'opération c'est un échec total
Résouds ce problème et le code fonctionnera
Si tu arrives par un copier/coller manuel la recopie des données de la table
zAgences dans une table de destination sachant qu'elles doivent être toutes
identiques au niveau de la structure de leurs champs le code sera opérationnel
Pour l'ajout des colonnes je te propose ce code testé avec ta base :
Champ supplémentaire de type Numérique
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " Numeric"
End If
Next
End Function
Champ supplémentaire de type Texte
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " text"
End If
Next
End Function
Le code demandera par l'intémédiaire d'une boîte de dialogue le libellé du
champ à rajouter puis l'intégrera dans toutes les tables
Fais des essais et dis moi
Rebonjour à toi
Aprés analyse de ta base le code fonctionne trés bien
Tout d'abors utilises dans la macro "Ajout Nouvelles CCM" l'Action
"ExécuterCode" en choisissant la fonction de la base "Ajout Nouvelles CCM"
Puis pour que l'ajout dans les tables fonctionne il est impératif que les
données de chaque champ à rajouter soient compatibles avec la nature du champ
de destination
Tu ne peux intégrer dans un champ Numérique des données Textes
En l'état les données de la table zAgences ne peuvent être intégrées dans
les autres tables suite à incompatibilité de type
Si tu essaies par un copier/coller basique l'opération c'est un échec total
Résouds ce problème et le code fonctionnera
Si tu arrives par un copier/coller manuel la recopie des données de la table
zAgences dans une table de destination sachant qu'elles doivent être toutes
identiques au niveau de la structure de leurs champs le code sera opérationnel
Pour l'ajout des colonnes je te propose ce code testé avec ta base :
Champ supplémentaire de type Numérique
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " Numeric"
End If
Next
End Function
Champ supplémentaire de type Texte
Public Function AjoutChamp() As Boolean
Champ = InputBox("Veuillez saisir le nom du champ à ajouter", "Nom du champ")
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "MSys*" = False And tdf.Name <> "zAgences" Then
CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ADD COLUMN " & Champ
& " text"
End If
Next
End Function
Le code demandera par l'intémédiaire d'une boîte de dialogue le libellé du
champ à rajouter puis l'intégrera dans toutes les tables
Fais des essais et dis moi