Discussion :

[Olivierporcinet]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
5
Private Sub Form_Current()
 
   Me.Nb_enf_du_jeune.Enabled = Not (Nz(Me.Jeune_parent.Value, "") = "NON")
 
End Sub

J'aimerais ajouter ce code (basé sur une case à cocher):

Code :

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

1
2
3
4
Private Sub Form_Current()
If Me.[Chang_nom] Then MsgBox "Changement de nom !", vbExclamation, "O"
 
End Sub

Des idées ?

Merci

[Olivierporcinet]

Même si je rentre les 2 codes séparément dans

Code :

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

Private Sub Form_Current()

cela ne fonctionne pas.

[micniv]

Avant d'écrire MSGBOX ne fonctionne pas, fais fonctionner tes cellules grises ...

Private Sub Form_Current()
If Me.[Chang_nom] Then MsgBox "Changement de nom !", vbExclamation, "O"
End Sub

As-tu une case à cocher nommée "Chang_nom" et qui est à TRUE quand tu actives le formulaire ?

[Olivierporcinet]

Mes 2 codes fonctionnent mais séparément (test dans 2 bases différentes)

J’aimerais mettre les 2 codes dans

Code :

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

Private Sub Form_Current()

dans la même base

Merci

[Olivierporcinet]

Lorsque je mets une 2ème fois

Code :

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

Private Sub Form_Current()

Blocage : Nom ambigu détecté: Form_Current

[micniv]

Blocage : Nom ambigu détecté: Form_Current

Ce qui est on ne peut plus normal puisque dans le même module de code d'un formulaire, on trouve 2 procédures avec le même nom (dorm_current() ). Imagine que tu sois le compilateur ...

par contre tu peux placer plusieurs instructions à la suite dans Form_current

[Olivierporcinet]

Oui, je m'en doutais mais comment mettre dans

Code :

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

Private Sub Form_Current()

les 2 expressions

Code :

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

Me.Nb_enf_du_jeune.Enabled = Not (Nz(Me.Jeune_parent.Value, "") = "NON")

et

Code :

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

If Me.[Chang_nom] Then MsgBox "Changement de nom !", vbExclamation, "O"

en sachant que pour la 2ème, il y a IF

Merci

[micniv]

comme l'aurait dit M Jourdain :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_Current()
Me.Nb_enf_du_jeune.Enabled = Not (Nz(Me.Jeune_parent.Value, "") = "NON")
' si Chang_nom est bien un Booléen 
If Me.[Chang_nom] Then MsgBox "Changement de nom !", vbExclamation, "O"
 
end sub

[Olivierporcinet]

Merci.

C'est la solution que j'avais trouvée mais, je ne comprends pas pourquoi avant cela ne fonctionnait pas ....

Bon dimanche.