Discussion :

[Daniela]

bonjour a tous. moi j'ai un bouton dans un formulaire qui ouvre un autre formulaire. comment je fais pour lui dire que quand il rentre dans le formulaire il doit fermer la fenetre precedente?

moi j'ai fais ce code mais il me dit que l'objet que je cherche il est fermè

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
24
25
26
27
28
29
30
Private Sub Comando71_Click()
On Error GoTo Err_Comando71_Click
 
 
   DoCmd.Close
 
   Dim stDocName As String
 
 
    Dim StLinkCriteria As String
 
    stDocName = "uscite_comande_ss"
 
    Form_Menu_SS.IDContatto = Me.Lista_clienti.Value
    DoCmd.OpenForm stDocName, , , StLinkCriteria
    Forms!uscite_comande_ss!Nome = Form_Selezione_cliente.Lista_clienti.Column(1)
    Forms!uscite_comande_ss!Cognome = Form_Selezione_cliente.Lista_clienti.Column(2)
    Forms!uscite_comande_ss!IDContatto = Form_Selezione_cliente.Lista_clienti.Column(0)
 
 
 
Exit_Comando71_Click:
    Exit Sub
 
Err_Comando71_Click:
    MsgBox Err.Description
    Resume Exit_Comando71_Click
 
 
End Sub

[ARO]

Ton Docmd.close est mal positionné. Tu fermes ton formulaire et tu fais appel à lui dans le code.

Place le à la fin de ton code.

Alain

[Daniela]

Ton Docmd.close est mal positionné. Tu fermes ton formulaire et tu fais appel à lui dans le code.

Place le à la fin de ton code.

Alain

j'arrive pas a placer le Docmd.close, j'ai esseie plusier partie mais je n'arrive pas a faire ce que je veux. où je dois le placer?

[ARO]

Bonjour,

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
24
25
26
27
28
29
 
 
Private Sub Comando71_Click()
On Error GoTo Err_Comando71_Click
 
 
   Dim stDocName As String
 
 
    Dim StLinkCriteria As String
 
    stDocName = "uscite_comande_ss"
 
    Form_Menu_SS.IDContatto = Me.Lista_clienti.Value
    DoCmd.OpenForm stDocName, , , StLinkCriteria
    Forms!uscite_comande_ss!Nome = Me.Lista_clienti.Column(1)
    Forms!uscite_comande_ss!Cognome =Me.Lista_clienti.Column(2)
    Forms!uscite_comande_ss!IDContatto = Me.Lista_clienti.Column(0)
 
    DoCmd.Close acForm, Me.Name
 
Exit_Comando71_Click:
    Exit Sub
 
Err_Comando71_Click:
    MsgBox Err.Description
    Resume Exit_Comando71_Click
 
End Sub

Tu déclares StLinkCriteria mais tu donnes aucune valeur ?


Alain

[Daniela]

merci marche tres bien.....

Bonjour,

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
24
25
26
27
28
29
 
 
Private Sub Comando71_Click()
On Error GoTo Err_Comando71_Click
 
 
   Dim stDocName As String
 
 
    Dim StLinkCriteria As String
 
    stDocName = "uscite_comande_ss"
 
    Form_Menu_SS.IDContatto = Me.Lista_clienti.Value
    DoCmd.OpenForm stDocName, , , StLinkCriteria
    Forms!uscite_comande_ss!Nome = Me.Lista_clienti.Column(1)
    Forms!uscite_comande_ss!Cognome =Me.Lista_clienti.Column(2)
    Forms!uscite_comande_ss!IDContatto = Me.Lista_clienti.Column(0)
 
    DoCmd.Close acForm, Me.Name
 
Exit_Comando71_Click:
    Exit Sub
 
Err_Comando71_Click:
    MsgBox Err.Description
    Resume Exit_Comando71_Click
 
End Sub

Tu déclares StLinkCriteria mais tu donnes aucune valeur ?


Alain

[silverfly]

tu déclares sTLinkCriteria mais tu ne lui affecte rien ?

Dim StLinkCriteria As String

Petite précision, c'est le wizard d'access 2007 qui crèe cette variable lorsqu'on lui demande de nous faire un bouton qui ouvre un formulaire.

Tu peux supprimer la ligne, elle ne sert à rien ici :p