Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access heure comprise entre 2 valeurs

heure comprise entre 2 valeurs

14 réponses
Avatar
Dmordikus
Bonjour à tous

en premier lieu merci à tout ceux qui font de ce forum une vrai bible de
connaissance et de bon conseil

ensuite malgré mes recherche je n'ais rien trouvé sur mon problème

voilà je voudrais dans un champ que la valeur soit égale

jour si l'heure est comprise entre 07:00 et 19:00
nuit si l'heure est comprise entre 19:00 et 07:00

je n'arrive pas à faire le test je tombe toujours sur le premier test que je
fais

Merci à tous
bon courage au travailleur
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Dmordikus
Un grand merci à klyyss qui a résolue mon souccis
la solution etait

Dim stheure As Date
stheure = Format(Now, "H:mm")
If ((stheure >= "19:00:00") And (stheure <= "23:59:59")) Or ((stheure >
"00:00:00") And (stheure <= "07:00:00")) Then
MsgBox "nuit"
Else
MsgBox "jour"
End If

Merci à tous, touts vos conseils me prouve que dans cette ére
d'individualisme certaines personnes savent encore perdre leurs temps pour
aider les moins compétents
Merci à tous
Avatar
Pierre CFI [mvp]
bonjour
je sais pas comment tu fais ton test mais oublie de mettre un format heure et tes éléements de comparaison entre #
ex > #8:00:00 AM#

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Dmordikus" a écrit dans le message de news:40e3c855$0$10290$
Bonjour à tous

en premier lieu merci à tout ceux qui font de ce forum une vrai bible de
connaissance et de bon conseil

ensuite malgré mes recherche je n'ais rien trouvé sur mon problème

voilà je voudrais dans un champ que la valeur soit égale

jour si l'heure est comprise entre 07:00 et 19:00
nuit si l'heure est comprise entre 19:00 et 07:00

je n'arrive pas à faire le test je tombe toujours sur le premier test que je
fais

Merci à tous
bon courage au travailleur




Avatar
Jessy Sempere [MVP]
Bonjour

Essais une requête de ce type, il faut utiliser la fonction vraifaux() et la fonction
format() pour mettre au format heure :

SELECT TaTable.ChampDate, IIf(Format([champdate],"hh:nn:ss")>"07:00:00"
And Format([champdate],"hh:nn:ss")<"19:00:00","jour","nuit") AS Heure
FROM TaTable;

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Dmordikus" a écrit dans le message news:
40e3c855$0$10290$
Bonjour à tous

en premier lieu merci à tout ceux qui font de ce forum une vrai bible de
connaissance et de bon conseil

ensuite malgré mes recherche je n'ais rien trouvé sur mon problème

voilà je voudrais dans un champ que la valeur soit égale

jour si l'heure est comprise entre 07:00 et 19:00
nuit si l'heure est comprise entre 19:00 et 07:00

je n'arrive pas à faire le test je tombe toujours sur le premier test que je
fais

Merci à tous
bon courage au travailleur




Avatar
Dmordikus
rebonjours
pour plus d'info voici le code que j'ai essayé

Private Sub Form_Timer()
Dim stheure As Date
stheure = Format(Now, "H:mm")
If stheure > "19:00" Then
If stheure < "07:00" Then GoTo nuit
End If
If stheure < "07:00" Then
If stheure < "19:00" Then GoTo jour

nuit:
Me!horloge.Caption = "nuit"
Exit Sub

jour:
Me!horloge.Caption = "jour"
End Sub

Merci
Avatar
Pierre CFI [mvp]
bonjour
les minutes c'est nn pas mm (mois)

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Dmordikus" a écrit dans le message de news:40e3dade$0$26333$
rebonjours
pour plus d'info voici le code que j'ai essayé

Private Sub Form_Timer()
Dim stheure As Date
stheure = Format(Now, "H:mm")
If stheure > "19:00" Then
If stheure < "07:00" Then GoTo nuit
End If
If stheure < "07:00" Then
If stheure < "19:00" Then GoTo jour

nuit:
Me!horloge.Caption = "nuit"
Exit Sub

jour:
Me!horloge.Caption = "jour"
End Sub

Merci




Avatar
Jessy Sempere [MVP]
Re,

Essais plutôt :

