Discussion :

[Karehaus]

Bonjour à tous !

Travaillant depuis quelques mois sur Access, j'ai pris l'habitude de lire votre site lorsque je suis confronté à un problème.
Aujourd'hui néanmoins, me voilà coincé, cela fait en fait plusieurs jours que je le suis par un petit souci, et malgré mes recherches, je n'avance pas d'un pas.
Je travaille actuellement sur la création d'une base de donnée interne à l'entreprise dans laquelle je travaille. J'aimerais pour son fonctionnement incorporer une requête codée en VBA, j'ai déjà un modèle (réalisé par un stagiaire il y a 15 ans qui a fait un excellent travail) mais j'ai énormément de mal à le comprendre.
Du coup, j'ai décidé d'y aller progressivement, en tentant déjà de créer une première requête VBA "bidon", histoire déjà de voir comment ça marche.
Je pense être sur la bonne voie pour créer la requête (du moins je l'espère) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Recavancee()
strSql = "SELECT Volontaires.[Nom 1], Volontaires.N°Volontaire " & vbCrLf & _
"FROM Volontaires " & vbCrLf & _
"WHERE (((Volontaires.[Nom 1])=""Citrouilland""));"
 
End Sub

En gros, c'est tout simple (mais si j'y arrive, ça me fera faire un gros pas pour continuer ensuite de façon autonome et faire ce que je veux réellement faire). Il s'agit de réaliser une requête que je pourrais aussi faire via une requête "normale". Elle consiste à extraire dans la liste des clients tous les clients ainsi que leur numéro client ayant pour premier nom "Citrouilland" (je précise qu'il s'agit bien sûr de clients factice tant que cette base est en travaux).
Pour obtenir cette requête, j'ai utilisé un code qui convertit un code SQL en VBA. Néanmoins, je suis surpris qu'il ne nécessite pas de recordset, donc je me demande si je suis sur la bonne piste !
Ensuite, une fois cela codé en VBA, je veux que la requête s'active grâce à un bouton sur un formulaire, et que son activation ouvre un formulaire, comportant un sous-formulaire avec la liste des clients concernés. Le formulaire est bien sûr déjà prêt, reste à ce que je comprenne comment faire en sorte qu'il ne me donne que les sujets concernés par la requête plus ou moins juste (en priant pour que ce soit plutôt plus que moins) que j'ai placée.
Merci pour votre attention !

[loufab]

Bonjour,
Le recordset est réservé à des traitements VBA particuliers.

Je te conseille de transformer ta Sub en Function pour qu'elle renvoie texte SQL.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
function Recavancee()
Recavancee = "SELECT Volontaires.[Nom 1], Volontaires.N°Volontaire " & vbCrLf & _
"FROM Volontaires " & vbCrLf & _
"WHERE (((Volontaires.[Nom 1])=""Citrouilland""));"
 
End function

Honnêtement les vbCrlf on s'en fout mais bon, ça n'empêche pas le fonctionnement.

Ensuite lorsque tu souhaites l'utiliser dans la source d'un contrôle (formulaire, sous-form, liste...) il te suffit de l'affecter comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...Moncontrole.recordsource = racavancee()

Cordialement,

[Karehaus]

Merci pour ta réponse !
Je suis en train d'essayer ça, ça m'est d'une grande aide !
Bonne continuation à toi !