Discussion :

[umfred]

Tu as du reprendre mon code trop tôt hier, je me suis aperçu d'erreur dans ma 1ère correction (la dernière en date doit être OK)

Sinon tu peux entrer en dur la date pour faire l'essai de la bonne syntaxe (si tu ne l'as pas déjà fait)

Code :

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

strSQL = "INSERT INTO T_Dates ( Dates) values (#2025-06-19 19:35:40#)"

si ça ne passe pas essayer

Code :

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

strSQL = "INSERT INTO T_Dates ( Dates) values ('#2025-06-19 19:35:40#')"

ou encore comme suggéré avant

Code :

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

strSQL = "INSERT INTO T_Dates ( Dates) values (NOW())"

qui devrait fonctionner aussi

dernière tentative en cas d'échec:

Code :

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

strSQL = "INSERT INTO T_Dates ( Dates) values ('2025-06-19 19:35:40')"

si ce dernier fonctionne (je pense que le cas c'est identique), c'est que ton champ est de type texte et non pas date (ce qui confirmerait que format général = format texte comme initialement dit)

[umfred]

Pour info, la résolution du problème était une mauvaise utilisation du RecordSet
Les éléments de réponse sont dans le sujet https://www.developpez.net/forums/d2...alement-dingo/

[chelguera]

Merci, mais le problème est résolu, j'ai arrêté insert et utilisé AddNew

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
 
StrSql = "SELECT * FROM Personnes"
  Set Rst = DB.OpenRecordset(StrSql, dbOpenDynaset)
  With Rst
      .AddNew
      !NOM = Identite
      .Update
  End With
  Rst.Close
 
   StrSql = "SELECT * FROM T_historique"
  Set Rst = DB.OpenRecordset(StrSql, dbOpenDynaset)
  With Rst
      .AddNew
      !Dates = Now
      !Montant = CSng(FormatNumber(Solde_Actuel, 2))
      .Update
  End With
  Rst.Close