Discussion :

[jedi186]

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 :

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

J'espère que vous pourrais me venir en aide.

Merci d'avance.

Jedi186

[jedi186]

Personne n'a vraiment d'idées ?

Pour être plus bref,
Je cherche à savoir comment je peux faire afficher tout le résultat de mon RecordSet dans un formulaire, voire un sous formulaire.

Exemple : mon recordset contient 3 valeurs :

Alors j'aimerais qu'il y est trois textbox qui contiennent le résultat (il y a autant de textbox que de résultat.)

Mais bon le mieux serait que mon sous formulaire récupère les information de ma requete VBA mais cela ne marche pas.

J'espère que j'ai pu être plus clair.

Merci d'avance !

Jedi186

[Jean-Philippe André]

Bonjour,
je te recommande de regarder l'aide sur la propriété

Code :

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

Me.RecordSource

N'hésite pas à nous revenir.

[jedi186]

Merci pour ta réponse, mais c'est justement là que ça bloque, j'ai chercher plein de truc notamment sur le recordSource, j'ai employé celui ci sur :

Code :

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

Forms![ArcRechAFFBoite]![sousFormAFF].Form.RecordSource = strQuery

Mais rien !

[Jean-Philippe André]

Ok,
autre méthode à regarder,
mettre dans la source du formulaire cette requête

Code :

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

1
2
3
"SELECT COUNT([NUM_AFFAIRE]) AS nbaff, [NUM_AFFAIRE], [TypeBoite] 
FROM [T_ArcBoite] INNER JOIN [T_ARCAFFAIRE] ON [T_ArcBoite].[NumBoite] = [T_ARCAFFAIRE].[NUM_BOITE] GROUP BY [NUM_AFFAIRE], [TypeBoite]
ORDER BY [NUM_AFFAIRE], [TypeBoite]"

et utiliser dans la foulée

Code :

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

Docmd.OpenForm

des exemples ici
http://access.developpez.com/faq/?pa...#PreremplChamp

[jedi186]

oula je fatigue, j'essai depuis toute la journée je trouve pas.

Humm tu pourrais plus détailler ta methode stp ?

Je la met ma requete dans quel source , celle du formulaire principal ou du sous formulaire.
Et comment j'indique les condition de mon WHERE car il faut que je precisise le numéro de boite et le site d'archivage :

Code :

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

1
2
strQuery = strQuery & "WHERE [T_ArcBoite].[NumBoite] = " & Me.NumBoite.value & " "
strQuery = strQuery & "AND [T_ARCAFFAIRE].[SITE_ARCHIVAGE] = '" & queryProtectStr(Me.lstSiteArc.value) & "' "

désolé et merci

[Lou Pitchoun]

Salut,

Une fois que tu affectes/modifies un recordset d'un sous formulaire (ou même d'un formulaire) : penses à actualiser le sous formulaire.

Exemple :

Code :

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

1
2
3
4
    ' modification de la source du formulaire
    Forms![fRecherche]![sfVehicule].Form.RecordSource = SQL
    ' rafraichit le sous formulaire au moyen de la méthode Requery
    Me.sfVehicule.Form.Requery

Edit : tu as ici 2 syntaxes différentes pour accéder au sous formulaire.
Pour plus d'infos : la syntaxe des objets Access

[jedi186]

Oui Oui c'est vrai, j'avais oublié de le mettre dans le code que je vous ai montré, mais ça ne fait rien du tout.

Pour la syntaxe, désolé, c'est juste que j'ai cherché sur tellement de forum ou de site ou d'aide, que j'ai fait plein de test et après j'ai des truc différent.
Je me perd un peu a vrai dire !

[Lou Pitchoun]

Qu'affectes tu à la propriété RecordSource ? Une chaine de caractère j'espère ?
Le Recordset n'est pas accepté.

Peux tu poster le code qui tu as actuellement ?

[jedi186]

Le truc qui me rend fou, c'est que je veux juste afficher le résultat d'une requete qui contient plusieurs valeurs en VBA, et je n'arrive pas à le faire.
On m'avais indiquer par un sous-formulaire, alors j'ai testé, ça doi^t être tout bête mais bon j'y arrive pas.

Le truc c'est que j'ai vu que l'on peut le faire en choisissant une table ou une requête créée en Access, mais en passsant par VBA c'est à dire une requete avec en condition deux champs à saisir et valider, ben je trouve pas !

(désolé je me défoule un peu)

[jedi186]

Oui oui un chaine.

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
22
23
24
25
26
 
 
Dim dbCurrent As Database
Dim rs As Recordset
Dim strQuery As String
 
Set dbCurrent = CurrentDb()
 
strQuery = "SELECT [NUM_AFFAIRE] "
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.NumBoite.value & " "
strQuery = strQuery & "AND [T_ARCAFFAIRE].[SITE_ARCHIVAGE] = '" & queryProtectStr(Me.lstSiteArc.value) & "' "
strQuery = strQuery & "GROUP BY [NUM_AFFAIRE]"
strQuery = strQuery & "ORDER BY [NUM_AFFAIRE] "
 
