VBA Excel access : Requete where avec une valeur de champ textbox en parametre

Nicko29 · 26 Septembre 2012

Bonsoir,

je bute sur un bout de code,
J'ai une base de données avec deux colonnes Tri_affaires et CodeAffaires, plus un numéro auto en clé primaire.

Dans un formulaire j'ai dans une combobox toutes la liste de mes trigramme affaires (Tri_affaires) , et dans un champ textbox , j'aimerais afficher le CodeAffaire correspondant au Tri_affaires choisi dans la liste déroulante.

Code:

Private Sub ComboBoxTriAffaires_Change()

Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim VlCb As String
VlCb = ComboBoxTriAffaires.Value
Set bd = OpenDatabase(FichierMDB, False, False)
Set rs = bd.OpenRecordset("SELECT CodeAffaires FROM Info_affaires WHERE  Tri_Affaires =" & VlCb)

TextBoxCodeAffaires.Value = rs!CodeAffaire

End Sub

Est-ce une erreur de synthaxe ?

Nico

Nicko29 · 28 Septembre 2012

Re : VBA Excel access : Requete where avec une valeur de champ textbox en parametre

Bonjour,

Ma syntaxe était incorrecte en fait, voilà la bonne méthode :

Code:

Private Sub ComboBoxTriAffaires_Change()
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim Requete, VlCb As String
 
VlCb = ComboBoxTriAffaires.Value
If Trim(VlCb) = "" Then Exit Sub
Set bd = OpenDatabase(FichierMDB, False, False)
Requete = "SELECT * FROM Info_affaires WHERE Tri_Affaires =""" & UCase(VlCb) & """ AND CodeAffaires <> """";"
Set rs = bd.OpenRecordset(Requete)
If Not rs.EOF Then TextBoxCodeAffaires.Value = rs!CodeAffaires
rs.Close
 
End Sub

Nico

VBA Excel access : Requete where avec une valeur de champ textbox en parametre

Nicko29

Guest

Nicko29

Guest

Discussions similaires

VBA Excel access : Requete where avec une valeur de champ textbox en parametre

Nicko29

Guest

Nicko29

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency