Bonjour,

Je rencontre un problème lors de l'ajout d'un enregistrement dans une base de données access.

J'ai déjà utilisé ce code pour plusieurs autres tables et cela fonctionne parfaitement.

Ici, j'obtiens le message d'erreur indiqué dans le titre du topic.

J'ai vérifier le type de mes données et tout concorde parfaitement.

Je ne copie que la partie qui crée et ajoute le nouvel enregistrement dans la table. La ligne en rouge est la ligne qui aboutit au message d'erreur.

Je suis conscient qu'il doit probablement s'agir d'une erreur de "débutant" mais je dois bien reconnaître que j'en suis un.

Merci d'avance à tous ceux qui prendront le temps de m'aider un peu.

Griftou.

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
24
25
Try
  dataRow = dataTable.NewRow
  dataRow("NUMERO") = Me.tbNumOffre.Text
  dataRow("DATE") = Me.tbDateOffre.Text
  dataRow("GESTIONNAIRE") = employes.Item(Me.cbGestionnaire.Text)
  dataRow("ORIGINE") = Me.tbOrigine.Text
  dataRow("DESTINATION") = Me.tbDesti.Text
  dataRow("REMARQUE") = Me.tbRem.Text
  dataRow("CAR") = car
  dataRow("PRIX") = prix
  dataRow("CLIENT") = clients.Item(Me.cbClient.Text)
  dataRow("TOTAL") = total
  dataRow("ACCOMPTE") = 0
  dataRow("CONFIRMEE") = False
  dataRow("CHAUFFEURS") = ""
  dataSet.Tables("TB_OFFRE").Rows.Add(dataRow)
  commandBuilder = New OleDbCommandBuilder(dataAdapter)
  dataAdapter.Update(dataSet, "TB_OFFRE")
 
Catch ex As Exception
  MessageBox.Show("Erreur lors de l'enregistrement de la nouvelle offre : "
 & ex.Message.ToString, "Database error")
  Exit Sub
End Try
EDIT :

Inutile de dire que j'ai consulté tous les tutoriels du site ainsi que la FAQ.