Access : Remplir un textbox avec le résultat d'une Requete SQL

Signaler
Messages postés
2
Date d'inscription
jeudi 4 décembre 2008
Statut
Membre
Dernière intervention
4 décembre 2008
-
 Profil bloqué -
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

2 réponses

Messages postés
40
Date d'inscription
jeudi 23 septembre 2004
Statut
Membre
Dernière intervention
26 avril 2012
2
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

dsl mais j'ai pas bien compris , est ce que tu pe nous lessé le projet que ta as fé . et merci