Discussion :

[samtheh]

Bonjour à tous,

Je suis en train de réaliser une application sous Access. J'ai tout un schéma de navigation à construire avec des boutons.

Seulement pour cela dans mes boutons j'utilise des commandes comme celles la afin de passer d'un formulaire à l'autre :

Code :

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

1
2
3
4
5
6
7
8
 
Form_nom_form.SetFocus
DoCmd.Close
 
'OU
 
Form_nom_form.SetFocus
Me.Undo

Le problème c'est que cela ne marche pas tout le temps. J'aimerai comprendre clairement et profondement la différence entre les deux. Et savoir qu'est ce qui est le plus adapté pour réaliser une navigation ?

Merci de votre aide.

[joe370]

a ta place j'utiliserai DoCmd.OpenForm pour ouvrir tes differents formulaires

[samtheh]

Si je fais cela j'ai une erreur :

Code :

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

1
2
 
DoCmd.OpenForm Form_nom_form

Erreur d'execution 2498

Le type d'une expression entrée pour un des arguments est incorrect

[Renardo]

Code :

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

DoCmd.OpenForm "NomDuFormulaire"

[samtheh]

Cela marche mieux, mais mon probléme reste le même.

Sur une fenetre form1 j'ai un bouton B1 avec le code suivant :

Code :

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

1
2
3
4
5
 
Private Sub B1_Click()
DoCmd.Close
DoCmd.OpenForm "form2"
End Sub

Sur la fenetre form2 j'ai un bouton B2 avec le code suivant :

Code :

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

1
2
3
4
5
 
Private Sub B2_Click()
DoCmd.Close
DoCmd.OpenForm "form1"
End Sub

J'arrive bien a acceder à la form2 depuis la form1 mais le retout ne marche pas. Lorsque je clique sur B2 le bouton s'enfonce bien mais aucune action n'est effectuée...

[DMboup]

Sur une fenetre form1 bouton B1 :

Code :

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

1
2
3
4
5
 
Private Sub B1_Click()
DoCmd.OpenForm "form2"
DoCmd.Close acform, "form1"
End Sub

Sur la fenetre form2 bouton B2 :

Code :

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

1
2
3
4
5
6
 
Private Sub B2_Click()
DoCmd.OpenForm "form1"
DoCmd.Close acform, "form2"
 
End Sub