Discussion :

[cdumas]

Bonjour,

J'ai un formulaire contenant une liste de contact, chaque contact a un service et l'affichage est trié par service.

J'aimerais que si il y a 3 personnes dans le service, le nom du service soit affiché une seul fois et que le reste soit blanc ou vide ou même sans textbox suivant ce qui est possible.

Exemple :
ACHAT__Dupont
ACHAT__Durand
ACHAT__Toto
RH______Tata
RH______Titi


deviendrait

ACHAT Dupont
______Durand
______Toto
RH____Tata
______Titi


Merci par avance

[tamerlan]

Et pourquoi tu passes pas par une état. Ils sont fait pour ca ?

[cdumas]

Parce qu'il faut que l'utilisateur puisse ajouter des contacts, ce qui est impossible dans un état, je crois ?

[Arkham46]

slt,

avec la mise en forme conditionnelle on peut arriver à un résultat approchant :

- mon champ texte à masquer s'appelle "groupe"
- mettre un champ texte qui va récupérer la valeur précédente
--- nom : PrevGroupe
--- source : =PreviousValue()
- PreviousValue est une fonction qui récupère la valeur de la ligne précédente (code ci-dessous)
- la mise en forme conditionnelle qui change la couleur du champ si la valeur est égale à la valeur précédente, écrite en VBA pour avoir la valeur de la couleur de fond facilement

Code à mettre dans le formulaire :

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
Private Function PreviousValue()
Me.RecordsetClone.Bookmark = Me.Bookmark
Me.RecordsetClone.MovePrevious
PreviousValue = Me.RecordsetClone!groupe
End Function
 
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Me.groupe.FormatConditions.Count - 1
Me.groupe.FormatConditions(0).Delete
Next
With Me.groupe.FormatConditions.Add(acExpression, , "[groupe] = [PrevGroupe]")
 .BackColor = Me.Section(acDetail).BackColor
 .ForeColor = Me.Section(acDetail).BackColor
End With
End Sub

Y a juste à remplacer groupe et PrevGroupe par les noms des deux champs texte
L'affichage peut mettre un peu de temps à cause de la fonction PreviousValue....

J'ai pas mieux...

Bye.

[cdumas]

Merci pour cette réponse mais je ne comprends pas ce que fais ces lignes

With Me.Service_contact.FormatConditions.Add(acExpression, , "[Service_contact] = [ancien_service]")
.BackColor = Me.Section(acDetail).BackColor
.ForeColor = Me.Section(acDetail).BackColor
End With


C'est le BackColor et le ForeColor d'où ?

[Jeffboj]

hello,

Et pourquoi pas un formulaire et un sous-formulaire

basé sur 2 tables
1 table liste de contact
1 table service
tu pourrais faire soit un formulaire par contact avec sous-formulaire service
soit service avec sous-formulaire contact

Jeff

[cdumas]

En fait j'ai un formulaire client et un sous formulaire contact, alors je ne sais pas si je peux rajouter encore un autre sous sous formulaire sachant que je dois pouvoir ajouter des clients et des contacts.

En plus, il faut que je fasse une requête pour pouvoir faire une recherche aussi bien dans les contacts que dans les clients.

[cdumas]

J'ai adapté le code à mon contexte, mais rien ne se passe quand j'ouvre mon formulaire.
Est ce que vous voyez d'où ça peut venir ?

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 ancien_service As String
 
Private Function PreviousValue()
Me.RecordsetClone.Bookmark = Me.Bookmark
Me.RecordsetClone.MovePrevious
PreviousValue = Me.RecordsetClone!Service_contact
End Function
 
Private Sub CONTACT_Sous_formulaire_Enter()
Dim i As Integer
For i = 0 To Me.Service_contact.FormatConditions.Count - 1
Me.Service_contact.FormatConditions(0).Delete
Next
ancien_service = PreviousValue()
With Me.Service_contact.FormatConditions.Add(acExpression, , "[service_contact] = [ancien_service]")
 .BackColor = Me.Service_contact.BackColor
 .ForeColor = Me.Service_contact.BackColor
End With
 
End Sub

[Arkham46]

bjr,

y a un petit problème dans l'adaptation

- c'est dans l'événement chargement du formulaire qu'il faut placer le code
- ancien_service doit être une zone de texte avec le fonction PreviousValue comme source