Bonjour,
Je me retrouve confronté à un problème et je vais avoir besoin d'un peu aide...
Pour résumé mon affaire. J'ai un formulaire A composé d'un bouton commande et d'un sous formulaire A.1. Ce sous formulaire est en mode feuille de données. Il contient des champs basés sur table nommé T_dossier. Ce sous formulaire doit servir à sélectionner des enregistrements dans la table T_dossier. Un enregistrement représente le dossier d'une personne. Ce dossier par la suite devra etre controlé (le but de mon appli). Un controleur arrivera sur le formulaire A, sélectionnera un dossier parmis tous (sélection dans le sous formulaire A1), et cliquera sur le bouton de commande "controler le dossier sélectionné". Un formulaire B s'ouvrira alors.
Je souhaite en faite que lorsqu'un dossier est sélectionné l'IDdossier de la table T_dossier aille dans le champ IDdossier de T_controle. Pour le moment j'ai aucun souci. J'utilise la méthode OpenArgs avec :
Mon problème est que lorsque je sélectionne un dossier dans le sous formulaire, La méthode Openform n'ajoute que le premier enregistrement de la table, elle ne prend pas en compte la sélection éffectué. Donc je pense qu'il manque quelque chose dans le code mais à vrai dire je m'y connais pas assez en VBA pour trouver... Du moins je pense que le problème se trouve sur DoCmd.GoToRecord , il y a surement quelque chose de manquant c'est même sur...
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 '--------------------------------------------------------------------------------------- ' Bouton ouverture du formulaireB '--------------------------------------------------------------------------------------- Private Sub controlselectdoss_Click() ' Bouton "controler le dossier sélectionné" DoCmd.OpenForm "formulaireB", , , acFormAdd, , Me!IDdossier DoCmd.Close acForm, Me.Name End Sub '--------------------------------------------------------------------------------------- ' code sur lévenement OpenForm dans le formulaire B '--------------------------------------------------------------------------------------- Private Sub Form_Open(Cancel As Integer) DoCmd.GoToRecord , , acNewRec Me!IDdossier = Me.OpenArgs End Sub
Au niveau de mon shéma relationnel. J'ai :
T_dossiers (IDdossiers, nom, prénom, num secu,....)
qui est relié à T_controle (#IDdossier, IDcontroledossier, IDcontroleutr, heure du controle...etc)
T_controle est en relation avec T_ Resultatcontrole (#IDcontroledossier,IDlibptsCtrole, OK, KO, incidence doc....)
Merci pour votre aide. En espérant trouver une solution...![]()
Partager