Discussion :

[tanaka59]

Bonjour

J'ai le code suivant à executer en vba :

Option Compare Database

Option Explicit

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ajouter_click() ' le formulaire ou a lieu la saisi est le formulaire >> ajout_etablissement_universitaire
 
Dim db As Database
Dim rs As Recordset
Dim requetesql As String
 
requetesql = "INSERT INTO ETABLISSEMENTS ( cod_etb_sup , lib_etb_sup  , lib_ad1_etb_sup , lib_ad2_etb_sup , cod_com_etb_sup ) values ( '', '" & Me!lib_etb_sup & "' , '" & Me!lib_ad1_etb_sup & "' ,  '" & Me!lib_ad2_etb_sup & "' , '" & Me!cod_com_etb_sup & "' );"  ' j'ai laissé volontairement le champs cod_etb_sup vide dans ma table c'est un numéro automatique qui se généré automatiquement
 
Set db = CurrentDb
 
CurrentDb.Execute requetesql ' ici le programme crach sur cette ligne avec pour motif un type de données incompatible , c'est à dire ? 
 
End Sub

Je ne vois pas d'ou vient cette erreur type de données

Merci d'éclairer ma lanterne

[jimbolion]

tanaka59,

Tu as toi même donné la réponse !

Puisqu'il s'agit d'un numéro automatique (Auto-increment) de type entier long, comment veux tu lui passer une chaîne vide de type texte.

Enlève cette référence dans ta chaîne (dans les arguments d'insertion et de valeurs) et laisse un peu Access travailler tout seul (çà lui fera pas de mal). Ton numéro sera automatiquement créé : pas de soucis...

Bonne journée

[tanaka59]

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ajouter_click()
 
Dim db As Database
Dim rs As Recordset
Dim requetesql As String
 
requetesql = "INSERT INTO ETABLISSEMENTS ( lib_etb_sup  , lib_ad1_etb_sup , lib_ad2_etb_sup , cod_com_etb_sup ) values ( '" & Me!lib_etb_sup & "' , '" & Me!lib_ad1_etb_sup & "' ,  '" & Me!lib_ad2_etb_sup & "' , '" & Me!cod_com_etb_sup & "' );"  
 
Set db = CurrentDb
 
CurrentDb.Execute requetesql
 
End Sub

Correction faite l'ajout marche impeccablement avec le nouveau code

Merci