2- Comment =E9viter (expression =E0 inclure dans un code=20
d'ex=E9cution d'une requ=EAte Ajout ) l'affichage, lors de=20
l'importation d'un fichier texte, du message suivant (en=20
optant pour l'option "Oui" pour toujours:
Microsoft Access ne peut ajouter tous les enregistrements=20
de la requ=EAte Ajout
.......
Cliquer sur Oui pour ignorer la ou les erreurs et ex=E9cuter=20
la requ=EAte
je suggerai de faire une recherche de tes tables puis de verifier que leur nom contiennent "ImportErrors" et dans ce cas faire un requete suppression de la table.
2- Comment éviter (expression à inclure dans un code d'exécution d'une requête Ajout ) l'affichage, lors de l'importation d'un fichier texte, du message suivant (en optant pour l'option "Oui" pour toujours:
pour eviter ceci tu met docmd.SetWarnings False avant l'execution de ta requete et apres tu met docmd.SetWarnings True pour faire apparaitre à nouveau les alertes eventuelles suivantes
voili
ja qui ...
S'lt
J'ai en fait 2 questions:
1- Comment, par un code, supprimer tous les tables créées
automatiquements lors d'une importation, type:
je suggerai de faire une recherche de tes tables puis de verifier que leur nom contiennent "ImportErrors" et dans ce cas faire un requete suppression de la table.
2- Comment éviter (expression à inclure dans un code
d'exécution d'une requête Ajout ) l'affichage, lors de
l'importation d'un fichier texte, du message suivant (en
optant pour l'option "Oui" pour toujours:
pour eviter ceci
tu met docmd.SetWarnings False avant l'execution de ta requete et apres tu met docmd.SetWarnings True pour faire apparaitre à nouveau les alertes eventuelles suivantes
je suggerai de faire une recherche de tes tables puis de verifier que leur nom contiennent "ImportErrors" et dans ce cas faire un requete suppression de la table.
2- Comment éviter (expression à inclure dans un code d'exécution d'une requête Ajout ) l'affichage, lors de l'importation d'un fichier texte, du message suivant (en optant pour l'option "Oui" pour toujours:
pour eviter ceci tu met docmd.SetWarnings False avant l'execution de ta requete et apres tu met docmd.SetWarnings True pour faire apparaitre à nouveau les alertes eventuelles suivantes
voili
ja qui ...
Damien Mermoz
Bonjour, je me permets de complèter pour la question 1) dans ton code : Dim db As DAO.Database Dim tb As DAO.TableDef
Set db = CurrentDb
For Each tb In db.TableDefs If InStr(1, tb.Name, "ImportErrors") <> 0 Then DoCmd.DeleteObject acTable, tb.Name End If
Next tb
db.Close Set tb = Nothing Set db = Nothing
End Sub
En espèrant t'avoir aidé. A + Damien. "joyeux atchoum" a écrit dans le message de news:
S'lt
J'ai en fait 2 questions:
1- Comment, par un code, supprimer tous les tables créées automatiquements lors d'une importation, type:
je suggerai de faire une recherche de tes tables puis de verifier que leur nom contiennent "ImportErrors" et dans ce cas faire un requete suppression
de la table.
2- Comment éviter (expression à inclure dans un code d'exécution d'une requête Ajout ) l'affichage, lors de l'importation d'un fichier texte, du message suivant (en optant pour l'option "Oui" pour toujours:
pour eviter ceci tu met docmd.SetWarnings False avant l'execution de ta requete et apres tu met docmd.SetWarnings True pour faire apparaitre à nouveau les alertes
eventuelles suivantes
voili
ja qui ...
Bonjour,
je me permets de complèter pour la question 1)
dans ton code :
Dim db As DAO.Database
Dim tb As DAO.TableDef
Set db = CurrentDb
For Each tb In db.TableDefs
If InStr(1, tb.Name, "ImportErrors") <> 0 Then
DoCmd.DeleteObject acTable, tb.Name
End If
Next tb
db.Close
Set tb = Nothing
Set db = Nothing
End Sub
En espèrant t'avoir aidé.
A +
Damien.
"joyeux atchoum" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:808DEC6E-1B16-40E6-BF17-523CEE3A1114@microsoft.com...
S'lt
J'ai en fait 2 questions:
1- Comment, par un code, supprimer tous les tables créées
automatiquements lors d'une importation, type:
je suggerai de faire une recherche de tes tables puis de verifier que leur
nom contiennent "ImportErrors" et dans ce cas faire un requete suppression
de la table.
2- Comment éviter (expression à inclure dans un code
d'exécution d'une requête Ajout ) l'affichage, lors de
l'importation d'un fichier texte, du message suivant (en
optant pour l'option "Oui" pour toujours:
pour eviter ceci
tu met docmd.SetWarnings False avant l'execution de ta requete et apres tu
met docmd.SetWarnings True pour faire apparaitre à nouveau les alertes
je suggerai de faire une recherche de tes tables puis de verifier que leur nom contiennent "ImportErrors" et dans ce cas faire un requete suppression
de la table.
2- Comment éviter (expression à inclure dans un code d'exécution d'une requête Ajout ) l'affichage, lors de l'importation d'un fichier texte, du message suivant (en optant pour l'option "Oui" pour toujours:
pour eviter ceci tu met docmd.SetWarnings False avant l'execution de ta requete et apres tu met docmd.SetWarnings True pour faire apparaitre à nouveau les alertes
eventuelles suivantes
voili
ja qui ...
hasardeux
Je vous remercie infiniment.
ça marche impeccablement
-----Message d'origine----- Bonjour, je me permets de complèter pour la question 1) dans ton code : Dim db As DAO.Database Dim tb As DAO.TableDef
Set db = CurrentDb
For Each tb In db.TableDefs If InStr(1, tb.Name, "ImportErrors") <> 0 Then DoCmd.DeleteObject acTable, tb.Name End If
Next tb
db.Close Set tb = Nothing Set db = Nothing
End Sub
En espèrant t'avoir aidé. A + Damien. "joyeux atchoum" a écrit dans le
message de news:808DEC6E-1B16-40E6-BF17-
S'lt
J'ai en fait 2 questions:
1- Comment, par un code, supprimer tous les tables créées
