Discussion :

[eLoOe]

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

[moulefrite]

salut

bah c'est juste du code ...
Tu recupere le nom du form que tu desire copier ensuite tu parcours ton
autre .mdb en cherchant le meme nom de form
si il existe tu supprime sinon tu crée

[eLoOe]

oui ca j'ai bien compris, le problème c'est que je ne sais pas comment tester si le formulaire existe dans ma base actuelle.

[moulefrite]

pas tres bien compris ce que tu veut dire

enfin pour recuperer le nom tu fais un :

me.Form.name ensuite tu test si il existe ou pas !

[eLoOe]

quand tu fait un me.form.name, tu as le nom du formulaire courant?! comment fait tu pour tous les parcourir dans la base? car ca n'est pas comme pour les tables ou il ya un catalogue des tables.

[NoViceDel]

J'espère que sa pourra t'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
     Dim obj As AccessObject
 
   For Each obj In CurrentProject.AllForms
      If obj.Name = name_form Then
         DoCmd.DeleteObject acForm, name_form
      End If
   Next
 
 DoCmd.TransferDatabase acImport, "Microsoft Access", src_form, acForm, name_form, name_form

[eLoOe]

Merci beaucoup c'est ce que je voulais !!