Discussion :

[titeZ]

Bonjour,
J'ai un petit soucis, j'ai une table access qui contient une donnée

je cherche a mettre a jour cette donnée depuis un classeur excel
pour ça
(merci microsoft) j'utilise un code qui "a l'air" de fonctionner puisqu'aucune erreur n'est detecté sauf que dans la table la valeur inserer est completement fausse

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub DAOExecuteBulkOpQuery()
    Dim db As DAO.Database
    Dim Daterapro As String
    Set db = DBEngine.OpenDatabase(chem & "\Rappro_titre.mdb")
 
    ' Exécution de la requête
    Daterapro = InputBox("Date du rappro?")
    db.Execute "Update TBL_PR_PARAMETRES Set DATE_DU_JOUR =  " & Daterapro & ""
    db.Close
End Sub

chem est defini plus haut...

Pouvez vous m'aider ?
merci!

[Jean-Philippe André]

Salut,
ton champs est-il de type date ?
la syntaxe attendue est #MM/dd/YYYY#.

[titeZ]

oui,
et j'ai essayer different format mais c'est toujours une date incoherente qui est indiqué dans la base

[Jean-Philippe André]

Peux tu nous dire ce qu'il s'affiche si tu fais un debug.print avant d'exécuter la requete :

Code :

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

Debug.Print "Update TBL_PR_PARAMETRES Set DATE_DU_JOUR =  " & Daterapro & ""

[titeZ]

voici
Update TBL_PR_PARAMETRES Set DATE_DU_JOUR = 06/24/2007

Dans la base j'ai ca d'afficher
00:00:11

[Chtulus]

Si c'est un champs date pourquoi utiliser

Dim Daterapro As String

[titeZ]

Chtulus rassure toi j'ai aussi essayer avec date a la place de string

[Jean-Philippe André]

donc tu n'as pas suivi la syntaxe indiquée plus haut :

Code :

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

Db.Execute "Update TBL_PR_PARAMETRES Set DATE_DU_JOUR =  #" & Daterapro & "#"

[titeZ]

oups...

Dsl
Merci beaucoup