Discussion :

[mini_puk]

Bonjour,
J'ai cherché pendant plusieurs heures, essayé plusieurs solutions, mais je n'arrive pas à résoudre mon problème !

Je cherche à faire une application permettant de gérer une Vidéothèque.
J'ai un formulaire frm_location qui contient une combobox permettant le choix d'un client et un contrôle sub_frm_location contenant un sous formulaire ss_frm_location.
Le sous formulaire me permet d'obtenir les différentes locations.
Je veux donc mettre à jour mon sous formulaire avec les locations propre au client sélectionné dans le combobox.
Pour cela j'utilise l'événement afterUpdate sur ma liste avec le code VBA suivant :

Private Sub cb_lstClients_AfterUpdate()

Dim idClient As String
Dim sqlLstLocations As String

idClient = Me!cb_lstClients.Value 'on récupère l'identifiant du client sélectionné

'on met à jour en calculant en fonction du choix du client
sqlLstLocations = "SELECT LOCATION.ID_LOCATION, LOCATION.DATE_LOCATION, LOCATION.MONTANT_TOTAL " _
& "FROM LOCATION " _
& "WHERE ID_CLIENT =" & idClient & " " _
& "ORDER BY DATE_LOCATION DESC"

Forms!ss_frm_location.RecordSource = sqlLstLocations 'on met le sous formulaire à jour
Forms!frm_location!sub_frm_location.Requery

End Sub

Le sous formulaire en lui même se met à jour, mais celui intégré à frm_location ne bouge pas d'un poil
Qu'est ce que j'oublie de faire ??

Merci d'avance !

Cordialement

[User]

Salut,

si ton idclient est un string il faut mettre les quotes (') de chaque coté dans le sql:

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
Private Sub cb_lstClients_AfterUpdate()
 
Dim idClient As String
Dim sqlLstLocations As String
 
idClient = Me!cb_lstClients.Value 'on récupère l'identifiant du client sélectionné
 
'on met à jour en calculant en fonction du choix du client
sqlLstLocations = "SELECT LOCATION.ID_LOCATION, LOCATION.DATE_LOCATION, LOCATION.MONTANT_TOTAL " _
& "FROM LOCATION " _
& "WHERE ID_CLIENT ='" & idClient & "' " _
& "ORDER BY DATE_LOCATION DESC"
 
Forms!ss_frm_location.RecordSource = sqlLstLocations 'on met le sous formulaire à jour
Forms!frm_location!sub_frm_location.Requery
 
End Sub

Autrement tu peux mettre les champs père et fils à ID_CLIENT

A+

[mini_puk]

ID_CLIENT est un entier.
Mais j'ai suivi votre conseil et utilisé le champs père fils, et ça marche, merci beaucoup !

[User]

Salut,

Penses au tag