none
Intégrer une variable dans une fonction RRS feed

  • Question

  • J'ai écrit la fonction suivante en VBA pour faire des recherches en utilisant des requêtes SQL.

    Cette fonction est appelée à chaque fois qu'on clique sur le bouton "Recherche" et utilise deux variables :

    QrySearch : la requête SQL (Select) définie dans le corps du module
    Column : la colomne dans la quelle la recherche devrait s'effectuer

    A chaque fois j'exécute la fonction, j'ai le message d'erreur 3265 "Elément non trouvé dans la collection".

    J'ai des doutes à propos de la variable Column mais je ne trouve pas la bonne syntaxe à utiliser.

        Public Function SearchElement(QrySearch, Column) As String
        Dim db As DAO.Database, Rec As DAO.Recordset, List As String
            Set db = CurrentDb
            Set Rec = db.OpenRecordset(QrySearch)
                While Not Rec.EOF
                    List = List & ";" & Rec!Column
                    Rec.MoveNext '
                Wend
                List = Mid(List, 2)
                SearchElement = List
            Rec.Close
            db.Close
        End Function


    • Modifié M.S.M mercredi 23 décembre 2015 10:55
    mercredi 23 décembre 2015 10:54

Réponses

  • Bonjour,

    Si l'erreur 3265 est levée c'est que Column est un champ incorrect (au niveau du nom).

    Mais la syntaxe n'est pas adaptée à ce que vous souhaitez...

    Vous devez donc d'écrire :

    List = List & ";" & Rec.Fields(Column).Value


    Argy

    • Marqué comme réponse M.S.M mardi 5 janvier 2016 09:12
    mercredi 23 décembre 2015 16:54
    Modérateur

Toutes les réponses

  • Bonjour,

    Si l'erreur 3265 est levée c'est que Column est un champ incorrect (au niveau du nom).

    Mais la syntaxe n'est pas adaptée à ce que vous souhaitez...

    Vous devez donc d'écrire :

    List = List & ";" & Rec.Fields(Column).Value


    Argy

    • Marqué comme réponse M.S.M mardi 5 janvier 2016 09:12
    mercredi 23 décembre 2015 16:54
    Modérateur
  • Bonjour,

    Merci, vous avez confirmé mes doutes.

    La fonction marche maintenant :)

    ++

    M.S.M

    jeudi 24 décembre 2015 11:19