Discussion :

[Steph21]

Boujour à vous tous

Voici mon problème

J'ai généré un formulaire qui dépend directement d'une table mais j'aimerai que quand je valide la ligne du formulaire certains champs s'enregistre aussi dans une autre table. J'ai essayé de faire cela via une requête ajout mais je ne peux m'en servir que via une table ou une autre requête...
J'ai esseyé aussi avec une macro et la fonction 'définir valeur' mais ça marche pas
si quelqu'un à une idée..

[keita]

salut
essaye avec un recordset sur les autres tables.
@+

[loufab]

Ou encore si tu n'est pas à l'aise avec les recordsets tu peux utiliser une requete de ce type :

Code :

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

1
2
3
 
INSERT INTO Table1 ( nom, age )
SELECT "Mavaleur1" AS expr, 10.2 AS expr2;

où Table1 est la table destination
nom et age sont les noms de champs dans lesquels il faut ajouter les valeurs.
Et le select représente les valeurs à ajouter.

cela donnera quelque chose comme ça :

Code :

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

1
2
3
4
5
 
dim sql as string
sql ="INSERT INTO Table1 ( nom, age )"
sql=sql+ " SELECT """ & me.monchamp1 & """ AS expr, " & me.monchamp2 & " AS expr2;"
CurrentDb.Execute sql

Monchamp1 est de type alphanumérique
Monchamp2 est de type numérique

Attention au type date dans VBA il est toujours au format US.

[Steph21]

je vais tenter la deuxième méthode, savez-vous où est ce que je pourrais trouver un tuto pour la première? merci !

[keita]

Steph21 a ecrit:

./.savez-vous où est ce que je pourrais trouver un tuto pour la première?

Regarder ici
http://warin.developpez.com/access/dao
@+

[Steph21]

Jusqu'à maintenant j'arrivais à me débrouiller avec les macros et les requêtes mais là.. et le vba c'est pas encore ça
Je récapitule ce que je fais;
Je créé un bouton en face de la ligne que je mets à jour dans le formulaire (tabulaire), je lui demande de faire n'importe quoi, ensuite je vais dans 'Propriété' puis 'Sur clic' et enfin sur '...' et voici le code que je mets après modif;

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
 
Private Sub Commande39_Click()
On Error GoTo Err_Commande39_Click
 
 
Dim sql As String
sql = "INSERT INTO z - Cahier de TVA - Achat ( Année, Mois )"
sql = sql + " SELECT """ & Année & """ AS expr, " & Mois & " AS expr2;"
CurrentDb.Execute sql
 
Exit_Commande39_Click:
    Exit Sub
 
Err_Commande39_Click:
    MsgBox Err.Description
    Resume Exit_Commande39_Click
 
End Sub

et ça me mets

Erreur de syntaxe dans l'instruction INSERT INTO

La table est 'z - Cahier de TVA - Achat' (vous l'aurez compris) et les champs 'Année' et 'Mois' que je veux copier coller...

[Steph21]

Finalement j'ai réussi via une macro; j'ouvre le formulaire de la seconde table en mode caché, je défini la valeur du formulaire caché avec le formulaire ouvert et ensuite je ferme le caché, et voilà
merci pour votre aide

[loufab]

C'est l'avantage d'access on peut faire une bidouille capilotratée fonctionnelle.

Si tu veux appronfondir la méthode INSERT n'hésite pas à nous solliciter.

Cordialement,