'Set rs = dbCurrent.OpenRecordset(strQuery)
 
Forms![ArcRechAFFBoite]![sousFormAFF].Form.RecordSource = strQuery
Forms![ArcRechAFFBoite].Form![sousFormAFF].Form.Requery
 
 
rs.Close
Set rs = Nothing
dbCurrent.Close
Set dbCurrent = Nothing

Voilà en clair j'ai ça lol c'est à dire rien !

Est ce qu'il faut que je regle quelque chose dans les proprieté de mes formulaire ?

[Lou Pitchoun]

Il n'y a rien de spécial à modifier.

Voici uniquement ce dont tu as besoin pour ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim strQuery As String
 
strQuery = "SELECT [NUM_AFFAIRE] "
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.NumBoite.value & " "
strQuery = strQuery & "AND [T_ARCAFFAIRE].[SITE_ARCHIVAGE] = '" & queryProtectStr(Me.lstSiteArc.value) & "' "
strQuery = strQuery & "GROUP BY [NUM_AFFAIRE]"
strQuery = strQuery & "ORDER BY [NUM_AFFAIRE] "
 
 
Forms![ArcRechAFFBoite]![sousFormAFF].Form.RecordSource = strQuery
Forms![ArcRechAFFBoite]![sousFormAFF].Form.Requery

Maintenant, est ce que ta chaine SQL renvoi bien le résultat escompté ?

[jedi186]

Ben j'ai rien qui se passe en fait.

Est ce que le sous formulaire doit être en indépendant ??

Car en indépendant, il me fait : l'expression entrée fait référence à un objet fermé ou supprimé ...

[Lou Pitchoun]

Sous formulaire dépendant (un formulaire ayant comme source de données T_ARCAFFAIRE dans ton cas), pas de lien champs père/fils.

Edit :
C'est quoi ça queryProtectStr() ??

[jedi186]

Ok je vais vite voir ce que ça donne.
Je vais bientot partir du boulot donc je te laisse traquile.
Et je te recontacte demain sur ce POST.

Merci encore pour ton temps et ton aide, Bonne soirée.

EDIT : C'est un fonction qui a été créé par les développeur de l'application sur laquelle je travail servant à vérifier et retourner les chaine de caractaire comme celle qui on des apostrophes pour les convertir en caractère compréhensible par l'ordinateur. lors des requête par exemple.

[jedi186]

Salut,
Comme prévu je vous recontacte pour mon problème de hier.

Alors c'est résolu, ma syntaxe était correct, j'utilisais bien ce qu'il fallais.
Mais le problème venait de access lol enfin plutôt de la configuration des propriétés de mon sous-formulaire, il fallait mettre :

affich par defaut : Mode continu

et bien faire correspondre la textbox de mon sous formulaire au champs de ma table voulu.

Voià, désolé pour le dérangement hier et merci encore pour l'écoute.
A bientot.

Jedi186

[Bluephoenix]

Je me permet de poster sur ce poste car j'ai un peu le même problème.

J'ai suivi vos conseils et cela à l'air de fonctionner, je m'explique :

- J'ai une table Livre avec 3 champs (Id, Titre, Auteur).
- Un formulaire principal "FormRecherche" avec deux champs :
-> Un listebox "Champs" (permettant le choix du critère de recherche, donc soir Livre soit Auteur).
-> Un Textbox "Valeur" permettant de saisir la valeur (par exemple on choisit Auteur et on saisit toto).
- Un second formulaire "SFRecherche" indépendant, avec pour source de donnée la table Livre et avec deux textbox pour afficher Titre et Auteur.

Donc j'utilise le second formulaire comme sous formulaire dans le premier pour afficher les valeurs du Recordset.

Voici mon code VBA du bouton "Rechercher" du formulaire FormRecherche :

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
22
23
24
25
26
 
Private Sub BtRecherche_Click()
 
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim requete As String
    Dim resultat As String
 
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase(CurrentDb.Name)
    requete = "SELECT * FROM Livre WHERE " & Champs.Value & " LIKE '*" & Valeur.Value & "*'"
 
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(requete, dbOpenForwardOnly, dbReadOnly)
 
    If rst.EOF Then
        Texte6.Value = "Aucun résultat trouvé !!!"
    Else
        Forms![FormRecherche]![SFRecherche].Form.RecordSource = requete
        Forms![FormRecherche]![SFRecherche].Form.Requery
 
    End If
 
    ' Fermeture du Recordset
    rst.Close
 
End Sub

Donc je dis que cela semble fonctionner car dans le sous formulaire le nombre d'enregistrement trouvé est correct (par exemple 5 si je met * comme valeur recherchée, sachant que ma table contient 5 enregistrements c'est correct) MAIS les champs ne sont pas remplis !!!

Comment peut on préciser le nom des champs du sous formulaire à remplir (enfin si c'est bien là le problème).

Merci d'avance.

[Bluephoenix]

C'est bon j'ai trouvé, il fallait créer le sous formulaire en sélectionnant directement les champs à partir de la table livre (facile sous access 2007 je vais voir pour le transposer sur 2003 mais ça doit pas être compliqué).

Désolé pour le dérangement