OVH Cloud OVH Cloud

Ajout d'enregistrements avec VBA

1 réponse
Avatar
Jacques Bellavance
Bonjour,

J'essaie de créer un bouton qui ajoutera des enregistrements dans une table.
Il me manque une instruction pour modifier le contenu des enregistrements
ajoutés. La table dans laquelle ces enregistrements sont ajoutés et indexée
(clé primaire) sur deux champs : le numéro de l'étudiant et le numéro
d'exercice effectué (un entier).

Cela pourrait ressembler à ceci... peut-être?

Private Sub Commande16_Click()
On Error GoTo Err_Commande16_Click
Dim I As Integer
For I = Me.JourDe To Me.JourA 'Me. faisant réf.
au formulaire?
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
[Dans l’enregistrement fraichement créé].[Jour]=I '??????
Next I
Exit Sub
Err_Commande16_Click:
MsgBox Err.Description
End Sub

Merci pour toute aide que vous pourriez m'offrir

1 réponse

Avatar
Ce que tu sembles faire c'est copier l'enregistrement en
cours à la fin de la meme table (celle attachée au
formulaire)

Si tes 2 champs sont dans ton formulaire, pourquoi ne pas
relier leurs controlsource à ta table?
Plus de détail sur la source de tes données
-sont tapées
-lus sur une autre table

Ordino
-----Message d'origine-----
Bonjour,

J'essaie de créer un bouton qui ajoutera des
enregistrements dans une table.

Il me manque une instruction pour modifier le contenu des
enregistrements

ajoutés. La table dans laquelle ces enregistrements sont
ajoutés et indexée

(clé primaire) sur deux champs : le numéro de
l'étudiant et le numéro

d'exercice effectué (un entier).

Cela pourrait ressembler à ceci... peut-être?

Private Sub Commande16_Click()
On Error GoTo Err_Commande16_Click
Dim I As Integer
For I = Me.JourDe To
Me.JourA 'Me. faisant réf.

au formulaire?
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
[Dans lâ?Tenregistrement fraichement créé].
[Jour]=I '??????

Next I
Exit Sub
Err_Commande16_Click:
MsgBox Err.Description
End Sub

Merci pour toute aide que vous pourriez m'offrir

.