Discussion :

[FewRa]

Bonjour à tous

J'ai un problème que j'arrive pas à resoudre.
J'ai deux formulaire A et B (tous deux sont des formulaires continues)

Dans le formulaire j'ai une liste de clients avec un bouton sur chaque que me sert à ouvrir le formulaire B. Je suis obliger de fermer le formulaire A pour ouvrir le B (ou il n'y a que le client choisi) pour évité le "conflit d'écriture".
Et lors que je referme B je retourne sur le Formulaire A. Et j'aimerai quand le A se reouvre qu'il retourne sur la position du client qui était en B.

j'ai donc essayer un Gotorecord mais il se passe rien:

code pour fermer le formulaire B

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
Private Sub Commande51_Click()
On Error GoTo Err_Commande51_Click
 
   Dim stDocName As String
   Dim stLinkCriteria As String
   Dim stLinkCriteria2 As String
 
   stDocName = "FA"
   stLinkCriteria2 = Me.ID_client
   stLinkCriteria = "[ID_CONTRAT]=" & Me![ID_CONTRAT]
 
    DoCmd.Close
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog
    DoCmd.GoToRecord acDataForm, stDocName, acGoTo, stLinkCriteria2
 
 
Exit_Commande51_Click:
    Exit Sub
 
Err_Commande51_Click:
    MsgBox Err.Description
    Resume Exit_Commande51_Click
 
End Sub

et lorsque je ferme après le formulaire A j'ai ce message:

M Access ne trouve pas le formulaire "FA" auquel il est fait référence.

Est-ce possible de le faire.

Merci d'avance

[zoom61]

Salut,

Une piste : http://access.developpez.com/faq/?pa...gage#VarGlobal

@+.

[FewRa]

Merci mais j'ai pas tres bien compris la piste
Donc j'ai changé ma façon
j'ai mis sur le code dans le formulaire A dans Form_load

Code :

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

1
2
3
4
5
6
If Me.N_client <> "" Then
stLinkCriteria2 = Me.N_Clien
Me.N_enregistrement.SetFocus
DoCmd.GoToRecord acActiveDataObject, , acGoTo, stLinkCriteria2
End If
End Sub

N_client est le numéro d'enregistrement de du Client qui était dans le formulaire B et il se trouve en en-tête du Formulaire A
Me.N_enregistrement est dans le "détail du formulaire continue (formulaire A) qui est comme son nom l'indique le numéro d'enregistrement
mais ça marche pas, j'ai un message d'erreur '2105':

impossible d'atteindre l'enregistrement spécifié

ce qui est surligné en jaune est

DoCmd.GoToRecord acActiveDataObject, , acGoTo, stLinkCriteria2

Merci d'avance pour votre aide

[zoom61]

As-tu bien déclaré ta variable stLinkCriteria2 dans un module ?

@+.

[FewRa]

Faut-elle qu'elle soit declarer en tant que "variables globales" ou comme ici juste apres le "Private Sub Form_load()" ?

voila le code complet:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_load()
Dim stLinkCriteria2 As String
 
 If Me.N_client <> "" Then
stLinkCriteria2 = Me.N_client
Me.N_enregistrement.SetFocus
DoCmd.GoToRecord , , acGoTo,  stLinkCriteria2
 
End Sub

[zoom61]

Non, tu dois avoir dans un module qui contient la commande suivante :

Code :

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

Public stLinkCriteria2 As String

Mais qui ne doit pas être dans ta fonction.

@+.

[FewRa]

j'ai donc créer un module ou je l'ai mis de dans.

mais j'ai toujours le même problème erreur 2105

[FewRa]

c'est bon j'ai resolu mon problème, j'ai changé d'approche

Pour ceux qui serait dans le même problème que moi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim rst As Recordset
Set rst = Forms!FCONTRATS.Form.RecordsetClone
 
        rst.FindFirst "[N_enregistrement] =" & Me.N_client
 
        If Not rst.NoMatch Then
            Forms!FCONTRATS.Form.Bookmark = rst.Bookmark
 
        End If
 
       rst.Close
        Set rst = Nothing

Merci pour ton aide