Discussion :

[ThaHardy]

Bonjour a tous,
Je vous explique mon probléme: J'essaie de faire en sorte d'obliger les utilisateurs de la base de donnée a remplir un champs en particulier en premier, pour ce faire je veux faire en sorte que tant que celui ci n'as pas été modifié les autres champs du formulaire soient invisibles et qu'une fois modifié les autres champs deviennent visibles.
Je sais que le probléme est simple mais je n'y arrive pas et pour l'instant j'ai ce code:

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
Private Sub Last_Added_Person_Dirty(Cancel As Integer)
If Not Me.Last_Added_Person.OnDirty = "True" Then
    Me.Opportunity.Visible = False
    Me.Code_name.Visible = False
    Me.Company_Product.Visible = False
    Me.Company_Headquarters.Visible = False
    Me.Public_or_Private.Visible = False
    Me.Ticker.Visible = False
    Me.Currency.Visible = False
    Me.Status.Visible = False
    Me.Deal_Categorization.Visible = False
    Me.Lead.Visible = False
    Me.Team.Visible = False
    Me.Opportunity_Notes.Visible = False
    Me.Bank_Third_Party_Intel.Visible = False
    Me.Decision_Rational.Visible = False
 
ElseIf Not Me.Last_Added_Person.OnDirty = "False" Then
 
    Me.Opportunity.Visible = True
    Me.Code_name.Visible = True
    Me.Company_Product.Visible = True
    Me.Company_Headquarters.Visible = True
    Me.Public_or_Private.Visible = True
    Me.Ticker.Visible = True
    Me.Currency.Visible = True
    Me.Status.Visible = True
    Me.Deal_Categorization.Visible = True
    Me.Lead.Visible = True
    Me.Team.Visible = True
    Me.Opportunity_Notes.Visible = True
    Me.Bank_Third_Party_Intel.Visible = True
    Me.Decision_Rational.Visible = True
End If
End Sub

Le probleme c'est qu'il fait exactement l'inverse de ce que je souhaite; c'est a dire qu'il rend tout les champs du formulaire invisible apres modification du champs Last_Added_Person
Mais je ne vois absolument pas comment gérer la chose..
Quelqu'un pourrait-il m'aider ?

Merci d'avance !

Cordialement

TH

[ThaHardy]

Ce que je trouve bizare c'est que j'ai changé la fonction onDirty pour OnChange et j'ai exactement le meme probleme:

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
Private Sub Last_Added_Person_Dirty(Cancel As Integer)
If Not Me.Last_Added_Person.OnChange = "False" Then
    Me.Opportunity.Visible = False
    Me.Code_name.Visible = False
    Me.Company_Product.Visible = False
    Me.Company_Headquarters.Visible = False
    Me.Public_or_Private.Visible = False
    Me.Ticker.Visible = False
    Me.Currency.Visible = False
    Me.Status.Visible = False
    Me.Deal_Categorization.Visible = False
    Me.Lead.Visible = False
    Me.Team.Visible = False
    Me.Opportunity_Notes.Visible = False
    Me.Bank_Third_Party_Intel.Visible = False
    Me.Decision_Rational.Visible = False
 
ElseIf Not Me.Last_Added_Person.OnChange = "True" Then
 
    Me.Opportunity.Visible = True
    Me.Code_name.Visible = True
    Me.Company_Product.Visible = True
    Me.Company_Headquarters.Visible = True
    Me.Public_or_Private.Visible = True
    Me.Ticker.Visible = True
    Me.Currency.Visible = True
    Me.Status.Visible = True
    Me.Deal_Categorization.Visible = True
    Me.Lead.Visible = True
    Me.Team.Visible = True
    Me.Opportunity_Notes.Visible = True
    Me.Bank_Third_Party_Intel.Visible = True
    Me.Decision_Rational.Visible = True
End If
End Sub

TH