INSERT depuis formulaire

**bozolozo** · 02/12/2004, 11h28

Salut tout le monde,
je m'excuse par avance d'avoir poser une question similaire mais je débute vraiment...

J'ai créé un formulaire base sur 2 tables : "commande header" et "commande details".
Maintenant, je voudrais créer un bouton qui me pemette d'enregistrer ces valeurs dans 2 nouvelles tables ("commande validée header" et "commande validée details") lorsqu'elles sont traitées.

J'ai essayé avec ca mais ca ne marche pas (peut etre que je ne l'utilise pas comme il faut...), j'obtiens une erreur sur la ligne Set rst1 = CurrentDb.... :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim rst1 As Recordset 
Set rst1 = CurrentDb.OpenRecordset("commande validée header", dbOpenDynaset) 
rst1.Edit 
      rst1!Champ1 = modif 1 
      rst1!Champ2 = modif 2 
      ... 
rst1.Update 
rst1.Close 
Set rst1 = Nothing

Ou faut-il utiliser un truc du style:

Code :

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

DoCmd.RunSQL "INSERT INTO 'commande validée header'..."

Ou encore:

Code :

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

1
2
 
db.Execute "INSERT INTO 'commande validée header'..."

Merci d'avance pour les éclaircicements

**Tofalu** · 02/12/2004, 11h34

Bonjour

Pour tout ce qui est nom Access (nom de champ, nom de table ...), évite les espaces.

Il te faut une reference DAO dans ton projet pour pouvoir utiliser currendb et les recordset.

Donc sous VBA, menu Outils-->Reference et tu ajoute Microoft DAO 3.X avec X le plus haut.

Ensuite quand tu déclares tes varaibles (comme les recordsets par exemple) , indique la librairie :

Code :

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

Dim rst1 As DAO.Recordset

On obtiens donc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim rst1 As DAO.Recordset 
DIM db as DAO.database
set db=currentdb
Set rst1 = db.OpenRecordset("[commande validée header]", dbOpenDynaset) 
rst1.Edit 
      rst1!Champ1 = modif 1 
      rst1!Champ2 = modif 2 
      ... 
rst1.Update 
rst1.Close 
Set rst1 = Nothing

Et n'oublies pas que dev.com regorge de tutoriel notamment sur Access

Tu peux aussi utiliser :

Code :

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

DoCmd.RunSQL "INSERT INTO [commande validée header]..."

L'important est donc d'encadrer tes nom avec des crochets quand tu as des espaces, des caractères spéciaux ou encore des mots reservé tel un champ nommé date. Il faudra l'appelé par [date] dans les requêtes ou alors ne pas utiliser dans ta table mais plutôt [ladate]

**bozolozo** · 02/12/2004, 12h19

Salut tofalu et merci pour ton aide

J'obtiens une erreur sur cette ligne :
Set rst1 = db.OpenRecordset("[commande validée header]", dbOpenDynaset)

Quand je passe la souris au dessus de rst1, il me dit rst1 = Nothing
et lorsque je la passe au dessus de dbOpenDynaset il me dit dbOpenDynaset = 2

Qu'est ce que ca veut dire?
Merci d'avance...

**Petogaz** · 02/12/2004, 12h53

salut,

pour apporter une petite modification : l'objet Recordset DAO accepte bien des espaces dans le nom d'une table s'il ne contient pas d'autres arguments. mais en règle général ce qu'a dit Tofalu est correcte. ne pas oublié de mettre

Code :

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

set db = Nothing

pour ton code essais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub DAO_Ajoutdetatable()
Dim rst1 As DAO.Recordset 
DIM db as DAO.database 
set db=currentdb() 
Set rst1 = db.OpenRecordset("commande validée header") 
rst.AddNew
      rst1("Champ1") = modif 1 
      rst1("Champ2") = modif 2 
      ... 
rst1.Update 
rst1.Close 
Set rst1 = Nothing
set db = Nothing
End Sub