Discussion :

[robyseb]

Bonjour ! mon problème peut sembler simple pour certain mais moi je cherche depuis quelques temps afin de trouver la solution ..

il se peut que le fait que je ne trouve pas ne résulte qu'à mes critères de recherche mais voila mon problème : comment est-ce que je peut insérer une variable dans une chaine qui spécifie le champ d'un formulaire depuis un module.

exemple :

Code :

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

Forms!RapportIntervention!AucunAntecedent

pouvoir insérer exemple :

Code :

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

Forms! MAVARIABLE !AucunAntecedent

j'ai essayer plusieurs option mais vb semble prendre en compte la formule entière ... y a t'il un autre moyen d'y parvenir ??

Pourquoi je désire cela, j'ai créer des modules séparer qui contienne des fonction qui active ou désactive des case à cocher selon certain critère depuis mon formulaire. Donc depuis mon formulaire j'appelle ma fonction. Le problème est que je doit référer chaque case avec la formule plus haut et que maintenant j'ai 2 à 3 formulaire qui réfère a la fonction.

Donc j'esperait pouvoir créer des variables de nom de formulaire puisque la plupart des champs reste les mêmes.

[marsouin_89]

Bonsoir,

Si tu veux faire référence à un formulaire :

Code :

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

Me.name

Si tu veux faire référence à un contrôle :

Code :

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

Me.MonControl.Name

Dans les 2 cas cela te sort une valeur string.
Donc pour les récupérer dans un module :

Code :

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

1
2
3
Sub MonSub(Frm as String, Ctrl as String)
Forms(Frm).Control(Ctrl)
End Sub

Cordialement

Christophe

[robyseb]

Merci ca semble une bonne voie je test le tous et te revien merci encore

[robyseb]

Bonjour sa ne semble pas fonctionner voici le code modifier ...

je cherche toujour à pouvoir passer une variable concernant le nom de mon formulaire.

depuis le formulaire j'appelle le sub de cette manière :

Code :

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

NAantecedent 1

pour Rapport Intervention
ou

Code :

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

NAantecedent 2

pour rapportphysio

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub NAantecedent(Choix As Integer)
Dim ChoixRip As String
 
 
If Choix = 1 Then
        ChoixRip = "RapportIntervention"
ElseIf Choix = 2 Then
        ChoixRip = "RapportPhysio"
End If
 
'If Forms!RapportIntervention!AucunAntecedent = True Then
If Forms(ChoixRip).Control("AucunAntecedent") = True Then
 
        Forms(ChoixRip).Control("Inconnu") = 0 'valeur remise a zero"
        Forms(ChoixRip).Control("Inconnu").Enabled = False
        Forms(ChoixRip).Control("Asthme_Mpoc") = 0 'valeur remise a zero
        Forms(ChoixRip).Control("Asthme_Mpoc").Enabled = False
        Forms(ChoixRip).Control("AVC") = 0 'valeur remise a zero
        Forms(ChoixRip).Control("AVC").Enabled = False
        Forms(ChoixRip).Control("Cardiaque") = 0 'valeur remise a zero
        Forms(ChoixRip).Control("Cardiaque").Enabled = False
        Forms(ChoixRip).Control("ChxAbdominale") = 0 'valeur remise a zero
        Forms(ChoixRip).Control("ChxAbdominale").Enabled = False
        Forms(ChoixRip).Control("Diabete") = 0 'valeur remise a zero
        Forms(ChoixRip).Control("Diabete").Enabled = False
        Forms(ChoixRip).Control("Hypercholesterolemie") = 0 'valeur remise a zero
        Forms(ChoixRip).Control("Hypercholesterolemie").Enabled = False
        Forms(ChoixRip).Control("Hypertension") = 0 'valeur remise a zero
        Forms(ChoixRip).Control("Hypertension").Enabled = False
        Forms(ChoixRip).Control("Neoplasie") = 0 'valeur remise a zero
        Forms(ChoixRip).Control("Neoplasie").Enabled = False
        Forms(ChoixRip).Control("Psychyatrie") = 0 'valeur remise a zero
        Forms(ChoixRip).Control("Psychyatrie").Enabled = False
        Forms(ChoixRip).Control("Autre") = "" 'valeur remise a zero
        Forms(ChoixRip).Control("Autre").Enabled = False
Else
        Forms(ChoixRip).Control("Inconnu").Enabled = True
        Forms(ChoixRip).Control("Asthme_Mpoc").Enabled = True
        Forms(ChoixRip).Control("AVC").Enabled = True
        Forms(ChoixRip).Control("Cardiaque").Enabled = True
        Forms(ChoixRip).Control("ChxAbdominale").Enabled = True
        Forms(ChoixRip).Control("Diabete").Enabled = True
        Forms(ChoixRip).Control("Hypercholesterolemie").Enabled = True
        Forms(ChoixRip).Control("Hypertension").Enabled = True
        Forms(ChoixRip).Control("Neoplasie").Enabled = True
        Forms(ChoixRip).Control("Psychyatrie").Enabled = True
        Forms(ChoixRip).Control("Autre").Enabled = True
End If
End Sub

[robyseb]

Re-Bonjour

appel de procédure :

Code :

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

NAantecedent me.name

problème résolu voici la syntaxe :

Code :

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

1
2
3
4
5
6
7
8
 
Sub NAantecedent(frmname As String)
 
If Forms(frmname)!AucunAntecedent = True Then
 
        Forms(frmname)!Inconnu = 0 'valeur remise a zero"
        Forms(frmname)!Inconnu.Enabled = False
'.......

merci à toi