Echéance fin de mois

**cslbcg** · 16/12/2009, 22h19

Bonsoir,

Dans mon formulaire de facturation, j'ai une date d'échéance qui se met à jour en fonction des conditions de règlement propres au client.

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
Private Sub Echéance_Click()
    If Nz(Me.Cond_règlt, 0) = "02" Then
    Me.Echéance = Me.date_facture + 31
        ElseIf Nz(Me.Cond_règlt, 0) = "041" Then
        Me.Echéance = Me.date_facture + 31
            ElseIf Nz(Me.Cond_règlt, 0) = "CO" Then
            Me.Echéance = Me.date_facture
                ElseIf Nz(Me.Cond_règlt, 0) = "03" Then
                Me.Echéance = Me.date_facture
                    ElseIf Nz(Me.Cond_règlt, 0) = "04" Then
                    Me.Echéance = Me.date_facture
                        ElseIf Nz(Me.Cond_règlt, 0) = "021" Then
                        Me.Echéance = Me.date_facture + 31
End If
End Sub

Quand [Cond_règlt]="021", je voudrais que ma date d'échéance soit la fin du mois suivant mais je ne sais pas comment faire

J'ai essayé d'appliquer la méthode de Maxence HUBICHE dans cette FAQ http://access.developpez.com/faq/?page=dates#LastDay
mais je n'arrive à rien.

En fait,

j'ai créé un module dans lequel j'ai mis la fonction LastDayOfMonth,

et ensuite,

j'ai essayé de renvoyer à cette valeur dans mon code : Me.Echéance = LastDayOfMonth

Mais ça ne fonctionne pas

Comment puis-je faire ?

Et puis comment faire pour que l'échéance s'affiche spontanément et pas seulement quand on clique dans le champ ?

Merci encore pour votre aide précieuse

A +

Catherine

**argyronet** · 16/12/2009, 23h16

Bonjour,

1/ Utiliser un Select Case pour des conditions multiples est préférable et plus souple.

Voici un code simplifié :

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
Private Sub Echéance_Click()
    Select Case Nz(Me.Cond_règlt, 0)
        Case "02", "021", "041"
            Me.Echéance = DateEchéance(Me.date_facture, False)
        Case "CO", "03", "04"
            Me.Echéance = DateEchéance(Me.date_facture, True)
        Case Else
            Me.Echéance = Me.date_facture
    End Select
End Sub
 
Private Function DateEchéance(ByVal DateRef As Date, ByVal BillDate As Boolean) As Date
Dim intYear                   As Integer
Dim intMonth                  As Integer
Dim intDay                    As Integer
    intYear = IIf(Month(DateRef) = 12, Year(DateRef) + 1, Year(DateRef))
    intMonth = IIf(Month(DateRef) = 12, 1, Month(DateRef) + 1)
    intDay = IIf(Month(DateRef) = 12, 31, Day(DateSerial(Year(DateRef), Month(DateRef) + 2, 1) - 1))
    If BillDate Then
        DateEchéance = DateRef
    Else
        DateEchéance = CDate(DateSerial(intYear, intMonth, intDay))
    End If
End Function

J'ai, par doute, mis "02", "021", "041" ensemble car ce n'était pas très limpide de comprendre si tu voulais la date du mois suivant pour le "021" ou pour tous ceux où tu as spécifié +31. En cas d'incohérence avec cette condition, on peut adapter la fonction.

La fonction DateEchéance() est appelée avec la valeur de la date de facture et l'argument True ou False selon que l'on veut affecter la date de facture ou bien la date du dernier jour du mois suivant.

2/ Pour l'afficher en permanence, il est préférable d'exploiter la valeur de l'échéance sur l'événement Current() :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Current()
    Select Case Nz(Me.Cond_règlt, 0)
        Case "02", "021", "041"
            Me.Echéance = DateEchéance(Me.date_facture, False)
        Case "CO", "03", "04"
            Me.Echéance = DateEchéance(Me.date_facture, True)
        Case Else
            Me.Echéance = Me.date_facture
    End Select
End Sub

Espérant t'avoir aidé...

Argy

**cslbcg** · 16/12/2009, 23h44

Envoyé par argyronet

Bonjour,

1/ Utiliser un Select Case pour des conditions multiples est préférable et plus souple.

Voici un code simplifié :

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
Private Sub Echéance_Click()
    Select Case Nz(Me.Cond_règlt, 0)
        Case "02", "021", "041"
            Me.Echéance = DateEchéance(Me.date_facture, False)
        Case "CO", "03", "04"
            Me.Echéance = DateEchéance(Me.date_facture, True)
        Case Else
            Me.Echéance = Me.date_facture
    End Select
End Sub
 
Private Function DateEchéance(ByVal DateRef As Date, ByVal BillDate As Boolean) As Date
Dim intYear                   As Integer
Dim intMonth                  As Integer
Dim intDay                    As Integer
    intYear = IIf(Month(DateRef) = 12, Year(DateRef) + 1, Year(DateRef))
    intMonth = IIf(Month(DateRef) = 12, 1, Month(DateRef) + 1)
    intDay = IIf(Month(DateRef) = 12, 31, Day(DateSerial(Year(DateRef), Month(DateRef) + 2, 1) - 1))
    If BillDate Then
        DateEchéance = DateRef
    Else
        DateEchéance = CDate(DateSerial(intYear, intMonth, intDay))
    End If
End Function

J'ai, par doute, mis "02", "021", "041" ensemble car ce n'était pas très limpide de comprendre si tu voulais la date du mois suivant pour le "021" ou pour tous ceux où tu as spécifié +31. En cas d'incohérence avec cette condition, on peut adapter la fonction.

La fonction DateEchéance() est appelée avec la valeur de la date de facture et l'argument True ou False selon que l'on veut affecter la date de facture ou bien la date du dernier jour du mois suivant.

C'est bien ce qu'il me fallait mais il n'y a que pour "021" que je veux du "fin de mois", le reste est à 30 jours de la date de facture.
C'est vrai, ce n'était pas clair dans ma présentation

Comment puis-je aménager la fonction ?

2/ Pour l'afficher en permanence, il est préférable d'exploiter la valeur de l'échéance sur l'événement Current() :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Current()
    Select Case Nz(Me.Cond_règlt, 0)
        Case "02", "021", "041"
            Me.Echéance = DateEchéance(Me.date_facture, False)
        Case "CO", "03", "04"
            Me.Echéance = DateEchéance(Me.date_facture, True)
        Case Else
            Me.Echéance = Me.date_facture
    End Select
End Sub

Là, par contre, ça ne fonctionne pas ; j'ai sans doute zappé quelque chose !

Est-ce que le

Code :

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

Private Sub Form_Current()

doit remplacer le

Code :

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

Private Sub Echéance_Click()

ou être mis en plus ?
Et à quel endroit, dans un module distinct ?

Espérant t'avoir aidé...

Argy

Oh oui, alors

Merci encore

Catherine

**cslbcg** · 18/12/2009, 12h34

Bonjour à tous !

J'ai finalement modifié le code comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Echéance_GotFocus()
    Select Case Nz(Me.Cond_règlt, 0)
        Case "021", "041"
            Me.Echéance = DateEchéance(Me.date_facture, False)
        Case "CO", "03", "04"
            Me.Echéance = DateEchéance(Me.date_facture, True)
        Case "02"
            Me.Echéance = Me.date_facture + 31
    End Select
End Sub

Et ça marche comme je le voulais

Merci de votre aide

Catherine

Echéance fin de mois [AC-2007]

IHM

Discussions similaires

Partager

Partager