Discussion :

[Prettyletter]

Bonjour,

Ma question est peut-être bête mais je débute en Access et je dois réaliser une application pour mon stage. Je vous explique le problème :

J'ai un formulaire "Opérateur" qui contient une combobox et des onglets. Je travaille actuellement sur l'onglet "Fiches de poste" qui me permet de voir les fiches de l'opérateur sélectionné.
J'ai donc fait pour l'instant une liste dans cet onglet, contenant toutes les fiches de poste de l'opérateur. Lors du changement d'opérateur dans la liste de recherche, la liste des fiches se met à jour, il n'y a pas de soucis à ce niveau.

Maintenant, j'aimerais afficher lors de la sélection d'une fiche de poste la liste de tous les éléments de la fiche de poste dans un tableau. Pour cela, j'imagine que j'ai donc besoin d'un sous-formulaire, dont la requête sera modifiée en fonction du changement de fiche et d'opérateur.
Comment peut-on, à partir d'une requête en VBA, parcourir un Recordset pour afficher les lignes du tableau une par une? Ou faut-il procéder autrement?

Je vous remercie d'avance pour vos réponses.

Cordialement,
Prettyletter

[yonnel]

Bonjour,

Je ne suis pas sûr d'avoir bien compris à 100%ce que tu veux faire!

Mais une solution simple consiste peut être à créer une table temporaire à partir de ta requête SQL (SELECT INTO) puis d'avoir un formulaire qui pointe dessus.

Sinon tu peux aussi créer un sous formulaire dont tu changeras la requête SQL source quand nécessaire (évènement after_update par exemple)

Code :

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

Me.NomSousFormulaire.Form.RecordSource = "Requête SQL"

[Prettyletter]

Je te remercie d'avoir répondu!

J'avais essayé déjà ta deuxième solution mais j'avais des erreurs. Je vais réessayer!
Sinon, j'ai eu l'idée de créer un sous-formulaire avec champs pères et champs fils mais je ne sais pas comment récupérer la valeur sélectionnée dans la liste pour faire cela..

[yonnel]

Personnellement j'utilise beaucoup cette solution et ça fonctionne très bien.

Pour éviter les erreurs je te conseille de:
1 - Créer le formulaire qui te servira de sous formulaire
2 - Lui ta chaîne SQL en propriété record source (basé sur une fiche de poste test) afin de tester
3 - Une fois que ça marche tu peux mettre le code que je t'ai donné dans le formulaire parent

[Prettyletter]

J'ai peut-être un début de solution mais, évidemment, il me faudrait la fin!

J'ai donc utilisé un sous-formulaire contenant toutes les informations dont j'ai besoin, créé avec l'assistant. L'idée est d'avoir en champs père l'identifiant de l'opérateur ET l'identifiant de la fiche, et en champs fils les champs correspondants. En revanche, je ne peux pas sélectionner dans les champs père l'identifiant de la fiche. J'ai donc essayé de le modifier par VB, mais ça ne fonctionne pas. Voici ce que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
' Evènements lors de la sélection d'une fiche de poste dans la liste
Private Sub lst_Fiches_poste_AfterUpdate()
 
Dim str_Modules As String
 
Me.sf_Modules_FP_Op.LinkMasterFields = Me.lst_Fiches_poste & ";" & Me.cbo_Operateurs
Me.sf_Modules_FP_Op.LinkChildFields = "[IDX ID_FP];[IDX ID_OP]"
 
End Sub

Je ne suis pas sûr de mon coup pour la concaténation de deux champs pères non plus. Si quelqu'un a une idée, je suis preneur!

[yonnel]

Je crois qu'il te faut mettre des virgules plutôt que des points virgules.

Personnellement je n'utilise jamais cette fonction. J'aurais donc du mal à te fournir plus d'aide!

[yonnel]

Et je crois aussi que ça serais plutot quelque chose comme:

Code :

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

1
2
Me.sf_Modules_FP_Op.LinkMasterFields = "lst_Fiches_poste,cbo_Operateur"
Me.sf_Modules_FP_Op.LinkChildFields = "[IDX ID_FP],[IDX ID_OP]"

(mais là encore je ne suis pas sûr à 100%...)

[Prettyletter]

Je vais plutôt faire ce que tu m'as dit, je pense que tu sais mieux que moi! C'est peut-être ma requête SQL qui était incorrecte, je vais revérifier et je posterai ma solution quand j'aurai trouvé. Merci beaucoup

[Prettyletter]

J'ai fait comme tu m'as dit mais ça ne veut pas fonctionner. A chaque fois que je sélectionne une fiche dans la liste, j'obtiens d'abord une fenêtre me demandant un paramètre avec pour intitulé "2" puis une autre, la même avec "5".

Voici mon code VBA :

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
' Evènements lors de la sélection d'une fiche de poste dans la liste
Private Sub lst_Fiches_poste_AfterUpdate()
 
Dim str_Modules As String
 
' Sélection des modules et des infos concernant leur acquisition par l'opérateur
str_Modules = "SELECT CODE, [LIBELLE], [FORMATEUR], [DATE_ACQ], [OBSERVATIONS]" _
            & " FROM [MODULES], [OPERATEURS_MODULES]" _
            & " WHERE [MODULES].[IDX ID] IN (SELECT [IDX ID_MOD]" _
            & " FROM [MODULES_FP] WHERE [IDX ID_FP] = " & Me.lst_Fiches_poste & ")" _
            & " AND [OPERATEURS_MODULES].[IDX ID_OP] = " & Me.cbo_Operateurs & ";"
 
