OVH Cloud OVH Cloud

Soucis de procédure dans sous-form

3 réponses
Avatar
Marcotte300
Bonsoir,

J'ai cr=E9e un formulaire (FORM1) dans lequel j'ai ins=E9r=E9=20
un sous-formulaire (SFORM1).
Dans ce sous-formulaire (SFORM1) j'ai ins=E9r=E9 =E0 nouveau un=20
autre sous-formulaire (SFORM2).

Dans le formulaire (FORM1) j'ai plac=E9 des boutons de=20
commande (first, next, previous, last) pour me d=E9placer=20
dans les enregistrements.

En cliquant sur ces boutons de commandes, je souhaite=20
atteindre un controle dans mon sous-formulaire (SFOMR2).

Mais j'ai un petit souci avec la proc=E9dure :
Private Sub CmdMove(index As Integer)
On Error GoTo Err_CmdMove
Select Case index
Case 1
DoCmd.GoToRecord , "SFORM2", acFirst
DoCmd.GoToControl "[Subvention_Remb]"

Quand je clique sur l'un des boutons de commande, Access=20
me signale : "l'objet SFORM2 n'est pas ouvert".

Que dois-je modifier dans ma proc=E9dure?

Cordialement

3 réponses

Avatar
Raymond [mvp]
Bonsoir.

à partir de n'importe où:

Forms!FORM1!SFORM1.SetFocus
DoCmd.GoToRecord , , acFirst
DoCmd.GoToControl "Monchamp"

Forms!FORM1!SFORM1.Form!SFORM2.SetFocus
DoCmd.GoToRecord , , acFirst
DoCmd.GoToControl "Subvention_Remb"
ou
Forms!FORM1!SFORM1!SFORM2.SetFocus
DoCmd.GoToRecord , , acFirst
DoCmd.GoToControl "Subvention_Remb"
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marcotte300" a écrit dans le message
de news: 140c01c4bb8d$5aee0e30$
Bonsoir,

J'ai crée un formulaire (FORM1) dans lequel j'ai inséré
un sous-formulaire (SFORM1).
Dans ce sous-formulaire (SFORM1) j'ai inséré à nouveau un
autre sous-formulaire (SFORM2).

Dans le formulaire (FORM1) j'ai placé des boutons de
commande (first, next, previous, last) pour me déplacer
dans les enregistrements.

En cliquant sur ces boutons de commandes, je souhaite
atteindre un controle dans mon sous-formulaire (SFOMR2).

Mais j'ai un petit souci avec la procédure :
Private Sub CmdMove(index As Integer)
On Error GoTo Err_CmdMove
Select Case index
Case 1
DoCmd.GoToRecord , "SFORM2", acFirst
DoCmd.GoToControl "[Subvention_Remb]"

Quand je clique sur l'un des boutons de commande, Access
me signale : "l'objet SFORM2 n'est pas ouvert".

Que dois-je modifier dans ma procédure?

Cordialement
Avatar
Marcotte300
Bonjour,

Un autre problème maintenant. Un message me dit qu'il n'y
a pas de champ nommé "Subvention_Remb" dans
l'enregistrement en cours!

Je ne comprends pas!

Voici le début de la procédure :

On Error GoTo Err_CmdMove
Select Case index
Case 1
Forms!FORM1!SFORM1!SFORM2.SetFocus
DoCmd.GoToRecord , , acFirst
DoCmd.GoToControl "[Subvention_Remb]"



-----Message d'origine-----
Bonsoir.

à partir de n'importe où:

Forms!FORM1!SFORM1.SetFocus
DoCmd.GoToRecord , , acFirst
DoCmd.GoToControl "Monchamp"

Forms!FORM1!SFORM1.Form!SFORM2.SetFocus
DoCmd.GoToRecord , , acFirst
DoCmd.GoToControl "Subvention_Remb"
ou
Forms!FORM1!SFORM1!SFORM2.SetFocus
DoCmd.GoToRecord , , acFirst
DoCmd.GoToControl "Subvention_Remb"
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marcotte300" a
écrit dans le message

de news: 140c01c4bb8d$5aee0e30$
Bonsoir,

J'ai crée un formulaire (FORM1) dans lequel j'ai inséré
un sous-formulaire (SFORM1).
Dans ce sous-formulaire (SFORM1) j'ai inséré à nouveau un
autre sous-formulaire (SFORM2).

Dans le formulaire (FORM1) j'ai placé des boutons de
commande (first, next, previous, last) pour me déplacer
dans les enregistrements.

En cliquant sur ces boutons de commandes, je souhaite
atteindre un controle dans mon sous-formulaire (SFOMR2).

Mais j'ai un petit souci avec la procédure :
Private Sub CmdMove(index As Integer)
On Error GoTo Err_CmdMove
Select Case index
Case 1
DoCmd.GoToRecord , "SFORM2", acFirst
DoCmd.GoToControl "[Subvention_Remb]"

Quand je clique sur l'un des boutons de commande, Access
me signale : "l'objet SFORM2 n'est pas ouvert".

Que dois-je modifier dans ma procédure?

Cordialement


.



Avatar
Raymond [mvp]
Bonjour.

essaie ceci:

Forms!FORM1!SFORM1.SetFocus
Forms!FORM1!SFORM1.Form!SFORM2.SetFocus
DoCmd.GoToRecord , , acFirst
DoCmd.GoToControl "[Subvention_Remb]"
ça devrait aller.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marcotte300" a écrit dans le message
de news: 1b0f01c4bcc8$a36e9170$
Bonjour,

Un autre problème maintenant. Un message me dit qu'il n'y
a pas de champ nommé "Subvention_Remb" dans
l'enregistrement en cours!

Je ne comprends pas!

Voici le début de la procédure :

On Error GoTo Err_CmdMove
Select Case index
Case 1
Forms!FORM1!SFORM1!SFORM2.SetFocus
DoCmd.GoToRecord , , acFirst
DoCmd.GoToControl "[Subvention_Remb]"