Discussion: heure livraison automatique [Toutes versions]

  1. #1
    Nouveau Membre du Club
    Inscrit en
    novembre 2006
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2006
    Messages : 108
    Points : 30
    Points
    30

    Par défaut 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

  2. #2
    Expert Confirmé Sénior
    Avatar de jimbolion
    Homme Profil pro
    Moulticien
    Inscrit en
    janvier 2013
    Messages
    2 592
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Moulticien
    Secteur : Santé

    Informations forums :
    Inscription : janvier 2013
    Messages : 2 592
    Points : 5 483
    Points
    5 483

    Par défaut heure de livraison

    chahnou bonjour,

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

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Nouveau Membre du Club
    Inscrit en
    novembre 2006
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2006
    Messages : 108
    Points : 30
    Points
    30

    Par défaut

    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

+ Répondre à la discussion
Cette discussion est résolue.

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo