Recherche de données dans une base accessRésolu

Question

Salut &#224; tous

Voil&#224; mon probl&#232;me, je cherceh &#224; faire une recherche dans une base de donn&#233;e acces &#224; partir d'un formulaire

Il s'agit en fait de chercher un enregistrement en fonction de mots clefs d&#233;finis par l'utilisateur dans une InputBox

mais plutot qu'un long discours je vous donne le code que j'ai fais (&#224; partir d'un tuto du site )

------
   Rem Variable de recherche
    Dim reqRecherche As String
    reqRecherche = InputBox("Entrez les mots clefs de votre recherche", "Recherche d'archive")
    
   Rem Bout de code "vol&#233;" sur le site  concernant la recherche SQL
    chaine1 = ""
    chaine_complete = Trim(reqRecherche)
    lg = Len(chaine_complete)
    X = 1
    Do Until X = 0
        X = InStr(1, chaine_complete, " ")
        If X = 0 Then
            chaine1 = chaine1 & "'*" & chaine_complete & "*'"
       Else
           chaine1 = Left(chaine_complete, X - 1)
           chaine1 = "'*" & chaine1 & "*' AND titre like "
           chaine_complete = Mid(chaine_complete, X + 1, lg - X)
        End If
    Loop
   
   Rem La fin diff&#232;re (pour ceux qui connaissent le code source) car je travaille directement sur le formulaire (je pense que mon erreur est dans le coin)
    Me.RecordSource = "SELECT * FROM archives where titre like " & chaine1 & ""
    Me.Refresh
----

J'ai rajout&#233; un peu de cmmmentaire, assez inutile ^^, pour faciliter la compr&#233;hension du code

Je charge ce code au d&#233;marrage (donc dans Form_Laod() ), l'utilisateur tape sa recherche (par exemple "Influence MSN") et j'obtiens le message suivant :

"Erreur d'ex&#233;cution '2580'

La source d'enregistrement 'SELECT * FROM archives WHERE titre Like "*Influence*" AND titre Like "*MSN*"' sp&#233;cifi&#233; dans ce formulaire ou &#233;tat n'existe pas

Merci d'avance pour vos plus amples pr&#233;cisions et &#233;ventuelles r&#233;ponses

themioux · Accepted Answer

Merci du coup de main, mais j'ai trouv&#233;...

Mon code est bon mais il faut mettre la bonne source 

en gros "SELECT * FROM archive ......" fonctionne mieux que "SELECT * FROM archiveS ....."

Rhaaaa, 3 jours pour une faute de frappe !!!

@+

Mioux

themioux · Answer

Re moi, je viens de me rendre compte que ce ne sont pas des guillemets mais des apostrophes qui entourent les mot clefs

titre Like '*Influence*'

Je sais pas si ca change grand chose mais je pr&#233;cise

aieeeuuuuu · Answer

salut 

peux tu nous mettre la ligne ou ca plante.

est ce que tu as essay&#233; en lancant une requete plus simple ?

 lorsque tu fait un like, les m&#233;tacaract&#233;res a utiliser ne sont pas le * et le ? comme sous DOS, mais le % (0 &#224; n caracteres) et le _ (soulign&#233; : 1 et 1 seul caractere)

themioux · Answer

Je vous envoie ca d&#232;s que possible, c'est &#224; dire surement pas avant lundi parce que c'est au boulot



A moins que je n'arive &#224; ouvrir la base chez moi, mais c'est pas s&#251;r, vu que j'ai pas access ^^

themioux · Answer

Resalut

Voil&#224; la ligne qui plante

Me.RecordSource = "SELECT * FROM archives WHERE titre Like " & chaine1 & ""

chaine1 contient du texte comme ceci : 'mot 1' titre Like 'mot 2' And...

Recherche de données dans une base access

5 réponses

Discussions similaires