Discussion :

[jmde]

Bonsoir,

J'ai un formulaire , et un sous formulaire en mode feuille de donnée qui comporte une case à cocher.

Comment faire pour maintenir la position de l'ascenseur du sous formulaire lorsque je coche
la case à cocher

Merci pour votre aide.

Salutations

[jmde]

Bonjour,

J'essaei sans succès de résoudre mon problème , je pense que j'utilise mal l'objet
gotoRecord car ça ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Cocher90_Click()
 
Dim strCritere As String
 
'--- Id de l'enregistrement coché
      strCritere= "[RéfAdhérent]=" & Me![txtRéfAdhérent]
 
'--- Met le focus
      Forms![frm Màj des activités]![frm Màj des activités-sfm].SetFocus
 
'--- Goto sur l'enregistrement
     DoCmd.GoToRecord , acGoTo, strCritere
 
en sub

J'apporte quelques précisions sur mon formulaire.

c'est un formulaire à onglet, le sous formulaire qui contient la case à cocher se nomme "sfm Mise à jour des activités bis" et se trouve sur le 2ème onglet avec pour source un sous formulaire qui se nomme "frm Màj des activités-sfm"

J'espère que vous pourrez m'aider.

Salutation

[User]

Bonsoir,

Avez-vous une idée de la raison de ce changement de position de l'ascenseur du sous-formulaire quand vous cochez la case ?

Cdt,

[jmde]

Bonjour,

Merci pour ta réponse.

Oui je crois que c'est le requery et setFocus que je fais sur la case à cocher90, c'est pour cela que je
voudrais récupérer l' id de l'enregistrement, faire la mise à jour et retourner sur
l'enregistrement.

Je joins le code que j'ai actuellement:

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
Private Sub Cocher90_Click()
 
 Dim lstr_ValNbCocher As String
 Dim lstr_ValNbDécocher As String
 
'--- initialise les variables
     Me.Requery
     Me.Cocher90.SetFocus
     lstr_ValNbCocher = DCount("*", "rqt Temporaire activité", "[tbl Activités].[EtiqPhoto]=-1")
     lstr_ValNbDécocher = DCount("*", "rqt Temporaire activité", "[tbl Activités].[EtiqPhoto]=0")
 
'--- Màj de sous formulaire
     Forms![frm Màj des activités].txtCocher.Value = lstr_ValNbCocher
     Forms![frm Màj des activités].txtDécocher.Value = lstr_ValNbDécocher
End Sub

Salutations

[User]

Bonjour,

Peut-être utiliser la propriété "BookMark" du sous-formulaire :

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
21
22
Private Sub Cocher90_Click()
 
 Dim lstr_ValNbCocher As String
 Dim lstr_ValNbDécocher As String
 
'--- initialise les variables
     Dim curr As String
 
     curr = Me.Bookmark ' sauvegarde du signet de l'enregistrement avant requery
 
     Me.Requery
 
     Me.Bookmark = curr ' Retour à l'enregistrement après requery
 
     Me.Cocher90.SetFocus
     lstr_ValNbCocher = DCount("*", "rqt Temporaire activité", "[tbl Activités].[EtiqPhoto]=-1")
     lstr_ValNbDécocher = DCount("*", "rqt Temporaire activité", "[tbl Activités].[EtiqPhoto]=0")
 
'--- Màj de sous formulaire
     Forms![frm Màj des activités].txtCocher.Value = lstr_ValNbCocher
     Forms![frm Màj des activités].txtDécocher.Value = lstr_ValNbDécocher
End Sub

Cdt,
Denis

[jmde]

Bonjour User,

Merci pour la solution, ça fonctionne correctement.

Salutations