Changer la propriète "control source" par code

Version imprimable

Bonjour à tous,

je voudrais savoir si c'est possible de changer la propriète "control source" d'un champ present en plusieurs etats d'une application. Je m'explique:

J'ai une application avec une trentaine d'etats. Dans plusieurs de ces etats, j'ai une textbox avec source "adr_complet.ville".

Je suis en train de faire un grand changement, et j'avais besoin de changer tous ces sources à "T_comptes.ville".
J'essaye de le faire un par un, mais il sont beaucoup :(

Est-ce qu'il y a une faisson de le faire par code, avec une boucle For-Each, par exemple? C'est-à-dire, ouvrir chaque etat, verifier la source de controle des champs et faire le changement?

J'ai essayé
Code:

1 2 3 4 5 6 7 8 9 10 Dim et As Access.Report For Each et In application.CurrentProject MsgBox et.Name DoCmd.OpenReport et.Name, acViewDesign Dim txt As TextBox For Each txt In et If txt.ControlSource = "adr_complet.ville" Then txt.ControlSource = "T_comptes_complet.ville" DoCmd.Close acReport, et.Name, acSaveYes Next txt Next et
mais il na marche pas... (BUG sur application.CurrentProject je pense)

Merci d'avance pour vos reponses...
:ccool:

Bonjour,
L'utilisation des All.... est un peu spéciale. Ils n'acceptent que le variable Object.
Par contre pour parcourir il faut une variable Report.

Voici l'astuce.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim rpt As Object Dim vrpt As Form dim ctrl as Control For Each rpt In CurrentProject.AllReports DoCmd.OpenReport rpt.Name, acDesign Set vrpt = Reports("[" & rpt.Name & "]") For Each ctrl in vrpt.controls if ctrl.controlSource = "AncienneSource" then ctrl.controlSource = "NouvelleSource" Next DoCmd.Close acreport, rpt.Name, acSaveYes Next
A partir de 2010 la modif d'un champ d'une table met à jour tous les controles associés.

Cordialement,

07/12/2010, 09h11
Marc_27

Bonjour et merci de ta reponse loufab :ccool:

J'ai un erreur de compatibilité de type sur la ligne

Code:

Set vrpt = Reports("[" & rpt.Name & "]")

Any idea?

EDIT:

Par contre si je change

Code:

Dim vrpt As Form

pour

Code:

Dim vrpt As Report

ou même:

Code:

Dim vrpt

J'ai un erreur sur

Code:

If ctrl.ControlSource = "adr_complet.ville"

("propriete ou methode non gerée par cet objet")

J'ai reussi 8-)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim rpt As Object
Dim vrpt As Report
Dim ctrl As Control
 
For Each rpt In CurrentProject.AllReports
       DoCmd.OpenReport rpt.Name, acDesign
       Set vrpt = Reports("[" & rpt.Name & "]")
 
       For Each ctrl In vrpt.Controls
            If TypeOf ctrl Is TextBox Then
                If ctrl.ControlSource = "adr_complet.ville" Then ctrl.ControlSource = "T_comptes_complet.ville"
            End If
       Next
 
       DoCmd.Close acReport, rpt.Name, acSaveYes
 
Next

Il a manqué de vérifier s'il y avait la propriète ControlSource...

Merci beaucoup encore une fois
:ccool: