Discussion :

[kuhnden]

Bonjour,
J'ai une TexteBox "Texte0" à laquelle j'ai appliqué =Date()
Je souhaite qu'à l'ouverture de mon formulaire si la date de Texte0 est mercredi, une MsgBox apparait avec le message "Toto" par exemple

J'ai essayé

Code :

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

1
2
3
Private Sub Form_Current()
    Iff (Weekday([Texte0]) = 4,  (MsgBox "Toto", vbExclamation, "Toto")
  End Sub

mais il n'aime pas du tout
Comment faire ?
Merci
Nicolas

[vodiem]

ce n'est pas "iif" qu'il faut mais "IF"

Code :

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

IF Weekday([Texte0]) = 4 THEN MsgBox "Toto", vbExclamation, "Toto"

[kuhnden]

Merci ça marche nickel