Je demarre avec access...et visual...
Je cherche à remplir un textbox avec le resultat d'une requete sql
Quand j'utilise le code ci-apres il me met une erreur sur le OpenRecordSet trop peu de parametre...
Quels sont les parametres à lui ajouter ?

Merci de votre aide...




Private Sub Commande19_Click()   
Dim Qry As DAO.QueryDef
Dim Rs As DAO.Recordset
Dim chSQL As String
   
    chSQL = "SELECT [All Inventories].[Designation] " & _
            "FROM [All Inventories] " & _
            "WHERE [All Inventories].References = " & _
            Modifiable12.Value & ";"

DoCmd.DeleteObject acQuery, "req_pubname"
CurrentDb.CreateQueryDef "req_pubname", chSQL
Set Qry = CurrentDb.QueryDefs("req_pubname")
Set Rs = Qry.OpenRecordset

While Not Rs.EOF
Texte17.Text = Rs(0)
Rs.MoveNext
Wend

Set Qry = Nothing
Set Rs = Nothing
End Sub

Dim Tb as recordset
Dim chSQL As String
    
    chSQL = "SELECT [All Inventories].[Designation] " & _
            "FROM [All Inventories] " & _
            "WHERE [All Inventories].References = " & _
            Modifiable12.Value & ";"

set tb=currentdb.openrecordset(chSQL)
While tb.eof=false and tb.bof=false
Texte17=Texte17 & tb!designation
tb.movenext
wend

Ton probleme viens peut etre que ton champ reference est de type texte. dans ce cas la il faut mettre des cotes avec les guillemets
Ex :
chSQL = "SELECT [All Inventories].[Designation] " & _
            "FROM [All Inventories] " & _
            "WHERE [All Inventories].References = '" & _
            Modifiable12.Value & "';"

Salution