Discussion :

[Bourezak]

j'ai un problème :

Impossible d'updater un champs sous access via vba par la date du jour. Voici le code que j'utilise :


Call updateDate("X_PICTURE", "Day", li)
******************************************

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
21
22
23
Sub updateDate(TableTo, Champ, d)
 
Dim jour As String
Dim Mois As String
Dim année As String
Dim li As String
 
x = Date
 
jour = Mid(x, 1, 2)
Mois = Mid(x, 4, 2)
année = Mid(x, 7, 4)
 
li = " " & jour & "." & Mois & "." & année & ""
 
    Dim Ssql As String
 
    Ssql = "UPDATE " & TableTo & " SET " & TableTo & "." & Champ & " = " & li
    Ssql = Ssql & ";"
    Debug.Print Ssql
    CurrentDb.Execute Ssql
 
End Sub

*********************************
et voici le code qui apparaît sous immediat (debug.print)

UPDATE X_PICTURE SET X_PICTURE.Day = 22.02.2007;


Impossible si quelqu'un parmi vous serait en mesure de m'aiguiller ce serait tout simplement

Merci d'avance du temps consacré.

[Gary_Stoupy]

J'ai pas très saisi ton souci...
ton champ "Champ" de ta table x_picture est de quel type ?

[Heureux-oli]

Le problème vient du fait que tu utilises des fonction texte sur une date.

Date() renvoie un nombre et pas une chaîne.

Tu utilises des fonctions Left() Mid() et Right() sur un nombre.

Si tu veux obtenir du texte avec une date, il faut utiliser la fonction Format()

Format(Date(), "dd/mm/yyyy") donera un texte 22/02/2007.