Discussion :

[manu971]

Bonjour,

Je souhaite insérer des données saisies dans différents champs d'un formulaire dans une table sans utiliser les "boutons de déplacement" du formulaire mais en utilisant un bouton qui lance une requête d'insertion.

Emmanuel

[Invité]

Bonjour

Je ne comprends pas ta question, tu viens d'écrire la solution.
Quel est ton problème ?
Montre-nous ce que tu as déjà fait.

Starec

[manu971]

Pas de problème pour créer le bouton.

Le problème est la syntaxe de la requête elle-même et son "empaquetage". Que dois-je écrire dans le code lié à mon formulaire et comment faire référence aux champs de ce même formulaire ?

Emmanuel

[manu971]

Voilà où j'en suis :

Private Sub Commande52_Click()
insert into T_Crédits_Pri values toto, titi;
End Sub

Ce qui me donne une erreur de compilation.

Manifestement, je ne peux pas introduire ma requête de cette façon.

[manu971]

Suis-je sur la bonne voie ?

Private Sub Commande52_Click()
Dim insertion As String
insertion = "insert into T_Crédits_Pri values titi,toto"
DoCmd.RunSQL insertion
End Sub

[berti]

plusieurs probleme, l'insertion d'une requête sql en langage VBA et ta requête qui ne va pas

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 Commande52_Click()
 
Dim val1, val2
Dim sql
 
DoCmd.SetWarnings False
 
val1 = Me![valeur1]
'valeur2 est champ texte
val2 = Me![valeur2]
 
sql = "INSERT INTO [Table] ( champ1, champ2 ) VALUES (" & val1 & ", '" & val2 & "');"
MsgBox sql
DoCmd.RunSQL (sql)
 
End Sub

[manu971]

J'étais donc sur la bonne voie. Merci beaucoup.