Discussion :

[Tchupacabra]

Mettre un Requery :

[Papy Turbo]

Non, le fait de changer la source d'un formulaire le rafraîchit automatiquement, ce qui paraît sensé.
Redonne nous le code complet qui ne marche pas, parce que je suis un peu perdu entre les diverses mises au point... (purement à titre d'exercice, bien sûr).

[Tchupacabra]

bien sûr....

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 lstClient_DblClick(Cancel As Integer)
    Dim id As Integer
    Dim strSQL As String
 
    id = Me.lstClient.Value
 
    ' affichage des infos du client par la méthode du champ père caché
    Me.txtPereCache = id
 
    ' affichage des infos du client par la méthode RowSource
    strSQL = "SELECT * FROM t_client WHERE id='" & id & "'"
 
    ' ceci marche !
    'Me.sfrmClientInfos.Visible = False
    'Me.sfrmClientInfos.Visible = True
 
    ' ceci ne marche pas
    'Me.sfrmClientInfos.RowSourceType = "Table/Query"
    'Me.sfrmClientInfos.RowSource = strSQL
    'Me.sfrmClientInfos.Requery
 
    ' ceci ne marche pas
    'Me.sfrmClientInfos.RowSource = strSQL
    'Me.sfrmClientInfos.Requery
 
    ' ceci ne marche pas
    'Me.sfrmClientInfos.Form.RowSource = strSQL
    'Me.sfrmClientInfos.Form.Requery
 
End Sub

[Alexandre Sahli]

je dois m'excuser car il me semble bien que je t'ai donné une info trop rapidement

change le code

Code :

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

1
2
 
  'Me.sfrmClientInfos.RecordSource = strSQL

rowsource c'est pour les zones de liste

[Tchupacabra]

apparemment cela ne marche toujours pas....

[Alexandre Sahli]

Tu m'as vraiment titillé j'ai fais un essais

voici le code que j'ai mis et çà fonctionne à merveille

Code :

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

1
2
3
4
5
6
7
8
 
 Private Sub Zl_Client_DblClick(Cancel As Integer)
    Dim StrSql As String
    StrSql = "SELECT T_Client.ID_Client, T_Client.NomClient, T_Client.PrénomClient FROM T_Client WHERE (((T_Client.ID_Client)=" & Me![Zl_Client] & "));"
    'MsgBox (StrSql)
    Forms![F_RechercheClient]![F_ClientSF1].Form.RecordSource = StrSql
 
End Sub

c'est du testé

j'ai un sous formulaire F_ClientSF2 qui contient la zone de liste Zl_Client et un autre formulaire F_ClientSF1 qui contient les données du client; les deux formulaires sont dans un formulaire principal F_RechercheClient

A+

[Alexandre Sahli]

note bien que tu peux aussi utiliser

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Zl_Client_DblClick(Cancel As Integer) 
    Dim StrSql As String 
    StrSql = "SELECT T_Client.* FROM T_Client WHERE (((T_Client.ID_Client)=" & Me![Zl_Client] & "));" 
    'MsgBox (StrSql) 
    Forms![F_RechercheClient]![F_ClientSF1].Form.RecordSource = StrSql 
 
End Sub

[Papy Turbo]

Et que tu n'as pas beoin de référencer le formulaire principal, puisque tu es dedans :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Zl_Client_DblClick(Cancel As Integer) 
    Dim StrSql As String 
    StrSql = "SELECT T_Client.* FROM T_Client WHERE (((T_Client.ID_Client)=" & Me![Zl_Client] & "));" 
    'MsgBox (StrSql) 
    Me.[F_ClientSF1].Form.RecordSource = StrSql 
 
End Sub

[Tchupacabra]

C'est bon ça marche Va comprendre...
Merci à tous et surtout à Alexandre Sahli pour sa générosité

@+ Tchup