Euh, finalement...
J'ai bien fait comme tu as dit (module etc.)
Voici un code d'ajout dans une table:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
Private Sub Commande180_Click()
Dim QCDS, serie, ETAT, ETAPE, DECLENCHEUR, DESCRIPTION, PILOTE As String
Dim rst As DAO.Recordset
Dim db As DAO.Database
Dim SQL, SQL1, SQL2 As String
Dim date_decl, date_prev As Date
'Set db = CurrentDb
QCDS = Me.FicheQCDS.Value
serie = Me.CSA.Value
ETAT = Me.ETAT.Value
ETAPE = Me.ETAPE.Value
DECLENCHEUR = Me.DECLENCHEUR.Value
date_decl = Me.DATE_DECLENCHEUR.Value
DESCRIPTION = Me.DESCRIPTION.Value
PILOTE = Me.PILOTE.Value
date_prev = DateToSQL(Me.DELAI_INIT.Value)
Set db = CurrentDb
Set rst = db.OpenRecordset("T SUIVI ACTIONS", dbOpenTable)
rst.AddNew
rst.Fields("N°").Value = QCDS
rst.Fields("CSA").Value = serie
rst.Fields("ETAPE").Value = ETAPE
rst.Fields("DECLENCHEUR").Value = DECLENCHEUR
rst.Fields("DATE_DECLENCHEUR").Value = date_decl
rst.Fields("ACTION").Value = DESCRIPTION
rst.Fields("PILOTE").Value = PILOTE
rst.Fields("DATE PREVUE").Value = date_prev
rst.Fields("ETAT").Value = ETAT
rst.Update |
J'ai l'erreur 13 , incompatibilité de type sur la ligne suivante:
date_prev = DateToSQL(Me.DELAI_INIT.Value)
Par contre dans le module, peux tu expliquer pourquoi on ne met pas MM/DD/YYYY ?
Si vous pouviez m'expliquer mes difficultés, sachant que dans mes tables, les champs de date sont spécifiés Date/Heure.??
Ce que j'en comprends, c'est une incompatibilité entre notre système de date DD/MM/YYYY et celui de SQL qui est du type MM/DD/YYYY ???
Merci pour l'aide!
Partager