Discussion :

[jonathan.chaf]

Bonjour,
Après plusieurs heures de recherche j'en appel à l'aide.

Voici mon cas : j'ai un formulaire qui affiche les agents de sécurité sur site, lorsque je sélectionne un des agent par le petit carré à droite, le textbox du haut se remplie, on rentre l'heure et sur le bouton de maison j'aimerai faire ce qui suis


les infos de ce formulaire change en passant l'agent d'en poste à en ronde mais j'aimerai que ça inscrive des information dans un autre formulaire provenant d'un table lié (important car les macro créant des nouveaux enregistrements dans les table ne fonctionne pas avec table lié

voici le formulaire ou j'aimerai que s'inscrive l'action


pour l'instant j'ai tester ce type de code mais il ne trouve pas ma table car elle est liée

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
27
28
Private Sub ImgS_Click()
Dim rst As Recordset
Dim DBTemp As DAO.Database
 
 
If Me.heure = "" Then
MsgBox "Saisir heure de sortie"
Exit Sub
End If
 
Set DBTemp = CurrentDb
Set rst = DBTemp.OpenRecordset("BD_MC")
 
rst.AddNew
'rst!Code_MC = me.CodeMC
rst!Code_agent = Me.ID_Agent
rst!heure = Me.heure
rst!descrition_evenement = "Départ en ronde de l'agent"
rst.Update
 
Me.En_ronde = True
Me.heure = ""
Me.Agentselect = ""
Me.EtHeure = ""
 
 
DoCmd.Requery
End Sub

Merci

[jonathan.chaf]

finallement j'ai reussi grace a un tuto expliquant comment d'excel on enregistre sur une base vba voici le code:

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
Private Sub ImgS_Click()
Dim MonFichierAccess As Database
Dim MaTableDansAccess As DAO.Recordset
 
 
Set MonFichierAccess = OpenDatabase("chemin\fichier.accdb")
Set MaTableDansAccess = MonFichierAccess.OpenRecordset("BD_MC", dbOpenTable)
 
MaTableDansAccess.AddNew
MaTableDansAccess.Fields("Code MC") = Me.CodeMC 'on prend les colonne et on affect les valeur
MaTableDansAccess.Fields("Code agent") = Me.CodeAgent
...
MaTableDansAccess.Update
 
 
DoCmd.Requery
End Sub