Code pour pour multi-conditions If Then
Bonjour à tous
Ma question va vous paraitre peut toute simple mais pas pour moi. J'ai essayé de trouver dans le forum et dans la Faq une possible réponse à mes question.
Pour faire simple, j'ai un formulaire qui s'appelle FORMSAV et différente cellule:
- REFAGENT (texte)
- DATEMAG (Date/heure)
- DATEDX (DATE/Heure)
- DIFFRETOUR (Numérique)
- AVOIR
- VALEURAVOIR
Après mise à jour de ma cellule DATEDX j'inscris le code suivant pour calculer la valeur de la cellule DIFFRETOUR (qui le difference entre la date de retour Magasin (DATEMAG date auto) et la date de la commande (inscrite en manuel):
Code:
1 2 3
| Private Sub DATEDX_AfterUpdate()
Me.DIFFRETOUR = DateDiff("w", DATEDX, DATEMAG, DATEDX)
End Sub |
Dans ma cellule DIFFRETOUR j'ai donc une valeur en semaine de mon retour de pièce.
Je voudrais ensuite inscrire quelque chose comme ça dans un premier tant :
Si REFAGENT n'est pas vide et si DIFFRETOUR < 8
Alors Me.AVOIR = "Oui" et Me.VALEURAVOIR = "100%"
Mais je n'y arrive pas. Je sais que je n'en suis pas si loin, alors si quelqu'un peut me donner un petit de main. Merci.