Bonjour,
Je doit executer une requete en SQL et cette requete doit me retourner 2 champ et j'aimerais que quand je fait appel a cette fonction en SQL, je puisse recuperer les champs de table...
Voici mon code VB pour le moment qui ne me retourne rien ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Public Function Recherche(vlettre As String, vindice As Integer)
    For i = 1 To vindice
        Dim SQL As String
        
        Dim rst As DAO.Recordset
        Dim resultat As Integer
        SQL = "Select SUM(Nbr)AS Resultat, Prefab FROM(SELECT Count(*) AS Compteur,Prefab,Compteur*Nb AS nbr FROM RepereConcat WHERE MID(Repere," & i & ",1) LIKE '" & vlettre & "' AND Prefab = Prefab GROUP BY Prefab, Nb)WHERE Prefab=Prefab GROUP By Prefab;"
        Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly, dbReadOnly)
        rst.Close
    Next
        
End Function
Et donc je vouderais que la fonction me retourne en valeur Prefab et Resulat Comment puis-je faire ???