Provoquer l'évènement d'un sous-formulaire

**ClaudeLELOUP** · 26/11/2006, 15h08

Bonjour,

J'utilise Access 2000.
J'ai 3 formulaires :
A (Mode simple) qui contient B (continu)
et C (continu).

Après la mise à jour d'un controle de C, je voudrais provoquer l'évènement FORM_CURRENT de B (déclaré Public Sub).

Dans ControleDeC_AfterUpdate, j'écris :

Code :

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

Forms![B].Form_current

ce qui provoque l'erreur '2450' : "Impossible de trouver le formulaire B ...."
Fatalement : c'est "A" qui est ouvert !

J'essaie alors :

Code :

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

Forms![A]![filleC].Form_Current

ce qui provoque l'erreur '438' :"Propriété non gérée ..."

L'un de vous connaît la solution, mais est-il là ?
Merci déjà.

**helas** · 26/11/2006, 16h53

Cela devrait suffire

Code :

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

1
2
 
 Forms("A").Form("C").Requery

**DelphiManiac** · 26/11/2006, 17h02

Comme ceci :

Code :

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

1
2
Forms![A]![filleC].Form.Form_Current

**ClaudeLELOUP** · 26/11/2006, 18h33

Code :

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

Forms("A").Form("C").Requery

me donne le résultat que je souhaite.

par contre

Code :

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

Forms![A]![filleC].Form.form_current

me donne : "2465" Erreur définie par l'application ou par l'objet.

Merci.
Bonne soirée.

**DelphiManiac** · 27/11/2006, 09h18

Envoyé par ClaudeLELOUP

[code]...
par contre

Code :

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

Forms![A]![filleC].Form.form_current

me donne : "2465" Erreur définie par l'application ou par l'objet.

Merci.
Bonne soirée.

J'ai vérifié par acquis de conscience (on sais jamais, je me fais vieux ^^), cette syntaxe fonctionne bien, mais il faut que le formulaire soit affiché en monde simple/continu et pas en mode design sinon on a bien l'erreur 2465 en mode design.

L'inconvénient de faire un requery, c'est de 1) provoquer une mise à jour du recordset, si la base est importante ou la requête complexe, ca peut être long 2) changer l'enregistrement actif, access se positionne sur le 1er enregistrement après un requery.

**ClaudeLELOUP** · 27/11/2006, 11h28

Envoyé par DelphiManiac

J'ai vérifié par acquis de conscience (on sais jamais, je me fais vieux ^^), cette syntaxe fonctionne bien, mais il faut que le formulaire soit affiché en monde simple/continu et pas en mode design sinon on a bien l'erreur 2465 en mode design.

L'inconvénient de faire un requery, c'est de 1) provoquer une mise à jour du recordset, si la base est importante ou la requête complexe, ca peut être long 2) changer l'enregistrement actif, access se positionne sur le 1er enregistrement après un requery.

Merci pour cette remarque.
Voici comment j'ai finalement résolu le problème :
Mon but était de provoquer l'évènement sur un record bien précis.

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
Public Sub AtteindreLeRecordN°UntelDuSousFormulaire(N°DuRecordAAtteidre)
Dim OùjeSuis As Integer
'se positionner sur le 1er enregistrement du sous-formulaire B
Forms!FormulaireA!Fille1.SetFocus
DoCmd.RunCommand acCmdRecordsGoToFirst
 Do  'lancer une boucle qui fait avancer jusqu'à atteindre le N° de record désiré
  OùjeSuis = Forms!FormulaireA!Fille1.Form.CurrentRecord
    If OùjeSuis <> N°DuRecordAAtteidre Then  'ce n'est pas encore celui-là
       Forms!FormulaireA!Fille1.SetFocus
       DoCmd.RunCommand acCmdRecordsGoToNext
    Else  'le but est atteint, arrêter le processus
       Exit Sub
    End If
 Loop
End Sub

Bonne journée à tous

**Dafbau** · 27/11/2006, 13h45

Bonjour

J'ai un problème de navigation entre sous formulaires, et votre post contient peut etre la réponse mais je ne la comprend pas.
Comment naviguer entre les deux sous-formulaires de mon formulaire pour en fonction de la valeur d'un controle du sous formulaire C, changer un controle du sous formulaire B ?

Merci

**ClaudeLELOUP** · 27/11/2006, 14h19

Ddans un bouton du form principal (A),
pour transférer le contenu du ControlB(dans le sous-form B) vers le ControlC(dans le sous-form C)
essaie ceci :

Code :

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

1
2
3
Private Sub Transfert_Click()
Me![FilleB]!controlB = Me![FilleC]!controlC
End Sub

**Dafbau** · 27/11/2006, 14h21

Merci de ta réponse

Mais mon but n'est pas de transférer le contenu de l'un vers l'autre.
En fait le controle du formulaire C est un Oui/non
en fonction de la réponse : le controle du B sera visible ou non

**ClaudeLELOUP** · 27/11/2006, 14h43

Private Sub Rendre_visible_Click()
If Me![FilleC]!cocher1 Then
Me![FilleB]!controlB.Visible = True
Else
Me![FilleB]!controlB.Visible = False
End If
End Sub

Mais il faut d'abord t'assurer que le controlB n'est pas actuellement actif.

**Dafbau** · 27/11/2006, 15h07

Je te remercie vivement

J'avais essayé des tas de syntaxes différentes, mais jamais la bonne.
Access a l'air tellement simple quand les autres résolvent mes problèmes !!