Dim stheure As Date
stheure = Format(Now, "H:nn")
If stheure > "07:00" And stHeure < "19:00" Then
Me!Horloge.Caption = "Jour"
Else
Me!Horloge.Caption = "Nuit"
End If

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Dmordikus" a écrit dans le message news:
40e3dade$0$26333$
rebonjours
pour plus d'info voici le code que j'ai essayé

Private Sub Form_Timer()
Dim stheure As Date
stheure = Format(Now, "H:mm")
If stheure > "19:00" Then
If stheure < "07:00" Then GoTo nuit
End If
If stheure < "07:00" Then
If stheure < "19:00" Then GoTo jour

nuit:
Me!horloge.Caption = "nuit"
Exit Sub

jour:
Me!horloge.Caption = "jour"
End Sub

Merci




Avatar
Pierre CFI [mvp]
et oh les 2 zozos, çà fait 1 heure que je dis nn au lieu de mm :o)) c'est pas vrai çà, voilà maintenant qu'ils font comme si la
vieille garde n'existait plus

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Jessy Sempere [MVP]" a écrit dans le message de news:cc0nk8$c8e$
Re,

Essais plutôt :

Dim stheure As Date
stheure = Format(Now, "H:nn")
If stheure > "07:00" And stHeure < "19:00" Then
Me!Horloge.Caption = "Jour"
Else
Me!Horloge.Caption = "Nuit"
End If

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Dmordikus" a écrit dans le message news:
40e3dade$0$26333$
rebonjours
pour plus d'info voici le code que j'ai essayé

Private Sub Form_Timer()
Dim stheure As Date
stheure = Format(Now, "H:mm")
If stheure > "19:00" Then
If stheure < "07:00" Then GoTo nuit
End If
If stheure < "07:00" Then
If stheure < "19:00" Then GoTo jour

nuit:
Me!horloge.Caption = "nuit"
Exit Sub

jour:
Me!horloge.Caption = "jour"
End Sub

Merci








Avatar
Jessy Sempere [MVP]
Ah non, là tu te trompes, moi c'est pas Zozo mais Zorro... ;-)))

Si j'ai pris en compte ta remarque, j'ai bien mis "H:nn" ;-))))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message news:

et oh les 2 zozos, çà fait 1 heure que je dis nn au lieu de mm :o)) c'est pas vrai çà,
voilà maintenant qu'ils font comme si la

vieille garde n'existait plus

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Jessy Sempere [MVP]" a écrit dans le message de
news:cc0nk8$c8e$

Re,

Essais plutôt :

Dim stheure As Date
stheure = Format(Now, "H:nn")
If stheure > "07:00" And stHeure < "19:00" Then
Me!Horloge.Caption = "Jour"
Else
Me!Horloge.Caption = "Nuit"
End If

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Dmordikus" a écrit dans le message news:
40e3dade$0$26333$
rebonjours
pour plus d'info voici le code que j'ai essayé

Private Sub Form_Timer()
Dim stheure As Date
stheure = Format(Now, "H:mm")
If stheure > "19:00" Then
If stheure < "07:00" Then GoTo nuit
End If
If stheure < "07:00" Then
If stheure < "19:00" Then GoTo jour

nuit:
Me!horloge.Caption = "nuit"
Exit Sub

jour:
Me!horloge.Caption = "jour"
End Sub

Merci












Avatar
Eric
Bonjour Jessy,

Entièrement d'accord avec toi !
Pierre n'a pas du lire les bouts de code que se resemble à s'y méprendre
d'ailleurs. J'avais corrigé les mm mais pas le H en hh.

A+
Eric


"Jessy Sempere [MVP]" écrivait
news:cc0ovt$cri$:

Ah non, là tu te trompes, moi c'est pas Zozo mais Zorro... ;-)))

Si j'ai pris en compte ta remarque, j'ai bien mis "H:nn" ;-))))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------


Avatar
Pierre CFI [mvp]
le plus marrant , c'est que notre ami nous dit que çà marche avec un format H:mm

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Eric" a écrit dans le message de news:
Bonjour Jessy,

Entièrement d'accord avec toi !
Pierre n'a pas du lire les bouts de code que se resemble à s'y méprendre
d'ailleurs. J'avais corrigé les mm mais pas le H en hh.

A+
Eric


"Jessy Sempere [MVP]" écrivait
news:cc0ovt$cri$:

Ah non, là tu te trompes, moi c'est pas Zozo mais Zorro... ;-)))

Si j'ai pris en compte ta remarque, j'ai bien mis "H:nn" ;-))))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------




1 2