Discussion :

[lagratteCchouette]

Bonjour,

Voilà mes relations de table









































Je veux pourvoir dans mon frm Contacts ayant un sous sfrm_rapport intégrer un bouton positionné dans ce même sous sfrm rapport afin d'ouvrir un frm_taches-détails pour la table tbl_taches.

J'ai donc mon client en entête, mon sous formulaire dans lequel j'écris le rapport de visite et là tout roule...
Mais je n'arrive pas à ouvrir le frm_taches-détails afin qu'automatiquement il associe l'entrée de la tache a tbl_rapports => ID_rapport à tbl_taches =>ID_rapport-visite dans ma table.
Help comment faire pourtant les relations sont bonnes, Est-ce que le problème c'est à l'ouverture du frm_taches-détails et si oui que faire ?????

Merci votre votre concours.

[madefemere]

Bonsoir,

S'agissant de l'ouverture d'un formulaire à partir d'un autre, tu ne bénéficies pas de la propriété de la relation entre tes tables.
Il te faut coder l'assignation de la valeur du Id_rapport courant du sous-formulaire sfrm_rapport au champ ID_rapport-visite à chaque nouvel enregistrement (tâches) dans ton formulaire frm_taches-détails. Un code du genre :

Code :

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

Forms.frm_taches-détails.ID_rapport-visite = Forms.frm_Contacts.sfrm_rapport.Form.ID_rapport

Cordialement,

[lagratteCchouette]

Merci pour cette information, mais je suis un peu perdu où dois-je coder cela pour que cela fonctionne stp ?

[madefemere]

Tu peux mettre ce code sur l'évènement "Sur ouverture" et "Sur activation" de ton formulaire frm_taches-détails.

Cordialement,

[lagratteCchouette]

Merci, je crois que l'on s'approche du but.
Je n'ai plus de message d'erreur mais cela ne capture pas l'ID_rapport...




























































Voilà ce que cela donne et j'ai mis ce code sur ouverture et activation

Code :

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

[ID_rapport-visite]=[Formulaires]![01_frm-rapports-visites]![01_sfrm-rapports-visites]![ID_rapport]

RE HELP

[madefemere]

Re-,

T'as oublié un Form a priori :

Code :

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

[ID_rapport-visite]=[Formulaires]![01_frm-rapports-visites]![01_sfrm-rapports-visites].Form![ID_rapport]

Cordialement,

[lagratteCchouette]

Merci tu es super sympa, mais...

y quelque chose qui ne marche pas et je dois faire une erreur quelque part voici mes captures d'écran




























































































































Le générateur de code ma confirme ton approche mais avec une exp et je tour en rond alors que l'on est si proche.

Merci beaucoup pour ton aide.

[madefemere]

Euh,
T'es passé à côté de quelque chose. Le code est à mettre dans le code évènementiel Sur activation et Sur ouverture.
1- Tu affiches la feuille de propriétés du formulaire.
2- Tu vas sur la ligne correspondant à aux évènements indiqués.
3- Tu cliques sur les ... à la fin de la ligne
4- Une boite de dialogue va s'afficher, tu choisis : Générateur de codes et tu arrives dans l'éditeur VBA. C'est là que tu mets le code.
Exemple, sur activation, tu vas avoir un code du genre :

Code :

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

1
2
3
Private Sub Form_Current()
[ID_rapport-visite]=[Formulaires]![01_frm-rapports-visites]![01_sfrm-rapports-visites].Form![ID_rapport]
End Sub

Cordialement,

[lagratteCchouette]

Ok merci
J'ai effectivement la ligne de code en procédure événementielle et j'ai ce message ci-dessous maintenant.

Code :

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

[ID_rapport-visite]=[Formulaires]![01_frm-rapports-visites]![01_sfrm-rapports-visites].Form![ID_rapport]

Là j'en perd mon latin.

[lagratteCchouette]

Bon je recommence l'enregistrement du code dans les lignes activation et ouverture n'avait pas marché.

Le code

Code :

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

[ID_rapport-visite] = [Formulaires]![01_frm-rapports-visites]![01_sfrm-rapports-visites].Formulaires![ID_rapport]

Le message :



Le déboguer :



Je joins ma BDD ACCES ZIPPE pour mieux comprendre... dans le message suivant

Merci pour tout.

[lagratteCchouette]

BBD_Developpez-com2.zipEt voilà cela ne voulait pas passer dans le message précèdent.

[Robert1957]

Bonjour lagratteCchouette, madefemere,

Une autre approche serait de récupérer le ID avec le OpenArgs dans la commande pour ouvrir le formulaire.

Dans le formulaire 01_sfrm-rapports-visites le code suivant:

Code :

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

1
2
3
4
5
Private Sub Btn_Ouv_Taches_Click()
 
    DoCmd.OpenForm "frm_taches-details", , , , acFormAdd, , Me.ID_rapport
 
End Sub

Et dans le formulaire frm_tahces-details le code suivant:

Code :

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

1
2
3
4
5
Private Sub Form_Load()
 
    If Not IsNull(Me.OpenArgs) Then: Me.ID_rapport_visite.DefaultValue = Me.OpenArgs
 
End Sub

Voici la base avec le code.

Bonne journée

[lagratteCchouette]

SUPER GENIAL, merci énormément pout tout cela marche très bien.
Car je ne savais pas que les relations tbl ne marchaient pas entre frm.

A+

[Robert1957]

P.S.

Ne pas oublier de passer en résolu.

Bonne journée

[lagratteCchouette]

Bonjour,
Cela marche bien sur l'exemple de la BBD, mais quand je le reproduit sur ma BDD il me met Erreur 2498.
Apparemment c'est le fait que le lance depuis mon frm!sfrm donc sous formulaire que cela plante.
Car si j'ouvre uniquement mon sous frm alors ça marche.


Que se passe-t-il ?


RE HELP

[Robert1957]

Bonjour lagratteCchouette,

Je ne crois pas que ce soit lié au fait que c'est un sous-formulaire. Dans la base envoyé c'est aussi un sous-formulaire.

Erreur d'exécution 2498: Le type d'une expression entré pour un des arguments est incorrect

Ajoute un MsgBox comme suit:

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
 
MsgBox Me.OpenArgs    
If Not IsNull(Me.OpenArgs) Then: Me.ID_rapport_visite.DefaultValue = Me.OpenArgs
 
End Sub

Tu pourras ainsi voir ce que tu récupères dans le OpenArgs. C'est peut-être là que ce situe l'erreur.

Bonne journée

[lagratteCchouette]

Merci
Super pour cette aide cela marche.

A+