[VBA-ACCESS] Requête SQL

Petit modif après lecture du forum, mais ça fonctionne toujours pas :

Private Sub dbt_Click()
Dim num As Integer
Dim dmd As String
Dim gpi As DAO.Database
Dim req As DAO.Recordset
Set gpi = CurrentDb()
num = Me.Num_Eleve
dmd = "SELECT DatedbtD FROM ELEVE,DIVISION WHERE ELEVE.Num_Division=DIVISION.Num_Division AND Num_Eleve =" & num
DoCmd.RunSQL dmd
Set req = gpi.OpenRecordset(SQL)
Me.Datedbt = req

La tu dis que ton formulaire "Me.Datedbt" prend les valeurs de ta requete

mais tu dois prendre ton probleme dans l'autre sens, c'est quand tu affiche ton formulaire "Me.Datedbt" que ta liste box doit prendre les valeurs de ta requete

sauf si j'ai rien compris et que ta liste box ce nomme Datedbt ?
dans ce cas
Datedbt.RowSource=req

Merci beaucoup de m'avoir répondu ! Mais ça fonctionne encore pas
Donc je fais un ptit résumer des listebox

Listebox source => Num_Eleve
Listebox receptrice => Datedbt

J'ai essayer de mettre Datedbt.RowSource = req, j'ai eu le message d'erreur suivant :
Erreur de compilation : incompatibilité de type ?

Private Sub dbt_Click()
Dim num As Integer
Dim dmd As String
Dim gpi As DAO.Database
Dim req As DAO.Recordset
Set gpi = CurrentDb()
num = Me.Num_Eleve
dmd = "SELECT DatedbtD FROM ELEVE,DIVISION WHERE ELEVE.Num_Division=DIVISION.Num_Division AND Num_Eleve =" & num
DoCmd.RunSQL dmd //sert a rien
Set req = gpi.OpenRecordset(SQL) //Set req = gpi.OpenRecordset(dmd)
Me.Datedbt = req //Datedbt.RowSource=req

J'ai toujours la même erreur, et j'ai .RowSource qui est surligner en jaune.
Je précise que Datedbt est en texte de taille 50 !
Merci j'avais fais quelques erreur, mais .RowSource ne fonctionne pas, l'entête de fonction n'est elle pas responsable de ce problème Private Sub dbt_Click() , pas de paramètre entre les () mais je pense pas vu qu'il ni a aucun retour ??

tente ca alors
Do While Not Req.EOF
Datedbt.AddItem (Req![0])
Req.MoveNext
Loop

Req.Close

Désolé je débute dans le language VBA, peux tu me le mettre dans le code stp ;)

Set req = gpi.OpenRecordset(dmd)
Do While Not Req.EOF
Me.Datedbt.AddItem (Req![0])
Req.MoveNext
Loop
Req.Close

Arg ça fonctionne presque Erreur 3265 Element non trouver dans la collection, pourtant quand je tape Me. j'ai une liste déroulante qui s'ouvre et me propose Datedbt par contre je fais entrer ça passe direct à la ligne, dur dur.

Désolé j'ai fini mon taf, bonne chance ++

Ok bah merci beaucoup!! Je suis un gros noob, mais je vais essayer de me débrouiller avec ça !