Discussion :

[wadoux]

excuse pour les explications !! mais impossible de reprendre le fondamental de la base pour simplement rajouter un champ !
j'ai des tables Référence_auto, santé, habitation, commerce et Libre. et dans chaque table le champ "date_échéance" que je cherche à afficher sur le fameux formulaire échéancier.

dois je faire comme ceci ? (désolé de t'embeter avec ca !!!)

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Bouton178_Click ()
SELECT me.Référence_auto
 
Case "Référence_auto":
Me.Date_echeance = DLookup("date_échéance", "Référence_auto", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
SELECT me.Référence_santé
 
Case "Référence_santé":
Me.Date_echeance = DLookup("date_échéance", "Référence_santé", "[Numéro_police] = '" & Me.Numéro_police & "'")

[micniv]

Donc tu as 5 tables ou aller chercher cette fameuse date.
Je suppose que tu connais la table du contrat en_cours, supposons que le nom de cette table soit dans Nomtable.
Alors tu peux faire :

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
 
SELECT CASE me.Nomtable
 
Case "Référence_auto":
Me.Date_echeance = DLookup("date_échéance", "Référence_auto", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_santé":
Me.Date_echeance = DLookup("date_échéance", "Référence_santé", "[Numéro_police] = '" & Me.Numéro_police & "'") 
 
CASE  "Référence_habitation":
Me.Date_echeance =...
 
CASE  "Référence_commerce":
Me.Date_echeance =...
 
CASE  "Référence_Libre":
Me.Date_echeance =...
 
END SELECT

Regarde l'aide de SELECT CASE par F1

[wadoux]

ok merci j'essaie demain et te tient bien sur au courant. merci encore de ta patience
jean pierre

[wadoux]

donc voici ce que j'ai fait sur clic d'un bouton :

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
Sub Bouton178_Click ()
SELECT CASE me.Paiement
 
Case "Référence_auto":
Me.Date_echeance = DLookup("date_échéance", "Référence_auto", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_santé":
Me.Date_echeance = DLookup("date_échéance", "Référence_santé", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_commerce":
Me.Date_echeance = DLookup("date_échéance", "Référence_commerce", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_libre":
Me.Date_echeance = DLookup("date_échéance", "Référence_libre", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_habitation":
Me.Date_echeance = DLookup("date_échéance", "Référence_habitation", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
...
 
End Select

ET DANS le champ indépendant dans "source controle" j'ai mis :

Code :

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

=RechDom("[Cate_echéancier]";"Paiement")

et ca ne marche pas !!
jp

[micniv]

ET DANS le champ indépendant ([Date_echeance]) dans "source controle" , surtout tu ne mets RIEN

car c'est la procédure Bouton178_Click qui l'alimente :
. d'abord quand tu presses le bouton ... et tu vérifies que ça marche
. ensuite en le déclenchant depuis form_current (Sur activation)

Code :

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

1
2
3
4
5
Private sub form_current()
...
Bouton178_Click
...
end sub

A+

[wadoux]

ET DANS le champ indépendant ([Date_echeance]) dans "source controle" , surtout tu ne mets RIEN

car c'est la procédure Bouton178_Click qui l'alimente :
. d'abord quand tu presses le bouton ... et tu vérifies que ça marche
. ensuite en le déclenchant depuis form_current (Sur activation)

Code :

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

1
2
3
4
5
Private sub form_current()
...
Bouton178_Click
...
end sub

A+

je suis null : tu me dis :

ET DANS le champ indépendant ([Date_echeance]) dans "source controle" , surtout tu ne mets RIEN
(je ne comprend pas !)

le bouton est ok, mais je comprend pas le champ indépendant, il faut bien faire un champ "zone de texte", comment relier le bouton 178 à ce champs si aucune "source de controle" !!

[micniv]

Un controle est indépendant justement parce qu'il n'est lié à aucune source de données.
Alors comment afficher une valeur dans un controle indépendant ?
. tu pourrais la saisir à la mano ; mais ce n'est le but ici
. soit l'alimenter par un petit programme : or ce programme tu l'as déjà écrit : c'est Bouton178_Click (le programme qui est derrière le clic du boton) ; or tu peux appeler ce code d'où tu veux dans le code : ainsi, dans les propriétés du formulaire, dans le code de l'évènement "Sur activation" :

Code :

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

1
2
3
4
5
6
 
Private sub form_current()
...
Bouton178_Click
...
end sub

Comprends-tu ? et surtout essaies ...

[wadoux]

Un controle est indépendant justement parce qu'il n'est lié à aucune source de données.
Alors comment afficher une valeur dans un controle indépendant ?
. tu pourrais la saisir à la mano ; mais ce n'est le but ici
. soit l'alimenter par un petit programme : or ce programme tu l'as déjà écrit : c'est Bouton178_Click (le programme qui est derrière le clic du boton) ; or tu peux appeler ce code d'où tu veux dans le code : ainsi, dans les propriétés du formulaire, dans le code de l'évènement "Sur activation" :

Code :

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

1
2
3
4
5
6
 
Private sub form_current()
...
Bouton178_Click
...
end sub

Comprends-tu ? et surtout essaies ...

désolé mais ca ne fonctionne pas avec cette procédure, mais je pense à une chose plus simple (car déjà présent sur le formulaire actuel) : sur le formulaire "Sfr_Ech" ne serait il pas possible en fonction de la date d'échéance qui est représenté par deux champs (1 mois et 1 champ année) en cours, de mettre le champ "mois" en une autre couleur ? si c'est le mois de l'échéance principale du contrat affiché, bien sur ? sur activation du formulaire (donc à l'ouverture) en sachant qu'à l'ouverture j'ai déjà sur ce formulaire d'autre activation (bug possible ?)
amicalement
jean pierre

[micniv]

Peux-tu nous faire un extrait de ta base avec les données nécessaires au contexte et le mettre en PJ ?
A+

[wadoux]

Peux-tu nous faire un extrait de ta base avec les données nécessaires au contexte et le mettre en PJ ?
A+

[wadoux]

Peux-tu nous faire un extrait de ta base avec les données nécessaires au contexte et le mettre en PJ ?
A+

excuse avec cette copie d'écran tu comprendras mieux surement.
cela représente le formulaire SfrEch avec comme client : moi même sur une Campagnie "april) avec des échéances mensuel sur l'année 2009. ce contrat a pris effet (date échéance) le 1er janvier 2003 donc à chaque échéance de janvier, la prime change et c'est à ce moment la que je voudrais que le champ "mois" change de couleur dans le formulaire. (01-2009) dans le cas présent. tout les clients que j'ai on une date d'échéance principale différente par contrat d'ou la complication.
jp

[micniv]

Pour alimenter les champs MoisEch et AnneeECH ,
il suffit de modifier le programme en

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
 
Sub Bouton178_Click ()
dim maDate as date
SELECT CASE me.Paiement
 
Case "Référence_auto":
maDate = DLookup("date_échéance", "Référence_auto", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_santé":
maDate  = DLookup("date_échéance", "Référence_santé", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_commerce":
maDate  = DLookup("date_échéance", "Référence_commerce", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_libre":
maDate  = DLookup("date_échéance", "Référence_libre", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_habitation":
maDate  = DLookup("date_échéance", "Référence_habitation", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
...
End Select
 
me.MoisEch =month(madate)
me.AnneeEch =year(madate)
 
end sub

Ceci suppose que tes champs MoisEch et AnneeEch sont des numériques sinon tu fais les conversions ad hoc.

Pour colorer les lignes dont le mois d'échéance est = ou > mois de départ, je te suggère d'utiliser le format conditionnel sur ce champ.

Bonne continuation

[wadoux]

Pour alimenter les champs MoisEch et AnneeECH ,
il suffit de modifier le programme en

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
 
Sub Bouton178_Click ()
dim maDate as date
SELECT CASE me.Paiement
 
Case "Référence_auto":
maDate = DLookup("date_échéance", "Référence_auto", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_santé":
maDate  = DLookup("date_échéance", "Référence_santé", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_commerce":
maDate  = DLookup("date_échéance", "Référence_commerce", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_libre":
maDate  = DLookup("date_échéance", "Référence_libre", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
Case "Référence_habitation":
maDate  = DLookup("date_échéance", "Référence_habitation", "[Numéro_police] = '" & Me.Numéro_police & "'")
 
...
End Select
 
me.MoisEch =month(madate)
me.AnneeEch =year(madate)
 
end sub

Ceci suppose que tes champs MoisEch et AnneeEch sont des numériques sinon tu fais les conversions ad hoc.

Pour colorer les lignes dont le mois d'échéance est = ou > mois de départ, je te suggère d'utiliser le format conditionnel sur ce champ.

Bonne continuation

merci je teste.
jp