p
u
b
l
i
c
i
t
é
publicité

Discussion: heure livraison automatique [Toutes versions]

  1. #1
    Nouveau Membre du Club
    Inscrit en
    novembre 2006
    Messages
    111
    Détails du profil
    Informations forums :
    Inscription : novembre 2006
    Messages : 111
    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 482
    Points
    5 482

    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
    111
    Détails du profil
    Informations forums :
    Inscription : novembre 2006
    Messages : 111
    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.

Discussions similaires

  1. Date et heure remis automatiquement à zéro sous Mysql
    Par cinou01 dans le forum PHP & MySQL
    Réponses: 16
    Dernier message: 27/03/2009, 21h03
  2. Date et heure actualisés automatiquement
    Par alkashy dans le forum JavaScript
    Réponses: 2
    Dernier message: 12/01/2007, 10h36
  3. [Dates] date et heure incrementé automatiquement
    Par xtiand4 dans le forum Fonctions
    Réponses: 5
    Dernier message: 15/06/2006, 12h24
  4. Réponses: 14
    Dernier message: 17/11/2005, 17h16
  5. Envoi automatique d'un mail toutes les heures
    Par VirginieGE dans le forum ASP
    Réponses: 8
    Dernier message: 24/08/2004, 08h10

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