Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Nouveau Membre du Club
    Inscrit en
    novembre 2006
    Messages
    94
    Détails du profil
    Informations forums :
    Inscription : novembre 2006
    Messages : 94
    Points : 28
    Points
    28

    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 Jean-Marie BAGNIS
    Moulticien
    Inscrit en
    janvier 2013
    Messages
    2 214
    Détails du profil
    Informations personnelles :
    Nom : Homme Jean-Marie BAGNIS
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Moulticien
    Secteur : Santé

    Informations forums :
    Inscription : janvier 2013
    Messages : 2 214
    Points : 4 651
    Points
    4 651

    Par défaut heure de livraison

    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

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

    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.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •