Code bon, mais pas bon..

Version imprimable

Bonjour,

j'ai ecrit un petit code, pour copier dans un champ la date la plus importante, entre deux champs date.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Form_Load() Dim dateEcart As Long Dim date1 As Date Dim date2 As Date date1 = Nz([D_Maint_HD], "10/12/1980") date2 = Nz([D_Maint_HDES], "10/12/1980") dateEcart = DateDiff("m", date2, date1) If dateEcart >= 0 Then msgBox dateEcart Me.[Fin_abonnement].Value = Me.[D_Maint_HD] Else Me.[Fin_abonnement].Value = Me.[D_Maint_HDES] End If End Sub
Il m'affiche bien untexte box, avec une valeur positive...
sauf que il s'arrete là... il ne veut pas donner la valeur de [D_maint_HD] au champ [fin_abonnement]

par contre si je fais un bouton avec:

Code:

Me.Fin_abonnement = Me.[D_Maint_HD]

là ça marche...

donc par A+B = je ne comprend pas !! :(

Si quelqu'un voit l'erreur... moi je la voit pas... ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Form_Load()
Dim dateEcart As Long
Dim date1 As Date
Dim date2 As Date
 
date1 = Nz([D_Maint_HD], "10/12/1980")
date2 = Nz([D_Maint_HDES], "10/12/1980")
dateEcart = DateDiff("m", date2, date1)
If dateEcart >= 0 Then
msgBox dateEcart
    Me.Fin_abonnement = Me.[D_Maint_HD]
Else
    Me.Fin_abonnement = Me.[D_Maint_HDES]
End If
End Sub

Est ce que ça marche?

Alex

23/05/2007, 09h24
Frenchguy

non

non...

Par contre, si je met une date2 > a date 1 (par superieure, j'entend plus recente dans le temps)

et ben là il me colle cette date2 dans mon champ indépendant...
et je trouve pas la logique dans cela...

Où mon code lui dit-il de faire cela!!??
bon... apparement, ça marche mieux pour si j'inverse date2 et date1...

normal.. date2 est souvent vide...
en fait c'est mon Nz qui marche pas...
car si la date 2 est vide ça ne marche pas...

pourquoi mon Nz n'est-il pas fonctionnel???
ça vient du type de champ!??
une idée??

Citation:
Envoyé par alexandrebergercyr
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Form_Load() Dim dateEcart As Long Dim date1 As Date Dim date2 As Date date1 = Nz([D_Maint_HD], "10/12/1980") date2 = Nz([D_Maint_HDES], "10/12/1980") dateEcart = DateDiff("m", date2, date1) If dateEcart >= 0 Then msgBox dateEcart Me.Fin_abonnement = Me.[D_Maint_HD] Else Me.Fin_abonnement = Me.[D_Maint_HDES] End If End Sub
Est ce que ça marche?

Alex
A mon avis, il y a déjà un pépin avec DateDiff qui doit recevoir des arguments de type Variant (Date) et pas des string or le second argument de ta fonction Nz renvoit un string.

Il faudrait peut-être utiliser cdate("10/12/1980") comme argument dans Nz.

25/05/2007, 09h11
Janny

Salut

Date1 et Date2 sont identiques, il n'y a donc pas de différence et donc le programme ne rentre pas dans le if, c'est normal, non?

Prise 2

Test ceci je suis pas mal certain que ça marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim dateEcart As Long
Dim date1 As Date
Dim date2 As Date
 
date1 = Nz("10/12/1980", "10/12/1980")
date2 = Nz(Null, "10/12/1980")
dateEcart = DateDiff("m", date2, date1)
If dateEcart >= 0 Then
MsgBox dateEcart
    D_Maint_HD.SetFocus
    Me.[Fin_abonnement].Value = D_Maint_HD.Text
Else
    D_Maint_HDES.SetFocus
    Me.[Fin_abonnement].Value = D_Maint_HDES.Text
End If

Alexxx