Discussion :

[steffk]

Bonjour,

J'ai crée un état avec un bouton qui va ajouter les champs suivants. je veux récupérer les informations de l'état.
TABLE : T_Factures
N° facture - Numerique Clé primaire
ID_client - texte
Date_facture - Date
Réport_grille - Monetaire/euro

voici le vba pour le bouton

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
Private Sub Commande68_Click()
' L'objet db pointe vers la base de données en cours
  Dim db As DAO.Database
  Set db = CurrentDb
 
  ' Une instruction SQL
  Dim strSQL As String
  strSQL = "INSERT INTO [T_Factures] ([N°Facture], ID_client, Date_Facture, Report_grille)" _
    & " VALUES (Me.[N° Facture].Value,'Me.[ID_client].Value',Me.[Date_Facture].Value,Me.[grille].Value);"
 
  ' On exécute l'instruction
  db.Execute strSQL
 
  ' On affiche le nombre de lignes modifiées
  MsgBox db.RecordsAffected
End Sub

Message d'erreur : Trop de peu de paramètres. 3 attendu.

Merci d'avance pour l'aide apportée.
Stéphane.

[marot_r]

Bonjour.

Essaye cela.

Code :

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

1
2
strSQL = "INSERT INTO [T_Factures] ([N°Facture], ID_client, Date_Facture, Report_grille)" _
    & " VALUES (" & Me.[N° Facture].Value & ",""" & Me.[ID_client].Value & """,#" & format(Me.[Date_Facture].Value,Me.[grille].Value, "yyyy\-mm\-dd") & "#);"

Un bon truc pour tester le SQL dans le code est de

1. Faire générer la chaîne dans le code, puis de mettre un point d'arrête après.
2. Dans la fenêtre d'exécution immédiate ([ctrl][g]), faire afficher la chaîne.
3. Sélectionner et copier la valeur affichée.
4. Coller cette valeur dans une requête vierge et voir ce que cela donne quand on essaye de l'exécuter.

Généralement on a un message explicite sur la source de l'erreur.

Et pourquoi ne pas utiliser un formulaire connecté à ta source de données. Tu éviterais tout ce codage.

A+