Discussion :

[tomga]

Bonjour !
Aidezmoi svp !
Comment faire pour prévoir un second formulaire permettant de lancer
certains traitements :
* Ouvrir le formulaire 1
* Fermer le formulaire 1
*Ouvrir directement la table d'origine (c'est la table qui creer le formulaire1)
* Quitter l'application
J'utilise access 2007 .Merci d'avance

[Invité]

Bonjour

Si je te comprends bien, il s'agit de faire un formulaire indépendant, avec différents boutons déclenchant une macro ou une procédure correspondant aux opérations que tu as mentionnées.

[FCL31]

Moi je me sert des codes suivant mais Access 2003
Mais je pense que sa devrait marcher sur 2007 a essayer

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

Fermer un formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande2_Click()
On Error GoTo Err_Commande2_Click
    DoCmd.Close
Exit_Commande2_Click:
    Exit Sub
Err_Commande2_Click:
    MsgBox Err.Description
    Resume Exit_Commande2_Click
End Sub

Ouvrir une table :

Code :

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

1
2
3
4
 
Private Sub Commande3_Click()
DoCmd.OpenTable "NomDeLaTable"
End Sub

Quitter :

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 Commande4_Click()
On Error GoTo Err_Commande4_Click
 
 
    DoCmd.Quit
 
Exit_Commande4_Click:
    Exit Sub
 
Err_Commande4_Click:
    MsgBox Err.Description
    Resume Exit_Commande4_Click
 
End Sub

[tomga]

Bonjour !
Merci à vous tous !