Discussion :

[Yanmeunier]

Bonjour,
Voila j'ai effectué une requête dans VBA qui attaque une base Access.
Seulement il me dit que lors de la mise à jour je vais faire 0 changement.
Je ne comprend pas pourquoi sachant que dans ma table j'ai bien les valeurs sur lesquelles je veux agir.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Debut = Me.[Début]
 
 
    If Me.Début > 0 Then
        nb = Me.[Arret_en_H] / 24
        Requete = "UPDATE Planning SET Planning.Début = Début +" & nb & " WHERE Début > #" & Debut & "#;"
        Requete = Replace(Requete, ",", ".")
        MsgBox Requete
        Refresh
        DoCmd.RunSQL (Requete)

Merci

[Yanmeunier]

J'ai trouvé le problème. Ca vient du faite que j'uitlise les dates et aceess et VBA sans que je leur demande me modifie mon format de date.
Alors comment faire pour garder mon format de date.
Merci

[Kloun]

Code :

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

1
2
3
4
5
6
7
8
9
Debut = Me.[Début] 
 
 
    If Me.Début > 0 Then 
        nb = Me.[Arret_en_H] / 24 
        Requete = "UPDATE Planning SET Planning.Début = Début +" & replace(nb, ",",".") & " WHERE Début > #" & format(Debut, "MM/DD/YYYY HH:mi:ss") & "#;" 
        MsgBox Requete 
        Refresh 
        DoCmd.RunSQL (Requete)

[Yanmeunier]

Merci bien pour ton aide bonne soirée