[VBA-ACCESS] Requête SQL Fermé

Question

Bonjour,
Voicimon programme :

Private Sub dbt_Click()
Dim num As Integer
Dim ReqSQL As String
if (Me.Num_Eleve!="")
num = Me.Num_Eleve
ReqSQL = "SELECT DatedbtD FROM ELEVE,DIVISION WHERE ELEVE.Num_Division=DIVISION.Num_Division AND Num_Eleve =" & num
Me.Datedbt = ReqSQL
End If

End Sub

=> je voudrais que le résultat de la requête soit récupérer par une liste box du formulaire Me.Datedbt
Voila, d'avance merci

rodeur2080 · Answer

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

CapitainCo · Answer

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

rodeur2080 · Answer

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 ?

CapitainCo · Answer

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

rodeur2080 · Answer

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 ??

CapitainCo · Answer

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

rodeur2080 · Answer

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

CapitainCo · Answer

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

rodeur2080 · Answer

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.

CapitainCo · Answer

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

rodeur2080 · Answer

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

[VBA-ACCESS] Requête SQL

11 réponses

Discussions similaires