Discussion :

[nianko]

Bonjour a tous,

J'ai un formulaire qui contient un controle et sur ce controle il y a un sous-formulaire. J'aimerais a partir du sous formulaire ajouter un enregistrment dans la table correspondante.

Voici les noms utilises:
Formulaire principal contenant le controle: frm_AddItems
Controle sur le form principal contenant le sous-formulaire:ctrAddItems
Sous-formulaire: sbfrm_tblEmetteurs_AddItems

J'ai tente plusieurs solutions mais aucune ne marche:

Code :

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

1
2
3
4
Private Sub Form_Load()
    Me.ctrAddItems.Name.SetFocus
    Me.ctrAddItems.Form.Recordset.AddNew
End Sub

Code :

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

1
2
3
Private Sub Form_Load()
DoCmd.GoToRecord acDataForm, Me.frmAddItems.ctrAddItems.sbfrm_tblEmetteurs_AddItems.Name, acNewRec
End Sub

Code :

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

1
2
3
4
Private Sub Form_Load()
    Me.ctrAddItems.Name.SetFocus
    DoCmd.GoToRecord acDataForm, Me!ctrAddItems.sbfrm_tblEmetteurs_AddItems.Name, acNewRec
End Sub

Je commence vraiment a etre a court d'idees.

Merci de m'aider si vous voyez une solution.

C

[loufab]

Bonjour,
C'est sympa d'avoir des idées (à une époque ça devait remplacer le pétrole...) mais consulter la doc c'est mieux.

1) ne fait aucun traitement de données sur l'événement Load, le formulaire est en cours de chargement, donc les données ne sont pas encore présentes. Utilise form_Open plutôt.

2) Si tu fonctionnes avec le . tu accès à l'autocomplétion, donc Name.setfocus, je ne pense pas que ça existe . A de rares exceptions ce qu'il y a dans une liste, c'est ce que tu peux utiliser, et rien de plus, inutile de t'inventer des méthodes/propriétés.
Me.sbfrm_tblEmetteurs_AddItems.setfocus devrait mieux fonctionner.

3) Docmd est la commande qu'il te faut. encore faut-il utiliser les bons arguments et connaitre sa vrai fonction :

Code :

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

docmd.GoToRecord acDataForm,"sbfrm_tblEmetteurs_AddItems",acNewRec

PS : Le setfocus est inutile pour invoquer cette commande, elle n'est utile que pour "l'activation" du contrôle.

Si tu lis la doc sur cette commande (F1 sur GotoRecord) tu verras que c'est juste un placement sur le nouvel enregistrement, rien n'est créé.

Pour créer véritablement un enregistrement, soit tu utilises une requête (dans ton code c'est possible) soit tu le fais avec des recordset addnew et update.

Code :

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

1
2
3
me.sbfrm_tblEmetteurs_AddItems.form.recordset.addnew
me.sbfrm_tblEmetteurs_AddItems.form.moncontrole = valeur
me.sbfrm_tblEmetteurs_AddItems.form.recordset.update

Il y a un tuto sur DAO.

Bref comme tu le vois, ACCESS et très différent d'EXCEL.

Cordialement,