[AC-2003] Changer la propriète "control source" par code [Résolu]

[Marc_27]

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...

[loufab]

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,

[Marc_27]

Bonjour et merci de ta reponse loufab

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")

[Marc_27]

J'ai reussi

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