[AC-2002] Mettre un With dans un If

[Beub']

Bonjour à tous !

Je pense que certains ont déjà rencontré le problème que j'ai (et ils ont même sûrement déjà ouvert un post ici... mais je l'ai pas trouvé), donc je sollicite votre aide !

Très simple, en fait :
J'ai repris une appli Access 2002 et je dois effectuer quelques modifs. Dans le code, quelque part, j'ai un bloc With d'une cinquantaine de lignes :

Code :

1
2
3
4
5
6
 
With Forms!FrmDossier!frmTrucMuche.Form
'...
'...50 lignes...
'...
End With

Le problème c'est que je veux utiliser exactement le même bloc avec un autre With, qui serait :

Code :

1
2
3
4
5
6
 
With Forms!FrmDossier2!frmTrucMuche.Form
'...
'...les mêmes 50 lignes...
'...
End With

Les noms des formulaires sont évidemment des noms d'emprunts

Bref, dans l'idée, je voudrais faire :

Code :

1
2
3
4
5
6
7
8
9
If Condition = XX1 Then
   With YYY
Elseif Condition = XX2 Then
   With ZZZ
End if
'...
'...les 50 lignes...
'...
End with

Mais ça ne marche pas, évidemment...
Une idée, quelqu'un ? Sinon, je suis obligé de mettre dans mes deux IF les 50 lignes, alors que c'est juste un copié-collé... ça me fait mal

Merci d'avance pour vos réponses !

Cordialement,
Beub'

[marot_r]

Fait une procédure paramétrée avec ton objet

À mettre dans un module

Code :

1
2
3
4
5
6
7
public sub taSub(prmTonForm as Form)
   with pmTonForm
   '...
   '...les mêmes 50 lignes...
   '...
   end with
end sub

pour l'appeler

Code :

call taSub(Forms!FrmDossier!frmTrucMuche.Form)

A+