Bonjour à tous,
Je vous contacte pour un projet que je fais en Access VBA.
Je suis débutant c'est à dire que j'apprend sur le tas et là je suis obligé de m'en remettre à vous car je bloque sur les sous-formulaire.
Après de nombreuses recherches je n'arrive pas à trouver satisfaction.
Voici mon soucis :
J'ai un formulaire principal et un sous formulaire.
Après la validation sur un bouton du formulaire, j'exécute une requète avec deux paramètres qui sont saisie dans deux textbox du formulaire principal en VBA.
Le soucis, c'est que j'aimerais que mon sous formulaire se remplissent de mon recordset mais cela ne marche pas, bien que j'ai trouvé plusieurs informations comme :
J'espère que vous pourrais me venir en aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Dim dbCurrent As Database Dim rs As DAO.Recordset Dim strQuery As String Set dbCurrent = CurrentDb() strQuery = "SELECT COUNT([NUM_AFFAIRE]) AS nbaff, [NUM_AFFAIRE], [TypeBoite] " strQuery = strQuery & "FROM [T_ArcBoite] INNER JOIN [T_ARCAFFAIRE] " strQuery = strQuery & "ON [T_ArcBoite].[NumBoite] = [T_ARCAFFAIRE].[NUM_BOITE] " strQuery = strQuery & "WHERE [T_ArcBoite].[NumBoite] = " & Me.txtNumBoite.value & " " strQuery = strQuery & "AND [T_ARCAFFAIRE].[SITE_ARCHIVAGE] = '" & queryProtectStr(Me.lstSiteArc.value) & "' " strQuery = strQuery & "GROUP BY [NUM_AFFAIRE], [TypeBoite]" strQuery = strQuery & "ORDER BY [NUM_AFFAIRE], [TypeBoite] " Set rs = dbCurrent.OpenRecordset(strQuery, dbOpenSnapshot) Set Me.AFFParNumBoite_sous_formulaire.Form.Recordset = rs
Merci d'avance.
Jedi186
Partager