Discussion :

[karima123]

Bonjour,
ma base de donnée contient une seule table avec les champs suivant:
N° changement
Date changement
Projet:
Description changement
Validation qualité "EN cours, Accepter, Refuser"

ce que je veux faire c'est avoir un formulaire avec une liste deroulante ("EN cours, Accepter, Refuser") et ci_dessous un tableau affiche les enregistrement filter selon le choix de la liste deroulante. ces enregistrements sont (N° changement, Date changement,Description changement).


Pouvez vous STP me montrer comment realiser cette fourmulaire.

[karima123]

personne ne veut m'aider

[madefemere]

Bonjour,

Ce n'est pas qu'on ne veut pas, mais tout le monde est pris par son quotidien.

Pour faire ce que tu veux:
1- Tu crées un formulaire "tabulaire" avec ta table en mettant tous les champs.
2- Dans l'en-tête du formulaire, tu rajoutes ta liste déroulante "zdlValidationFiltre" avec comme contenu tes 3 valeurs.
3- Tu mets le code :

Code :

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

1
2
Me.Filter = "[Validation qualité]=""" & Me.zdlValidationFiltre & """"
Me.FilterOn = True

sur un évènement d'un contrôle (ex: évènement sur click d'un bouton ou Après mise à jour de ta zone de liste)
Et c'est tout,
Il serait intéressant de rajouter un bouton pour annuler le filtre avec le code :

Code :

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

1
2
Me.Filter = ""
Me.FilterOn = False

Cordialement,

[karima123]

Bonjour,

Ce n'est pas qu'on ne veut pas, mais tout le monde est pris par son quotidien.

Pour faire ce que tu veux:
1- Tu crées un formulaire "tabulaire" avec ta table en mettant tous les champs.
2- Dans l'en-tête du formulaire, tu rajoutes ta liste déroulante "zdlValidationFiltre" avec comme contenu tes 3 valeurs.
3- Tu mets le code :

Code :

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

1
2
Me.Filter = "[Validation qualité]=""" & Me.zdlValidationFiltre & """"
Me.FilterOn = True

sur un évènement d'un contrôle (ex: évènement sur click d'un bouton ou Après mise à jour de ta zone de liste)
Et c'est tout,
Il serait intéressant de rajouter un bouton pour annuler le filtre avec le code :

Code :

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

1
2
Me.Filter = ""
Me.FilterOn = False

Cordialement,

j'ai appliqué ce que tu m'as ecris en dessous, mais rien ne se passé, meme si je choisis une valeur le filter ne marche pas,

[Malick]

Pourriez-vous zipper votre base de données et la poster sur le forum (sans données confidentielles) ?

On essaiera de voir ce qui ne va pas.

Cordialement,
Malick

[karima123]

Pourriez-vous zipper votre base de données et la poster sur le forum (sans données confidentielles) ?

On essaiera de voir ce qui ne va pas.

Cordialement,




Malick

AMDEC-PLAN CONTROLE -Test.zip
Voici le fichier, Merci

[jimbolion]

karima123

sur un évènement d'un contrôle (ex: évènement sur click d'un bouton ou Après mise à jour de ta zone de liste)

Voilà ce qui est écrit ! donc puisqu'il ne s'agit pas d'un bouton il faut le mettre après mise à jour et ensuite ta portion de code doit être modifiée ainsi :

Code :

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

1
2
3
4
Private Sub zdlValidationFiltre_AfterUpdate()
Me.Filter = "[Validation_Qualité] ='" & Me.zdlValidationFiltre & "'"
Me.FilterOn = True
End Sub

D'autre part la réflexion de madefemere doit également être pris en compte

Il serait intéressant de rajouter un bouton pour annuler le filtre avec le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Me.Filter = ""
Me.FilterOn = False

milkoseck

Jm

[Malick]

Merci jimbolion

@+

[karima123]

Je vous remercie tous beaucoup pour votre support, le code marche parfaitement.
me reste juste un truc, je veux envoyé le tableau qui s'affiche dans ce fourmulaire par email, j'ai le code ci dessou mais je ne sais pas comment l'adapter.
aidez moi SVP

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
27
28
29
30
31
'send
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
'   Destinataire du message :
MonMessage.To = "Adresse electronique"
'  Titre du mail :
MonMessage.Subject = "Rappel: Des changements en cours de validation: " & [N°_changement]
'  Contenu du mail :
corps = "Bonjour,"
corps = corps & Chr(13) & Chr(10)
corps = corps & "Merci de valider les mises à jours en cours"
corps = corps & Chr(13) & Chr(10)
corps = corps & "N° changement : "
corps = corps & [N°_changement]
corps = corps & Chr(13) & Chr(10)
corps = corps & "Date_changement: "
corps = corps & [Date_changement]
corps = corps & Chr(13) & Chr(10)
corps = corps & "Projet : "
corps = corps & [Projet]
corps = corps & Chr(13) & Chr(10)
corps = corps & "Description changement : "
corps = corps & [Description_changement]
corps = corps & Chr(13) & Chr(10)
MonMessage.Body = corps
'   C’est parti :
MonMessage.Send
 '   Fermeture de la session Outlook :
Set MonOutlook = Nothing

[Malick]

Salut

Je vous remercie tous beaucoup pour votre support, le code marche parfaitement.

Il faudra clôturer cette discussion en le mettant

En effet, la règle voudrait que ça soit une question par discussion ouverte.

Ainsi, concernant votre deuxième question relative à l’envoi de mail, je vous conseille d’ouvrir une nouvelle discussion.

Cordialement,
Malick

[karima123]

Salut



Il faudra clôturer cette discussion en le mettant

En effet, la règle voudrait que ça soit une question par discussion ouverte.

Ainsi, concernant votre deuxième question relative à l’envoi de mail, je vous conseille d’ouvrir une nouvelle discussion.

Cordialement,
Malick

je dois expliquer tous cela à nouveau.

merci pour votre support habituel. je vais faire une nouvelle discution..