Me.sf_Modules_FP_Op.Form.RecordSource = str_Modules
 
End Sub

Edit :
Après vérification, je me suis trompé dans l'inclusion du sous-formulaire, j'ai mis une requête au lieu du formulaire. Je n'ai plus de boites de dialogue mais je n'ai pas de résultat et je vois un message s'afficher pendant une fraction de seconde dans la barre d'état du logiciel : "Impossible de mettre à jour ce jeu d'enregistrements"...

[Prettyletter]

L'erreur venait bien de la requête qui ne fonctionnait pas. Résolu! Merci beaucoup!

[David_18]

Bonjour à tous,

Lors de l'exécution j'ai le message d'erreur suivant : "Type de données incompatibles dans l'expression du critère" et cette ligne de code est surlignée :

Code :

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

Me.SousFormulaire.Form.RecordSource = strSQL

Ma requête me semble bonne donc je ne sais pas d'où peut venir mon problème, si quelqu'un pouvait m'éclaircir un peu

Merci

[madefemere]

Bonjour,

Le message d'erreur est explicite. Vous assignez un variable de mauvais type à un champ ou contrôle.
Pour plus d'explication, il faudrait le code de strSQL.

Cordialement,

[David_18]

Tout d'abord, merci pour votre réponse aussi rapide.

Le code est le suivant :

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
Dim strSQL As String
Dim SN As String
Dim jour
 
jour = Date
jour = Format(jour, "mm/dd/yyyy")
jour = DateAdd("yyyy", -2, jour)
jour = Format(jour, "yyyyddmm")
SN = "0"
 
strSQL = "SELECT Count(*) AS nbr, T_Data.Family, T_Data.Market, T_Data.Model, T_Data.SN1, T_Data.SN2, T_Data.Instal " & _
         "FROM T_Data " & _
         "GROUP BY T_Data.Family, T_Data.Market, T_Data.Model, T_Data.SN1, T_Data.SN2, T_Data.Instal, T_Data.Period " & _
         "HAVING (((Count(*))>1) AND ((T_Data.SN1)<>" & SN & ") AND ((T_Data.SN2)<>" & SN & ") AND ((T_Data.Period)>" & jour & ")) " & _
         "ORDER BY Count(*) DESC;"

Cette requête doit me permettre d'afficher les doublons avec leurs nombres d'apparitions dans un sous formulaire.

Cordialement,

[madefemere]

Il faut vérifier les types des champs SN1,SN2 et period dans les tables sources. Texte ou autre chose.
Le type de ton variable jour n'est pas clair.

[David_18]

Les 3 champs sont de type texte et la variable jour est de type String

[David_18]

Pour être un peu plus clair, je suis passé par le mode création pour faire ma requête.

Code :

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

1
2
3
4
5
SELECT Count(*) AS nbr, T_Data.Family, T_Data.Market, T_Data.Model, T_Data.SN1, T_Data.SN2, T_Data.Instal
FROM T_Data
GROUP BY T_Data.Family, T_Data.Market, T_Data.Model, T_Data.SN1, T_Data.SN2, T_Data.Instal, T_Data.Period
HAVING (((Count(*))>1) AND ((T_Data.SN1)<>"0") AND ((T_Data.SN2)<>"0") AND ((T_Data.Period)>"20120505"))
ORDER BY Count(*) DESC;

Celle-ci marche très bien et fait exactement ce que je souhaite. Cependant j'aimerai que le "((T_Data.Period)>"20120505"))" se mette à jour dans la requête en fonction de la date du jour. E je suis donc obligé de passer par du code vba pour faire cela.

[madefemere]

Bonjour,

Si ce sont des textes donc faut les mettre entre apostrophes :

Code :

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

1
2
3
4
5
strSQL = "SELECT Count(*) AS nbr, T_Data.Family, T_Data.Market, T_Data.Model, T_Data.SN1, T_Data.SN2, T_Data.Instal " & _
         "FROM T_Data " & _
         "GROUP BY T_Data.Family, T_Data.Market, T_Data.Model, T_Data.SN1, T_Data.SN2, T_Data.Instal, T_Data.Period " & _
         "HAVING (((Count(*))>1) AND ((T_Data.SN1)<>'" & SN & "') AND ((T_Data.SN2)<>'" & SN & "') AND ((T_Data.Period)>'" & jour & "')) " & _
         "ORDER BY Count(*) DESC;"

Bonne continuation

[David_18]

Quelle doit être la source de mon sous formulaire ?
Au début la source était la requête sql issue du mode création. Bien entendu je l'ai supprimé pour mettre ma table T_Data comme source du sous formulaire. Est-ce bien ça ? Même si je ne veux pas afficher tous les champs de cette table, je pense que la requête me permet d'afficher uniquement ce que je veux ?
A l'exécution j'ai l'erreur suivante : La source d'enregistrement "Faux" spécifiée dans ce formulaire ou dans cet état n'existe pas.

[madefemere]

Tu ne pouvais pas indiquer ton contexte dès le début?
Normalement tu mets le strSQL en source de ton sous-formulaire et ça devrait le filtrer.
D'après ton message, tu as mis "FAUX" dans les propriétés "Source controle" de ton sous-formulaire, c'est pourquoi Access te jette.

[David_18]

Comment je dois procéder pour mettre le strSQL en source de mon sous formulaire ?