Discussion :

[e040098k]

Bonjour,

J'effectue une mise à jour des champs d'une de mes tables grace a une requete rédiger en vba

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CmB_RechercheMotCle_Click()
    Dim Num As String
    Dim NouvelleValeur As String
    Dim i As Variant
    Dim Requete As String
 
 
    If Me.DateCloture.Value > "" Then
    NouvelleValeur = Me.DateCloture.Value
        Call MiseAJour("DateCloture", NouvelleValeur)
    End If
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Function MiseAJour(ChampCible As String, Valeur As String)
Dim Num, Requete As String
Dim i As Variant
    For Each i In Me![Lst_Results].ItemsSelected
        DoCmd.SetWarnings False
        Num = Lst_Results.Column(0, i)
 
        Requete = "UPDATE T_Bilan SET " & ChampCible & " = " & Valeur & " WHERE" & _
        "(((T_Bilan.NumBilan)=" & Me.Lst_Results.Column(0, i) & ")); "
        DoCmd.RunSQL (Requete)
        DoCmd.SetWarnings True
    Next i
 
End Function

Mon problème est que lorsque je met à jour un champ contenant une date (DateCloture) , cela ne correspond pas à la valeur que j'avais préciser

J'ai essayé avec mon champ DateCloture au format texte : il me renvoie un nombre à virgule. Avec DateCloture au format Date : il me renvoie systématiquement 31/12/1899 !!

Merci de votre aide !

[Renardo]

Fait une recherche sur le Format Date

[e040098k]

Je suit les conseils de la FAQ, mon champ date est de type "Date/Heure" avec un format "Date,abregé"

Le champ dans lequel je précise ma valeur à également les même attributs !

Il me renvoit toujours 31/12/1899

???

[Renardo]

Code :

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

1
2
If Me.DateCloture.Value > "" Then
    NouvelleValeur = Me.DateCloture.Value

A quoi correspond le .Value
en principe apres .Value on donne une valeur

[e040098k]

Je le mettais pour préciser la valeur de "NouvelleValeur"
Si je l'enlève cela ne change rien !

[Renardo]

Je suis pas un as en vba mais je verrais plus sa

Code :

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

1
2
3
4
If Me.DateCloture > "" Then
   Me.NouvelValeur.Value= Me.DateCloture 
        Call MiseAJour("DateCloture", NouvelleValeur)
    End If

et ta nouvelleValeur est bien au format date

[mout1234]

Bonjour,

C'est probablement dû au format date attendu en SQL non utilisé ici, comme maintes fois évoqué sur le forum.

Petite explication:
Dans ton code actuel, l'instruction SQL générée sera quelque chose du genre:

Code SQL :

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

...SET DateCloture = 10/02/2007 ....

Le moteur interprète 10/2 = 5 / 2007 = 0.00...qq chose ... soit une fraction de jour... d'où la date obtenue en 1899.
(Rappelons qu'une date est stockée sous forme de nombre de jours écoulé depuis la date de référence - 31/12/1899 il me semble).

La solution:
L'idéal serait de revoir la procédure MiseAJour pour qu'elle traite spécifiquement les champs de type texte ou date,...

Pour faire simple dans ton cas, tu peux simplement faire l'appel ainsi:

Code :

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

1
2
3
4
 
Dim NouvelleValeur As Date
'...
Call MiseAJour("DateCloture", "#" & Format$(NouvelleValeur,"mm/dd/yyyy" ) & "#")

[e040098k]

Ok ca fonctionne très bien

Merci beaucoup pour ton aide

[mout1234]

Ok ca fonctionne très bien

Merci beaucoup pour ton aide

De rien.