Discussion :

[Superpat9999]

Bonjour,
J'ai un formulaire (Formulaire1) avec, sur Ouverture :

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
      OuvrirFormulaire (Me.Name)
End Sub

Et le code suivant dans un module ;

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
      Dim sComputerName As String
      Dim dbs As DAO.Database
      Dim Rst As DAO.Recordset
      Dim strSQL As String
      Set dbs = CurrentDb
      sComputerName = Environ("COMPUTERNAME")
      strSQL = "SELECT * FROM tblPositions WHERE tblPositions.ComputerNme='" & sComputerName & "' AND tblPositions.FormNme='" & sNomForm & "'"
      Set Rst = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
      If Rst.EOF Then                                                          'Aucune sauvegarde auparavant
            Exit Function
      Else
            'DoCmd.MoveSize Rst!WLeft, Rst!WTop, Rst!WWidth, Rst!WHeight
             Forms!Formulaire1.Move Rst!WLeft, Rst!WTop, Rst!WWidth, Rst!WHeight
            Debug.Print sNomForm
            'Forms! & """" sNomForm & """" & .Move Rst!WLeft, Rst!WTop, Rst!WWidth, Rst!WHeight
      End If
      Set Rst = Nothing
      Set dbs = Nothing
      strSQL = ""
End Function

Tout fonctionne bien, mais je souhaite qu'à la place de Formulaire1, il y ait la valeur de me.name. Dans le genre :

Code :

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

Forms! & """" sNomForm & """" & .Move Rst!WLeft, Rst!WTop, Rst!WWidth, Rst!WHeight

C'est cette ligne que je n'arrive pas à formuler.
Merci de votre aide

[tee_grandbois]

bonsoir,
je suppose que le code posté est celui de OuvrirFormulaire et que tu passes Me.name en paramètre ...
essaie en déclarant une instance du formulaire (je n'ai pas testé):

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
23
Function OuvrirFormulaire(sNomForm as String)
      Dim sComputerName As String
      Dim dbs As DAO.Database
      Dim Rst As DAO.Recordset
      Dim strSQL As String
      Dim frm As Form
 
      Set frm = Forms(sNomForm)
      Set dbs = CurrentDb
      sComputerName = Environ("COMPUTERNAME")
      strSQL = "SELECT * FROM tblPositions WHERE tblPositions.ComputerNme='" & sComputerName & "' AND tblPositions.FormNme='" & sNomForm & "'"
      Set Rst = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
 
      If Rst.EOF Then                                                          'Aucune sauvegarde auparavant
            Exit Function
      Else
            frm.Move Rst!WLeft, Rst!WTop, Rst!WWidth, Rst!WHeight
      End If
 
      Set Rst = Nothing
      Set dbs = Nothing
      strSQL = ""
End Function

[Superpat9999]

Merci tee_grandbois, cel fonctionne parfaitement.
Même le samedi soir tu es disponible.
Bonne soirée

[tee_grandbois]

Même le samedi soir tu es disponible.

on a la même activité