heure livraison automatique

bonjour
J’ai un champ --heure de commande (now)--
Je veut automatisé --l’heure de livraison-- suite a une condition
Exemple :
si l heure de la commande est entre 08h :00 et 09h :00 ---livraison a 10h :00
merci

chahnou bonjour,

En modifiant le code afin de l'adapter à tes besoins, voilà comment procéder

Code:

---

1 2 3 4 5 6 7

Function Heure_Livraison() Heure_Commande = Time ' If Hour(Heure_Commande) >= 14 And Hour(Heure_Commande) <= 15 Then Heure_Livraison = Format(Hour(Heure_Commande) + 1, "00") & ":00:00" End If End Function

---

Heure_Livraison te renverra directement l'heure prévue en fonction de l'horloge système

JimboLion

mERCIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII BEAUCOUP




Private Sub HEURE LIVRAISON_Enter()
If Hour(heure COMMANDE) >= 14 And Hour(heure COMMANDE) <= 15 Then
Me![HEURE LIVRAISON] = Format(Hour(heure COMMANDE) + 1, "00") & ":00:00"
Else
If Hour(heure COMMANDE) >= 16 And Hour(heure COMMANDE) <= 19 Then
Me![HEURE LIVRAISON] = Format(Hour(heure COMMANDE) + 5, "00") & ":00:00"

End If
End If


End Sub

Vous m avez sauvé

Cordialement