Probleme requete VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Probleme requete VBA

gocho

Un formulaire : form1

un groupe d'options : CadreChoix

une textbox : critereUpdate

un bouton de commande : boutonUpdate

Quand je clique sur le bouton, ma fonction va regarder l'option choisit, et construire une requete en fonction.

Tout d'abord, la fonction qui recupere l'option choisie :

Code :

Private Function getChoixUpdate() As String
Dim var As String
Select Case Me.CadreChoix.Value
Case 1
var = "id"
Case 2
var = "nom"
Case 3
var = "prenom"
End Select
getChoixUpdate = var
MsgBox "" & var
End Function

Elle marche, pas de soucis.

Je recupere la valeur de ma textbox :

Code :

Private Function getCritereUpdate() As String
Dim var As String
var = Me.CritereUpdate
getCritereUpdate = var
MsgBox "" & var
End Function

Et enfin, la fonction affectée au bouton de commande.

Code :

Private Sub BoutonUpdate_Click()
DoCmd.SetWarnings True
Dim resultat As DAO.Recordset
Dim critere As String
Dim requete As String
Dim nom As String
Dim prenom As String
Dim num As String
choix = getChoixUpdate()
critere = getCritereUpdate()
'valcrit = getValeurUpdate()
requete = "SELECT * from [personnes] where " & choix & " = " & critere & ""
MsgBox "" & requete
Set resultat = CurrentDb.OpenRecordset(requete)
If Not resultat.EOF Then
num = resultat.Fields("id" ).Value
nom = resultat.Fields("nom" ).Value
prenom = resultat.Fields("prenom" ).Value
MsgBox "1 Personne trouvée :" & vbCrLf & _
"Id : " & num & vbCrLf & _
"Nom : " & nom & vbCrLf & _
"Prenom : " & prenom _
, vbInformation _
, "Enregistrement trouvé"
End If
End Sub

Quand je prends l'option id (qui est un numero auto en base, donc un chiffre) ca marche niquel.
Ca me retourne l'enregistrement.

Par contre, quand je veux selectionner une valeur texte, ca merde
La faute à la requete qui va etre :

Code :

Select * from personnes where nom=coucou

Et je pense que ca ne marche pas vu qu'il ne met pas les " autour de la valeur à chercher.
C'est bien ca?
Donc je me demande comment remédier à cela [:dawa]

Si quelqu'un a des idées

(et au passage, si vous vous voyez des trucs moches, énormes, à revoir, etc...j'suis preneur)

Message édité par gocho le 11-04-2008 à 14:45:38

Publicité

gocho

Code :

requete = "SELECT * from [personnes] where " & choix & " = '" & critere & "'"

ca marche maintenant [:kiki]

j'sais pas comment j'ai fait pour passer à coté de ca [:kiki]

Message édité par gocho le 11-04-2008 à 15:23:54

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Probleme requete VBA

Sujets relatifs
Problème : Installation/Migration site joomla sur serveur ovh	Pixelpost, problème d'accents après upgrade vers 1.7.1
requete SQL imbriquée	Menu dynamique en VBA pour Access 2003 par recordset
[VBA] Petite question pour bouton sur Excel	[DOM] : Probleme appendChild
[Batch] Problème de variable dans boucle for	[Résolu] MySQL et condition sur le résultat retourné par une requête
[VBA] Probleme de requete	[VBA] Access, probleme de requete
Plus de sujets relatifs à : Probleme requete VBA

Page générée en 0.059 secondes