Discussion :

[snoopy69]

Bonjours à tous ...

J'aimerais cacher un champ dans un sous-formulaire tout dépend ce que je rentre comme données dans mon formulaire. Pour faire cela j'ai fait un test puis j'ai mis ce code :

Code :

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

1
2
3
 
Forms(str_NomFormulaire).Form(str_NomSousFormulaireAlliage)![nom_alliage].Visible = False
Forms(str_NomFormulaire).Form(str_NomSousFormulaireAlliage)![zdld_alliage].Visible = True

Les variables : str_NomFormulaire et str_NomSousFormulaireAlliage sont remplis avec le nom du formulaire principal et le nom de mon sous-formulaire.

Voici l'erreur que j'ai :

Erreur d'exécution '2165'
Impossible de masquer le contrôle actif

Savez vous pourquoi j'ai cette erreur ???

Comment puis-je fais pour éviter cette erreur ???

Merci de votre aide ...

[b_steph_2]

là tu n'as aucun test si tu veux faire un test utilise le code

Code :

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

if end if

exemple

Code :

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

1
2
3
4
5
6
If NomChamp = "CertaineValeur" then
 
Forms(str_NomFormulaire).Form(str_NomSousFormulaireAlliage)![nom_alliage].Visible = False 
else
Forms(str_NomFormulaire).Form(str_NomSousFormulaireAlliage)![zdld_alliage].Visible = True 
end if

[snoopy69]

Oui je sais que je n'ai pas de test ... je ne voulais pas mettre trop de code dans mon poste donc j'ai simplement mit les lignes qui posaient problème ...

Merci quand même pour ta réponse ..

Voici mon code (cette fois-ci complet)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If (Forms(str_NomFormulaire)![casac_NouveauOf] = False) Then
 
    Forms(str_NomFormulaire).Form(str_NomSousFormulaireAlliage)![nom_alliage] = True
    Forms(str_NomFormulaire).Form(str_NomSousFormulaireAlliage)![zdld_alliage].Visible = False
 
Else
 
    Forms(str_NomFormulaire).Form(str_NomSousFormulaireAlliage)![nom_alliage] = False
    Forms(str_NomFormulaire).Form(str_NomSousFormulaireAlliage)![zdld_alliage].Visible = True
 
End If