Discussion :

[rippey]

je souhaite lorsque que clique sur le bouton de mon formulaire :
ouvrir un autre formulaire et en même temps fermer l'actuel

comment completer le code ?

merci

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
Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "GENERALE"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande1_Click:
    Exit Sub
 
Err_Commande1_Click:
    MsgBox Err.Description
    Resume Exit_Commande1_Click
 
End Sub

[Lucifer]

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
Private Sub Commande1_Click() 
On Error GoTo Err_Commande1_Click 
 
    Dim stDocName As String 
    Dim stLinkCriteria As String 
 
    stDocName = "GENERALE" 
    DoCmd.OpenForm stDocName, , , stLinkCriteria 
    Docmd.close AcForm,"Nom du form à fermer"
 
Exit_Commande1_Click: 
    Exit Sub 
 
Err_Commande1_Click: 
    MsgBox Err.Description 
    Resume Exit_Commande1_Click 
 
End Sub

[rippey]

merci ca marche