salut
j'ai une relation n:m ce qui a occasionné la création d'une troisième table
j'ai des radios bouton regroupé, la valeur sélectionné doit être envoyé a un combobox
je vois bien que la rêque fonctionne car j'ai des valeurs qui s'affiche graçe au msgbox... mais il y a rien d'ajouté dans le combobox...
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 Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Dim SQL As String Dim prmFini As Integer prmFini = frmFini.Value SQL = "SELECT cadre.cadre FROM fini INNER JOIN (cadre INNER JOIN fini_cadre ON cadre.cadre_id=fini_cadre.cadre_id) ON fini.fini_id=fini_cadre.fini_id WHERE fini.fini_id= " & prmFini & ";" Set rs = db.OpenRecordset(SQL) While Not rs.EOF MsgBox rs.Fields(0) cboCadre.AddItem rs.Fields(0) rs.MoveNext Wend
une idée?
Partager