Arrondir à propos de la copie de formulaire

Question

Existe-t-il un moyen pour imiter rapidement toutes les propriétés d'un formulaire dans une nouvelle forme sans copier directement l'objet (Ctrl-C & V, etc.)?

Éditer: Vous cherchez à copier dans une base de données Access entièrement différente.

Answer 1

Ouvrez chaque formulaire en mode Création, définissez-les comme égaux à une variable d'objet, puis définissez les propriétés du formulaire source sur les propriétés du formulaire de destination. Utilisez un funciton comme celui-ci dans un module public:

Public Sub UpdateForm(SourceForm as string, DestinationForm as string) 
    dim frm1 as new form 
    dim frm2 as new form 

    set frm1 = forms(SourceForm) 
    set frm2 = forms(DestinationForm} 

    '* List the properties you want to copy here: 

    With form2 
     .RecordSource = frm1.RecordSource 
     .Caption = frm1.Caption 
     .DataEntry = frm1.DataEntry 
     '* And so on for each property 
    End With 

    docmd.save acform, DestinationForm 

End Sub 

Si ce n'est pas un projet unique, j'inclure un code pour vérifier et ouvrir les formes si elles ne sont pas déjà ouvert.

Answer 2

File > Options > Object Designers > Form/Report Design View > Form template.

Définir le modèle de formulaire au nom d'un formulaire existant et qui sera utilisé pour toutes les nouvelles formes.

Answer 3

Vous pouvez copier un objet de formulaire en utilisant VBA d'une manière légèrement plus simple que ce que suggère DataWriter.

Vous pouvez utiliser l'instruction suivante dans la fenêtre immédiate:

DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.FullName, acForm, "Form1", "Form1_Copy" 

Où "Form1" est le nom de la forme source et "Form1_Copy" est le nom de la forme de destination.