Bonjour,

Dans une application je doit transférer des formulaires d'un fichier mdb a un autres. Le problème est que lorsque je copie un formulaire d'une base a l'autres, si le nouveau formulaire existe déja dans la base, il le renomme en rajoutant un "1" derrière. Avant chaque transfère, je supprime donc l'ancien formulaire.Seulement si il n'existe pas, j'ai une erreur.

voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
 Do Until i = Me.Liste1.ItemsSelected.Count
    src_form = getPath & "APLI_DATAS_1.2.MDB" 'Me.Liste1.Column(3, Me.Liste1.ItemsSelected(i))
    name_form = Me.Liste1.Column(1, Me.Liste1.ItemsSelected(i))
    'Me.Liste6.AddItem (Me.Liste1.ItemData(i))
 
 
    DoCmd.DeleteObject acForm, name_form
    DoCmd.TransferDatabase acImport, "Microsoft Access", src_form, acForm, name_form, name_form
 
    i = i + 1
 Loop
(je précise que mes nom de formulaires sont référencés dans une liste ainsi que le chemin de la base source)

je repousse le problème!! comment puis-je men sortir?!

Merci