Discussion :

[cosim]

Bnjour chers tous
je suis a la recherche de votre support pour m'aider a donner des couleurs a un champs "echeance" tant que les informations sont critiques qui va alerter l'utilisateur depuis le formulaire ci joint la capture:

[User]

Bonjour,

Si vous avez par exemple un champ "DateEcheance", alors il suffit de lui appliquer la mise en forme conditionnelle avec une expression comme :

Code :

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

([DateEcheance]-Date()) Entre 1 Et 7

Cette expression indique de mettre le champ DateEcheance en rouge par exemple, si on est à entre 1 et 7 jours de la date d'échéance :

[cosim]

Merci beaucoup
en plus parexemple imaginons que nous avons
Date_paiement qui est renseigne chaque mois
le paiement est accorde au modalite c'est a dire (si ref_mod=1 alors montant=10000)
je souhaitais egalement par vba implementé cette possibilite
en sachant la date paiement et les references modalite que l'echeance determiner automatiquement en alertant L'IT de la base un nouveau paiement a venir pour le mois prohain !
ou selon je dois modifier la table avec paiement
avec les :
num_paie
date_paie
ref_mod
lib_paie(mois concernée payé)
et ensuite
echeance?

ou tout ceci sont possible dans les requetes ?

esperant vous relire

[User]

Bonsoir,

C'est un peu flou mais les requêtes seules ne suffiront pas

Vous pouvez par exemple afficher une alerte à chaque ouverture de votre base de données, ou sur ouverture d'un formulaire d'accueil.

J'essaierai quelque chose comme cela avec une table Locations et un formulaire F_Locations :

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
Private Sub Form_Open(Cancel As Integer)
    dim strSQL as string
    dim dbs as DAO.Datbase
    dim rst as DAO.Recordset
 
    strSQL = "select * from Locations where (DateEcheance-Date()) between 1 and 7;" ' filtre les paiements proches de l'échéance
 
    set dbs=currentdb ' référence à la base de données
    set rst = dbs.openrecordset(strSQL,dbopensnapshot) ' ouvre le jeu d'enregistrements correspondant
 
    if not rst.eof then ' si au moins un paiement arrive à échéance       
        MsgBox("Alerte paiement(s) à venir !")
        docmd.Openform "F_Locations" ' ouvre le formulaire contenant les locations/contrats
        forms!F_Locations.RecordSource=strSQL ' met à jour la source du formulaire avec les données filtrées
    end if
 
    rst.close
    set rst=nothing
 
    set dbs= nothing
 
end sub

[cosim]

Bonsoir
un grand merci en attendant votre support j'ai pu bidouiller quelque qui ressemblerait a sa mais l'activation du champs "echeance" n'est pas dynamique
auriez vous une solution pour moi

sinon ci-joint mon code

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
Private Sub echeance_GotFocus()
 
If ref_mod = 1 Then
    dure = Date
    echeance = dure - [date_paie]
    MsgBox " Votre" & " echeance" & " arrive dans " & echeance & " jours "
 
End If
 
If ref_mod = 2 Then
    dure = Date
    echeance = dure - [date_paie]
    MsgBox " Votre" & " echeance " & "arrive dans " & echeance & " jours "
End If
 
If ref_mod = 3 Then
    dure = Date
    echeance = dure - [date_paie]
    MsgBox " Votre" & " echeance" & "arrive dans " & echeance & " jours "
End If
 
 
End Sub

et en pièce jointe la capture que ça donne

[User]

Honnêtement, je pense que vous avez meilleur temps d'utiliser la mise en forme conditionnelle sur votre champ échéance, comme dans le poste d'origine, avec par exemple comme critère pour une alerte pour des échéances dans les 30 prochains jours:

Code :

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

(([[date_paie]-Date()) Entre 1 Et 30) ET (([ref_mod] = 1) Ou ([ref_mod] = 2) Ou ([ref_mod] = 3) )

[cosim]

Oui le code vba sera maintenu dans le formulaire
Et la condition sera mise dans la requête en associant votre formule au champ "echeance"
Merci pour cette échange d'idée. La base une fois finalise je vous partagerais un exemple. Je connais rien mais je souhaiterais vraiment une réelle spécialisation en base. C'est inspirant le développement BASE