Sujet Précédent Sujet Suivant

Pb pour faire un moteur de rechercje sous access 2000

griese Messages postés 139 Date d'inscription dimanche 9 mai 2004 Statut Membre Dernière intervention 27 février 2008 - 9 juin 2004 à 10:33
griese Messages postés 139 Date d'inscription dimanche 9 mai 2004 Statut Membre Dernière intervention 27 février 2008 - 10 juin 2004 à 09:49
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

Réponse 1 / 1
griese Messages postés 139 Date d'inscription dimanche 9 mai 2004 Statut Membre Dernière intervention 27 février 2008
10 juin 2004 à 09:49
g réussi à résoudre mon problème
0
Rejoignez-nous