Bonjour,

Voici mon code qui fonctionne (il se rapporte à une case à cocher)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Me.[Important] Then MsgBox "Voir remarque importante !", vbExclamation, "OF"

Lorsque je mets ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Me.[Maison médicale] Then MsgBox "Maison médicale !", vbExclamation, "OF"
Message :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Erreur d’exécution ‘94 : 
 
Utilisation incorrecte de Null

Pour info, le champ [Maison médicale] est un champ numérique. Les valeurs sont comprises entre 0 et 40

A savoir que toutes les fiches remplies ne contiennent pas toutes une information dans le champ [Maison médicale]


Je pense quelque chose comme:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Me.[Maison médicale].Value = "1" Then MsgBox "Maison médicale !", vbExclamation, "OF"
mais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.Value =
doit aller de 0 à 40


Quelqu’un peut m’aider ?

Merci.

Bonne journée