Discussion :

[fredpeca]

Bonjour,

Lorsque mon sous-formulaire ssfrmInterim1 s'ouvre, je voudrais qu'il se place directement sur le dernier enregistrement. Comment faire ?

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
DoCmd.OpenForm "ssfrmInterim1", acNormal
 
DoCmd.GoToRecord acActiveDataObject, "ssfrmInterim1", acLast
 
 
End Sub

Il me place toujours sur le premier enregistrement.

Merci de votre aide.

Fred

[fredpeca]

Pardon, j'ai oublié de vous préciser que quand je l'ouvre tout seul cela marche.
Mais il est placé sur un formulaire principal et là cela ne marche plus...

[ricounet]

Bonjour,

si ça peut t'aider

Code :

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

1
2
3
4
5
6
7
8
9
Function Macro1()
On Error GoTo Macro1_Err
 
    DoCmd.OpenForm "FMLDEVIS", acNormal, "", "", , acNormal
    DoCmd.GoToControl "FMLDETAILDEVIS"
    DoCmd.GoToRecord , "", acLast
 
 
End Function

A+

[fredpeca]

Je n'arrive pas à la placer. Je suis actuellement dans une procédure événementielle à l'ouverture de mon formulaire principal nommé FrmInterim1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Open(Cancel As Integer)
 
DoCmd.Maximize
End Sub
 
Function Macro1()
 
    DoCmd.OpenForm "frmInterim1", acNormal, "", "", , acNormal
    DoCmd.GoToControl "ssfrmInterim1"
    DoCmd.GoToRecord , "", acLast
 
 
End Function

Il m'ouvre toujours le premier enregistrement du sous-formulaire.

[keita]

sur l'evenement "sur ouverture" du form principal frmInterim1:

Code :

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

1
2
3
4
5
 
Private Sub Form_Open(Cancel As Integer)
Me!ssfrmInterim1.setfocus
DoCmd.GoToRecord acLast
End Sub

@+

[fredpeca]

Bonjour,

J'ai toujours un soucis avec le code que tu m'as donné. Il ne reconnait le frmInterim1. En fait, il y a un formulaire principal frmFiltreInterim, un sous-formulaire frmInterim1 et un sous-sous-formulaire ssFrmInterim1.

Cette syntaxe ne parait pas correcte. Pourquoi ?

Code :

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

1
2
3
4
Private Sub Form_Open(Cancel As Integer)
Forms![frmFiltreInterim]![frmInterim1]![ssfrmInterim1].SetFocus
 DoCmd.GoToRecord , "", acLast
End Sub