[Toutes versions] heure livraison automatique [Résolu]

[chahnou]

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

[jimbolion]

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

[chahnou]

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