Pb pour faire un moteur de rechercje sous access 2000

Signaler
Messages postés
139
Date d'inscription
dimanche 9 mai 2004
Statut
Membre
Dernière intervention
27 février 2008
-
Messages postés
139
Date d'inscription
dimanche 9 mai 2004
Statut
Membre
Dernière intervention
27 février 2008
-
Salut, j'essai de faire un petit moteur de recherche à partir d'un formulaire. Mais j'arrive pas à le faire marcher. Pouvez m'aider, c'est très urgent Merci. Voilà le code :
Private Sub Form_Click()

End Sub
Dim cnx As New ADODB.Connection
Dim jeu As New ADODB.Recordset

Private Sub rechercher_Click()


Dim ChSQL As String
Dim rech As String
Dim val As String

Set cnx = CurrentProject.Connection
rech = Me.rech.Value
val = Me.val.Value
ChSQL = "SELECT* FROM Appels WHERE " & rech & val
jeu.Open ChSQL, cnx, adOpenStatic
Me.NumAppel.Value = Fields(0)
Me.Date.Value = Fields(1)
Me.Heure.Value = Fields(2)
Me.NumAgence.Value = Fields(3)
Me.Contact.Value = Fields(4)
Me.Code_appli.Value = Fields(5)
Me.Nature.Value = Fields(6)
Me.Descriptif_appel.Value = Fields(7)
Me.Solution_immediate = Fields(8)
Me.Code_solution.Value = Fields(9)
Me.Descriptif_solution.Value = Fields(10)
jeu.Close
cnx.Close
End Sub

rech correspond à une liste déroulante dans laquelle on choisit sur quel critère on fait la recherche.
val correspond à une zone de texte dans laquelle on saisie la valeur du critère choisit.

1 réponse

Messages postés
139
Date d'inscription
dimanche 9 mai 2004
Statut
Membre
Dernière intervention
27 février 2008

g réussi à résoudre mon problème