Discussion :

[Etxezarreta]

Bonjour,

lors d'un changement de valeur d'une combo je charge les valeurs d'une combo avec un recordset basé sur une requete paramétrée sur la valeur de la premiere combo.
Probleme: je ne peux pas fermer les objets currentdb et recordset à l'issue de la procédure et attribuer les valeurs "nothing" aux variables. Je suis donc parti sur l'utilisation de .rowsource pour attribuer les valeurs à la deuxieme combo, toujours en utilisant lameme requete SQL: c'est un code tout bete, mais il ne marche pas!! Le voici ci dessous, avec le code qui fonctionne en commentaire. Je joins aussi le fichier au cas ou le pb vienne d'une interaaction que je ne connais pas.
Merci d'avance.
Etxe.

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
31
Private Sub ldActivite_Change()
 
 
Dim dbDatabase As Database
Dim oRecordsetListeSalaries As Recordset
Dim strParametreActivite As String
Dim strSQL As String
 
 
strParametreActivite = Me.ldActivite.Value
strSQL = "SELECT tListeSalaries.CleSalarie,tListeSalaries.Prenom_Nom FROM tListeSalaries WHERE tListeSalaries.Actif_inactif =" & Chr(34) & strParametreActivite & Chr(34)
 
Me.combNomPrenomSalarie.RowSourceType = "Table/Query"
Me.combNomPrenomSalarie.RowSource = strSQL
 
'Me.Requery
'Me.Refresh
 
'
'Set dbDatabase = CurrentDb
'Set oRecordsetListeSalaries = dbDatabase.OpenRecordset("SELECT tListeSalaries.CleSalarie,tListeSalaries.Prenom_Nom FROM tListeSalaries WHERE tListeSalaries.Actif_inactif =" & Chr(34) & strParametreActivite & Chr(34))
'Set combNomPrenomSalarie.Recordset = oRecordsetListeSalaries
 
''oRecordsetListeSalaries.Close
'dbDatabase.Close
'
''Set dbDatabase = Nothing
''Set oRecordsetListeSalaries = Nothing
 
 
End Sub

[tee_grandbois]

bonsoir,
charger un Recordset pour remplir une liste déroulante est inappropriée et c'est ce qui fait que cela ne fonctionne pas, il faut donc enlever les instructions qui empêchent le bon fonctionnement :
- au chargement du formulaire supprimer les instructions inutiles:

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
Private Sub Form_Load()
 
'===> NON Dim dbDatabase As DAO.Database
'===> NON Dim oRecordsetSourceListeSalaries As DAO.Recordset
 
'===> NON set strSQL  = "SELECT tTableTest.ChampTest FROM tTableTest"
'===> NON Set dbDatabase = CurrentDb
'===> NON  Set oRecordsetSourceListeSalaries = dbDatabase.OpenRecordset("SELECT tListeSalaries.CleSalarie,tListeSalaries.Prenom_Nom FROM tListeSalaries")
'===> NON Set Me.combNomPrenomSalarie.Recordset = oRecordsetSourceListeSalaries
 
'====> OUI pour les instructions qui suivent:
Dim strSQL As String
strSQL = "SELECT tListeSalaries.CleSalarie,tListeSalaries.Prenom_Nom FROM tListeSalaries" 
Me.combNomPrenomSalarie.RowSource = strSQL
'ou bien, si on la veut vide à l'ouverture:
Me.combNomPrenomSalarie.RowSource =""
 
Me.SFListeSalaries.Enabled = False
Me.SFListeSalaries.Locked = True 'true bloque la modif des enregistrements
End Sub

- faire au plus simple pour charger le Rowsource de la deuxième liste déroulante sur l'évènement Change de la première liste déroulante:

Code :

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

1
2
3
4
5
6
7
Private Sub ldActivite_Change()
 
Dim strSQL As String
strSQL = "SELECT tListeSalaries.CleSalarie,tListeSalaries.Prenom_Nom FROM tListeSalaries WHERE tListeSalaries.Actif_inactif =" & Chr(34) & Me.ldActivite.Value & Chr(34)
Me.combNomPrenomSalarie = ""
Me.combNomPrenomSalarie.RowSource = strSQL
End sub