Discussion :

[lucViv]

Bonjour,

J'ai un petit problème qui fait que toute ma fonction marche pas, je voudrais que toutes les 10 secondes ma fonction compare 2 dates et des que la journée et l'heure sont identique sa me lance le code, pour le timer ça marche, toutes les 10 secondes ma fonction se lance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form_Timer()

Dim Rec As DAO.Recordset
Set Rec = CurrentDb.OpenRecordset("bibli - Maintenance")
If Rec("en_cour").Value = True Then
    Me.onglet_Maintenance.Visible = True
 
    Dim Datedebut As Date
    Dim Datefin As Date

    Datedebut = Rec("date_debut")
    Datefin = Rec("date_fin")
    Form_principal.onglet_Maintenance.Caption = "Le logiciel sera Indisponible pour mise à jour le " & vbCrLf & Datedebut & vbCrLf & " Au " & vbCrLf & Datefin
    If Datedebut = Now Then
    MsgBox "il est l'heure !!!!"
    End If
Else
onglet_Maintenance.Visible = false
End If
End Sub

Le problème est que le système de date prend en compte les secondes ! et du coup mes 2 dates ne sont jamais identiques,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    If Datedebut = Now Then

j'aimerais que mes dates soit au format ("JJ/MM/AAAA HH:MM") au lieu de ("JJ/MM/AAAA HH:MM:SS") de même pour le "Now"

Voilà, j'espère que vous pourrez m'aider car je galère depuis un petit moment..


Merci

[Robert1957]

Bonjour lucViv,

Tu réponds toi même à ta question...

En te servant de la fonction Format:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Format(Datedebut,"dd-mm-AAAA hh:mm") = Format(Now, "dd-mm-AAAA hh:mm") Then

Bonne journée