Remplissage et validation d'un formulaire en VBA

Bonjour,

Je suis nouveau sur le forum et j'aurais besoin d'un peu d'aide.

Je modifie actuellement un fichier access pour que le formulaire se remplisse automatiquement à partir d'un fichier Excel.
Le formulaire est doté d'un sous formulaire lié à une table qui affiche les sous ensembles d'une pièce. Il est mis-à-jour en sélectionnant dans un ComboBox (cboYSN) le numéro de série de la pièce.

Mon problème est le suivant:
je n'arrive pas en VBA à charger le sous formulaire en fournissant le numéro de série au ComboBox.

J'ai essayé sans succès de combiner les methodes suivantes pour entrer/trouver la valeur et la faire valider: Me!cboYSN.Value = ... , DoCmd.FindFecord, Form.refresh, Form.requery, Sendkeys etc

En fait je ne sais pas vraiment comment le sous-formulaire est chargé ce qui m'empèche d'avancer.

J'espère que c'est assez clair. Merci d'avance pour vos lumières.

Christophe

Bonjour,

2 possibilités :

Soit le sous-formulaire est complètement indépendant du formulaire principal : il faut alors modifier Form_MonSousFormulaire.RecordSource = "select... where..." ou Form_MonSousFormulaire.filter (il y a plusieurs syntaxes possibles pour l'appel d'un objet d'un autre formulaire)

Soit il est dépendant par un lien père/fils alors la simple modification du champ père actualise le sous formulaire

Merci pour votre réponse.

On est dans le deuxième cas: le sous formulaire est lié à un champ appelé YSN dans le formulaire.

Cependant, quand je modifie ce champ directement (à la main ou en VBA), le sous formulaire se charge bien mais si je veux accéder au sous-formulaire, je reçois un message comme quoi tout enregistrement ou modification est impossible et créerait des problèmes de doublons ou d'index (je n'ai plus le message en tête, je peux le copier lundi).

A la main, quand j'utilise le ComboBox "cboYSN", le champ YSN se met à jour et le sous formulaire se charge avec possibilité de modifier les champs du sous-formulaire. C'est ce que j'essaie de reproduire en VBA.

Citation:

---

Envoyé par ctheau

Cependant, quand je modifie ce champ directement (à la main ou en VBA), le sous formulaire se charge bien mais si je veux accéder au sous-formulaire, je reçois un message comme quoi tout enregistrement ou modification est impossible et créerait des problèmes de doublons ou d'index (je n'ai plus le message en tête, je peux le copier lundi)

---

Il s'agit d'un champ indépendant ?
Au vu du message le problème semble plutot dans le formulaire principal

Bonjour,

Je ne pense pas:
- le champ a une source de controle: YSN
- C'est bien YSN qui est le lien avec le sous-formulaire (Link Master Fields et Link Child Fields = YSN)
- le comboBox est indépendant et le code associé au click est:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub cboYSN_Click() On Error GoTo Err_cboYSN Me!YSN.SetFocus DoCmd.FindRecord cboYSN, , True, , True Me!cboYSN.SetFocus Exit Sub Err_cboYSN:   End Sub

---

Lorsque j'entre une valeur dand le champs YSN et que je veux accéder au sous-formulaire, je reçois le message en PJ.
Si je selectionne la même valeur via le comboBox, la modification est possible.
Pièce jointe 203169

cboYSN doit être indépendant sinon la saisie tente de créer un nouvel enregistrement et access refuse de quitter le formulaire car cela validerait la création. Le sous-formulaire n'y est pour rien.

La macro marche correctement après avoir rendu le champ YSN indépendant.

Merci pour votre aide !

Christophe