Discussion :

[sebus]

Bonjour,

J'utilise Access97

je voudrais savoir comment faire pour rajouter des enregistrements dans une table à partir d'un controle dans un formulaire.
Le probleme est que le formulaire de départ n'est pas crée à partir de la table où je veux faire mes enregistrements.

Exemple:
Formulaire f1 crée à partir de la table t1
Je veux enregistreer des infos de f1 dans t2

Merci :-) !!!!

[jfox]

Bonjour,

il faut passer par un objet d'accès aux données (DAO) sur un événement que tu détermineras (après mise à jour par exemple).
Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim db as database
dim rst as recordset
 
set db=currentdb
set dt=db.openrecordset("nom_table",dbopentable)
 
dt.addnew
dt!champ1=me.champ1
dt!champ2=me.champ2
etc.
 
dt.update
dt.close
db.close

A+

[sebus]

Je comprends l'idée de base du code mais j'ai quelque question:

qu'est ce que dt et me?
(dt = dataBaseOpenTable ?
me = ?)

Donc en gros il faut que j'ouvre un objet pour la table.Ca ok.
Mais ensuite comment faire pour récupérer les champs qu'il me faut dans le formulaire?

Merci!

[Faw]

Ou une requête insertion (Ajout), ici avec des champs de type texte.

Code :

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

1
2
DoCmd.RunSQL "INSERT INTO [Tab2] ( Champ1,Champ2) VALUES ('" & _
Forms!f1!Textbox1 & "','" & Forms!f1!Textbox2 & "')"

[jfox]

Mille excuses ! Change dt par rst.
Me = l'objet actif, ici ton formulaire.

[sebus]

Merci, super je vais essayer la requete insertion avec le code

Je connais un peu SQL, j'avais écris une requete du meme genre, mais je savais pas comment faire pour faire reference au formulaire f1, j'arrivai pas à trouver la bonne syntaxe! (c'est un peu bizarre avec les ' et les ")
Bon aller j'essaye!!!!!!

[Faw]

Les ' encadrent les Zones Texte, faut les enlever
pour les zones numériques...

[sebus]

je viens de taper ce code

Code :

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

DoCmd.RunSQL "INSERT INTO [Sebastien_ficheTechnique] (epaisseurTotale) VALUES ('" & _Forms![calcul de prix]!eptot & "')"

et lors de l'utilisation access me retourne une erreur de syntaxe

Pourquoi dont?

[jfox]

Enlève le tiret bas devant Forms. Par ailleurs, s'il s'agit de valeurs numériques, tu n'as pas besoin des quotes (simples ou doubles).

[sebus]

Ouaip c'est bon,merci, mais il faut quand meme garder les guillemets.

Acces me demande si je confirme l'ajout. Je dis oui bien evidement.
Ensuite une erreur s'affiche: violation des regles de validation.
D'ou peut venir le probleme?

[sebus]

Excusez moi je viens de regler le probleme tout seul.

Par contre (promis c'est le dernier truc que je demande aujourd'hui) comment faire pour que l'on ne soit pas obligé de valider la boite de dialogue qui confirme que l'on fait une insertion?

Merci beaucoup pour votre aide, vous m'avez fais gagné un temps très précieux!!

[jfox]

Regarde si tu n'as pas un champ dans la table cible qui nécessite impérativement une valeur ou bien s'il n'y a pas un problème d'intégrité référentielle.

[Faw]

Avant l'ajout

Code :

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

DoCmd.SetWarnings False

Après l'ajout

Code :

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

DoCmd.SetWarnings True

Edit: ça c'est pour les validations.

pour le problème de violation des règles... jfox a raison,
faux regarder du coté de ta structure de table et de ses
dépendances.

[sebus]

MERCI tout marche nickel!!!!!!!!!!!

[jfox]

Dans le menu Outils/options, onglet Modifier/Rechercher, tu décoches requêtes action de la zone "confirmer".