Discussion :

[chris76]

Bonjour,

Pour effectuer une MAJ d'une combo box, je dois charger une table FIN_AUT_BRS contenant 2 colonnes ( ID et LIB) et faire une recherche sur cette table d'après l'ID qui figure dans une colonne d'une autre table. La récup de l'ID se fait bien, mais qd je veux charger ma table FIN_AUT_BRS ds un recordset pour lancer une recherche, il ne le fait pas et passe par le Resume Next qui gere les erreurs.
Voici mon code :

If ApoTable![FIN_BRS] <> 0 Then
' Si le code de financement "Autres Bourses" est différent de 0,
' on charge en mémoire la table sur les autres bourses
Set BrsTable = DB.OpenRecordset("FIN_AUT_BRS")

' Recherche du code bourse correspondant
BrsTable.Index = "PrimaryKey"
BrsTable.Seek "=", ApoTable![FIN_BRS]
Forms![Saisie Fiche Etudiante]![FIN_BRS_BOX] = BrsTable![LIB_FIN]

' Libération de l'espace mémoire occupé par la table "FIN_BRS_AUT"
Set BrsTable = Nothing
Else
Forms![Saisie Fiche Etudiante]![FIN_BRS_BOX] = ""
End If


Voila, si vous voyez la raison de ce non chargement de ma table, ca m'aiderait bien!

[pgz]

Bonjour,

Je ne suis pas sûr d'avoir bien saisi ce que tu veux faire, mais il me semble qu'un DLookUp pourrait faire l'affaire. Du genre

Code :

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

1
2
3
4
5
If ApoTable![FIN_BRS] <> 0 Then
Forms![Saisie Fiche Etudiante]![FIN_BRS_BOX] = DLookUp("[LIB_FIN]","FIN_AUT_BRS"),"PrimaryKey = " & ApoTable![FIN_BRS])
Else
Forms![Saisie Fiche Etudiante]![FIN_BRS_BOX] = ""
End If

Sans oublier de décider si ta table s'appelle FIN_AUT_BRS", comme en ligne 4 ou "FIN_BRS_AUT" comme dans le commentaire ligne 11.

Bon courage,

pgz