Discussion :

[Fa1con74]

Bonjour,



J'ai une base de données avec une navigation par onglet, dans les captures d'écran vous pouvez voir que j'ai plusieurs sous-formulaires.
J'ai essayé d'adapter la solution proposée par bonbache (https://www.bonbache.fr/detail-des-c...laire-777.html) et j'ai regardé également ce petit cour (

)

Mais je n'arrive pas à le retraduire en vba
J'ai fait ceci

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
Option Compare Database
 
Private Sub Com_client_Click()
    Forms![_F_navig_principal].[F_Clients].Form![sf_Detail_Cmd].Requery
End Sub
 
Private Sub Com_date_Click()
    Forms![_F_navig_principal].[F_Clients].Form![sf_Detail_Cmd]
End Sub
 
Private Sub Com_montant_Click()
    Forms![_F_navig_principal].[F_Clients].Form![sf_Detail_Cmd].Requery
End Sub
 
Private Sub Com_num_Click()
    Forms![_F_navig_principal].[F_Clients].Form![sf_Detail_Cmd].Requery
End Sub

Mais j'ai cette erreur

Etant débutant en VBA pourriez-vous m'aider ?

Merci

[tee_grandbois]

bonjour,
ne manque t-il pas quelque chose ?

[Fa1con74]

Oui effectivement merci mais cela ne résout pas le problème

bonjour,
ne manque t-il pas quelque chose ?

[hyperion13]

Salut
Ne sachant ce que vous cherchez exactement à faire ...
Il me semble que :

Code :

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

1
2
3
Private Sub Com_date_Click()
    Me.Requery
End Sub

[Fa1con74]

Salut
Ne sachant ce que vous cherchez exactement à faire ...
Il me semble que :

Code :

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

1
2
3
Private Sub Com_date_Click()
    Me.Requery
End Sub

Bonjour,

Je cherche à afficher le detail des commandes visualisées dans le formulaire en haut à droite, et que quand je clique sur une commande le détail de celle-ci s'affiche dans le formulaire en bas à droite

[hyperion13]

Dans le 1er sform

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
Sub Form_Current()
    Dim ParentDocName As String
    On Error Resume Next
    ParentDocName = Me.Parent.Name
    If err <> 0 Then
        GoTo Form_Current_Exit
    Else
        On Error GoTo Form_Current_Err
        Me.Parent![sf_Detail_Cmd].Requery
    End If
Form_Current_Exit:
    Exit Sub
Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit
End Sub

et il faudra valider Champ Père/Fils dans sf_Detail_Cmd
Champ Père : [nom 1er sform].Form![num_com]
Champ Fils : Det_com

[tee_grandbois]

d'après l'image du premier post, on doit être sur un formulaire de navigation, donc peut être essayer une syntaxe différente (voir ce lien)

[hyperion13]

@tee_grandbois
tu m'as fait douter
mais que l'on soit sur un form classique ou de navigation, la sub() est fonctionnelle ! En espérant que cela soit l'effet recherché !
on clique sur une ligne du 1er sform et le 2nd se rafraichit.

[Fa1con74]

Dans le 1er sform

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
Sub Form_Current()
    Dim ParentDocName As String
    On Error Resume Next
    ParentDocName = Me.Parent.Name
    If err <> 0 Then
        GoTo Form_Current_Exit
    Else
        On Error GoTo Form_Current_Err
        Me.Parent![sf_Detail_Cmd].Requery
    End If
Form_Current_Exit:
    Exit Sub
Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit
End Sub

et il faudra valider Champ Père/Fils dans sf_Detail_Cmd
Champ Père : [nom 1er sform].Form![num_com]
Champ Fils : Det_com

Bonjour,

J'ai essayé votre solution et voici l'erreur que j'ai

[Fa1con74]

@tee_grandbois
tu m'as fait douter
mais que l'on soit sur un form classique ou de navigation, la sub() est fonctionnelle ! En espérant que cela soit l'effet recherché !
on clique sur une ligne du 1er sform et le 2nd se rafraichit.

Je crois que j'ai pas compris comment mettre en oeuvre la solution de @tee_grandbois, pourtant c'est exactement ce que je recherche

[tee_grandbois]

bonjour,
bonne année

as-tu essayé la syntaxe écrite sur ce post ?

[hyperion13]

@Post#9
Étonnant !
Je viens de reproduire visuellement votre IHM (img) et ce qui avait été proposé fonctionne !
Dans le module VBA de frmNavCommandes, j'ai passé

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
Sub Form_Current()
    Dim ParentDocName As String
    On Error Resume Next
    ParentDocName = Me.Parent.Name
    If Err <> 0 Then
        GoTo Form_Current_Exit
    Else
        On Error GoTo Form_Current_Err
        Me.Parent!frmNavCommandesDet.Requery
    End If
Form_Current_Exit:
    Exit Sub
Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit
End Sub

Et dans frmNavCommandesDet, j'ai pour
- champ Père : frmNavCommandes.Form![N° commande],
- champ Fils : [N° commande].
Sinon
Forms!_F_navig_principal!SousFormulaireNavigation.Form!sf_Detail_Cmd.Form.Requery.
4 Sub() pour obtenir un même résultat !

[Fa1con74]

@Post#9
Étonnant !
Je viens de reproduire visuellement votre IHM (img) et ce qui avait été proposé fonctionne !
Dans le module VBA de frmNavCommandes, j'ai passé

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
Sub Form_Current()
    Dim ParentDocName As String
    On Error Resume Next
    ParentDocName = Me.Parent.Name
    If Err <> 0 Then
        GoTo Form_Current_Exit
    Else
        On Error GoTo Form_Current_Err
        Me.Parent!frmNavCommandesDet.Requery
    End If
Form_Current_Exit:
    Exit Sub
Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit
End Sub

Et dans frmNavCommandesDet, j'ai pour
- champ Père : frmNavCommandes.Form![N° commande],
- champ Fils : [N° commande].
Sinon
Forms!_F_navig_principal!SousFormulaireNavigation.Form!sf_Detail_Cmd.Form.Requery.
4 Sub() pour obtenir un même résultat !

Merci beaucoup à vous 2, avec un peu de persévérance j'ai enfin trouvé mon erreur en prenant en compte vos conseils