Discussion :

[pascal5]

bjr
Oui c'est encore moi et mon ignorance en vba.
J'ai cherché un peu partout mais pas trouvé de solution a mon problème que voici.
J'ai un formulaire F_ModPatTourn et un sous formulaire F_ModPatAlert le tout faisant parti d'un formulaire de navigation.
Je ne trouve pas la syntaxe exacte pour atteindre mon sous formulaire F_ModPatAlert en vba. Je me suis approché du but sans l'atteindre avec ce code qui me sert a griser un champ Hospitalisation du SF.

Code :

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

1
2
3
4
5
6
7
8
Private Sub zldalerte_AfterUpdate()
If [zldalerte].[Column](1) = "Hospitalisation" Then
Forms!FormNavigation.Form!SF_TournPatient!DepartHospit.Enabled = True
Else
Forms!FormNavigation.Form!SF_TournPatient!DepartHospit.Enabled = False
End If
Me.choixpats.Requery
End Sub

J'ai une erreur 438 " Propriété ou methode non géré par cet object"
Merci

[Philippe PONS]

Salut,

au lieu de:

Code :

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

Forms!FormNavigation.Form!SF_TournPatient!DepartHospit.Enabled = True

essaie:

Code :

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

1
2
 
form_SF_TournPatient!DepartHospit.Enabled = True

De même, prend soin de vérifier que ton formulaire est bien enregistré du côté VBA. Si c'est pas le cas, créé un gestionnaire d'événement que tu supprimes ensuite: ça force le compilateur à enregistrer le formulaire

Cordialement,

[pascal5]

Merci de ta réponse mais ca ne marche pas :
erreur 424 "Objet requis"
Et que veux tu dir par

ton formulaire est bien enregistré du côté VBA

Merci

[Philippe PONS]

Quand tu es dans l'éditeur VBA, tu dois voir le nom du formulaire apparaitre dans l'explorateur de projets, à gauche.

Dans VBA,fais appel à l'intellisense,qui complète les noms des objets quand ils sont connus.

Tu tapes: form_ puis CTR+SPACE BAR, et l'intellisense te liste tous les noms commençant par form_
Tu dois y trouver ton formulaire.

Cordialement,

[pascal5]

Merci marche nickel
La syntaxe :

Code :

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

1
2
3
4
5
6
7
8
Private Sub zldalerte_AfterUpdate()
If [zldalerte].[Column](1) = "Hospitalisation" Then
Form_F_ModPatAlert!DepartHospit.Enabled = True
Else
Form_F_ModPatAlert!DepartHospit.Enabled = False
End If
Me.choixpats.Requery
End Sub

[Philippe PONS]

You're welcome!

[pascal5]

Et en french ça donne quoi

[Philippe PONS]

Y'a pas d'quoi