Bonjour,
Je suis débutant en Access.
Et j'ai une erreur que je n'arrive pas à identifier.
Lorsque je clique sur le bouton j'ai un message d'erreur qui me dit "Objet Requis". Je ne saisis pas d'où vient l'erreur.

Voici ce que je fais :

1. Je dit a quoi correspond chaque variable. (String pour strSQL, et Recordset pour mon rst)
2. J'initialise ma requête SQL (qui fonctionne)
3. J'ouvre la connexion (Je pense que mon problème est là)
4. J'initialise mon recordset comme il faut ... (enfin je pense)
5. Je fais une boucle dans le vide (je ferais le traitement quand je n'aurais plus de problème)
6. Je ferme tout, et je mets tout à null, pour finir je sors.

Voici le code :

Private Sub btnListContractorEmail_Click()

Dim strSQL As String
Dim rst As New ADODB.Recordset

On Error GoTo Err_btnListContractorEmail_Click

strSQL = "SELECT DISTINCT ConfirmationOrder.IdContractor, Contractor.CompanyEmail, " & vbCrLf & _
"ContractorContact.CCEmail AS ContractorEmail, ConfirmationOrder.IdConsignor, " & vbCrLf & _
"Consignor.CompanyCity, ConfirmationOrder.IdConsignee, Consignee.CompanyCity " & vbCrLf & _
"FROM (((ConfirmationOrder LEFT JOIN Company AS Consignor ON " & vbCrLf & _
"ConfirmationOrder.IdConsignor = Consignor.CompanyCode) " & vbCrLf & _
"LEFT JOIN Company AS Consignee ON ConfirmationOrder.IdConsignee = Consignee.CompanyCode) " & vbCrLf & _
"LEFT JOIN Company AS Contractor ON ConfirmationOrder.IdContractor = Contractor.CompanyCode) " & vbCrLf & _
"LEFT JOIN CompanyContact AS ContractorContact ON Contractor.CompanyId = ContractorContact.CompanyId " & vbCrLf & _
"WHERE (((Consignor.CompanyCity)='" & [Forms]![frmMail]![VilleEntree] & "') AND " & vbCrLf & _
"((Consignee.CompanyCity)= '" & [Forms]![frmMail]![VilleSortant] & "') AND " & vbCrLf & _
"((ContractorContact.CCType)='Contractor'));"

clsCnx.Ouverture
Set rst = clsCnx.ExecQuery(strSQL)

While Not rst.EOF
rst.MoveNext
Wend

rst.Close
Set rst = Nothing

clsCnx.Fermeture

Exit_btnListContractorEmail_Click:
Exit Sub

Err_btnListContractorEmail_Click:
MsgBox Err.Description
Resume Exit_btnListContractorEmail_Click

End Sub
Corrigé ... il me manquait l'initialisation de la connexion à la base...