Discussion :

[Abed_H]

Bonsoir
J’ai saisie des données dans des textebox indépendant insérées dans un formulaire, je voudrais lorsque j’appuie sur un bouton dans le formulaire ces derniers seront automatiquement ajoutées dans ma table GestRec comme nouveau enregistrement s.v.p comment puis-je réalisé cette action ?
Quel est la requête vba appropriée associée à ce bouton ?

Merci par d'avance

Abed_H

[miamou]

Bonjour,

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
19
20
21
22
23
24
25
26
Private Sub btnOk_Click()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("GestRec", dbOpenTable)
 
'Passe en mode Ajout
oRst.AddNew
'Affecte les différents champs
oRst.Fields("Champ1").Value = Me.NomTextBox1.Value
'NomTexBox1 le controle que tu veux lié au Champ1
oRst.Fields("Champ2").Value = Me.NomTextBox2.Value
' et ainsi de suite pour tous les champs
 
 
'Met à Jour
oRst.Update
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
'si tu veux fermer le formulaire après ajout
DoCmd.Close acForm, Me.Name
End Sub

[Abed_H]

Bonjour miamou et merci je vais tester tous ca.
en plus que pense-tu de ce code que je l'ai trouvé dans le net et je n'est pas réussi de le faire démarrer.

Code :

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

DoCmd.RunSQL "INSERT INTO GestRec ([CENTRES ET AGENCES], JOURNEE, [CAT I], [CAT II], [CAT III], [CAT IV], PRESTATION) VALUES ([Form]!txtAg,date,[Form]!txtC1,[Form]!txtC2,[Form]!txtC3,[Form]!txtC4,[Form]!txtP)"

Bonne journée

Abed_H

[miamou]

Alors Abed_H, tu avances, on veut bien être au courant

[Abed_H]

Alors Abed_H, tu avances, on veut bien être au courant

Re
bien sûr miamou avec ton aide et celle de Philippe JOCHMANS ainsi les exemples sur le net et les questions/réponse postés dans ce forum par les contributeurs mes connaissances en la matière ont progressé vu que je maitrise un peut le vba et les bases de données.

merci à tous bonne fête et joyeux noël.

Abed_H

[miamou]

Bon courage.
(n'oublie pas de marquer le "Résolu" lorsque tu poste sur le forum et lorsque c'est résolu )