IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

heure livraison automatique [Toutes versions]


Sujet :

Access

  1. #1
    Membre régulier
    Inscrit en
    Novembre 2006
    Messages
    170
    Détails du profil
    Informations forums :
    Inscription : Novembre 2006
    Messages : 170
    Points : 74
    Points
    74
    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 éminent
    Avatar de jimbolion
    Homme Profil pro
    Moulticien
    Inscrit en
    Janvier 2013
    Messages
    3 150
    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 : 3 150
    Points : 7 001
    Points
    7 001
    Billets dans le blog
    2
    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
    N'oubliez pas le Tag si la réponse donnée vous a été utile et pour une réponse pertinente.
    Retrouvez-moi sur le chat en salon base de données

  3. #3
    Membre régulier
    Inscrit en
    Novembre 2006
    Messages
    170
    Détails du profil
    Informations forums :
    Inscription : Novembre 2006
    Messages : 170
    Points : 74
    Points
    74
    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. [MySQL] Date et heure remis automatiquement à zéro sous Mysql
    Par cinou01 dans le forum PHP & Base de données
    Réponses: 16
    Dernier message: 27/03/2009, 22h03
  2. Date et heure actualisés automatiquement
    Par alkashy dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 12/01/2007, 11h36
  3. [Dates] date et heure incrementé automatiquement
    Par xtiand4 dans le forum Langage
    Réponses: 5
    Dernier message: 15/06/2006, 13h24
  4. Réponses: 14
    Dernier message: 17/11/2005, 18h16
  5. Envoi automatique d'un mail toutes les heures
    Par VirginieGE dans le forum ASP
    Réponses: 8
    Dernier message: 24/08/2004, 09h10

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