Bonjour,
Dans la formule suivante je n'arrive pas =E0 faire=20
fonctionner le 'Else'
If ((DateDiff("d", Me.DATE_PERMISTRAVAIL, DATE)) >=3D 60)=20
Then
Me.Attention =3D "!!!! @Le permis de travail de ce candidat=20
n'est plus valable depuis " & DateDiff("d", DATE,=20
Me.DATE_PERMISTRAVAIL) & " jours@ !!!!"
Else
If ((DateDiff("d", Me.DATE_PERMISTRAVAIL, DATE)) >=3D -60)=20
Then
Me.Attention =3D "!!!! Le permis de travail de ce candidat=20
est encore valable " & DateDiff("d", DATE,=20
Me.DATE_PERMISTRAVAIL) & " jours !!!!"
End If
End If
Si la date n'est pas pass=E9e le r=E9sultat est juste, mais si=20
la date est pass=E9e j'ai le r=E9sultat suivant:
"!!!! Le permis de travail de ce candidat est encore=20
valable -12 jours !!!!"
J'aimerai:
"!!!! @Le permis de travail de ce candidat n'est plus=20
valable depuis 12 jours@ !!!!"
Comment faire faire la comparaison =E0 ces deux situation?
Merci pour votre aide.
Luis
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour Luis,
Avec ce code, ca ne répondrait pas à ton besoin ? (à vérifier pour les bornes)
Private Sub Form_Current() If DateDiff("d", Me.Date_PermisTravail, Date) >= 60 Then Me.Attention = "!!!! @Le permis de travail de ce candidat n 'est plus valable depuis " & DateDiff("d", Me.Date_PermisTravail, Date) - 60 & " jours@ !!!!" Else Me.Attention = "!!!! @Le permis de travail de ce candidat est encore valable pour " & _ 60 - DateDiff("d", Me.Date_PermisTravail, Date) & " jours@ !!!!" End If End Sub
A+ Eric
PS : Amélioration possible pour l'accord sur 'jour'
"Luis" écrivait news:35a801c4c356 $4a1265e0$:
Bonjour, Dans la formule suivante je n'arrive pas à faire fonctionner le 'Else'
If ((DateDiff("d", Me.DATE_PERMISTRAVAIL, DATE)) >= 60) Then Me.Attention = "!!!! @Le permis de travail de ce candidat n'est plus valable depuis " & DateDiff("d", DATE, Me.DATE_PERMISTRAVAIL) & " jours@ !!!!" Else If ((DateDiff("d", Me.DATE_PERMISTRAVAIL, DATE)) >= -60) Then Me.Attention = "!!!! Le permis de travail de ce candidat est encore valable " & DateDiff("d", DATE, Me.DATE_PERMISTRAVAIL) & " jours !!!!"
End If End If
Si la date n'est pas passée le résultat est juste, mais si la date est passée j'ai le résultat suivant: "!!!! Le permis de travail de ce candidat est encore valable -12 jours !!!!"
J'aimerai:
"!!!! @Le permis de travail de ce candidat n'est plus valable depuis 12 jours@ !!!!"
Comment faire faire la comparaison à ces deux situation? Merci pour votre aide. Luis
Bonjour Luis,
Avec ce code, ca ne répondrait pas à ton besoin ? (à vérifier pour les
bornes)
Private Sub Form_Current()
If DateDiff("d", Me.Date_PermisTravail, Date) >= 60 Then
Me.Attention = "!!!! @Le permis de travail de ce candidat n 'est plus
valable depuis " & DateDiff("d", Me.Date_PermisTravail, Date) - 60 & "
jours@ !!!!"
Else
Me.Attention = "!!!! @Le permis de travail de ce candidat est encore
valable pour " & _
60 - DateDiff("d", Me.Date_PermisTravail, Date) & " jours@ !!!!"
End If
End Sub
A+
Eric
PS : Amélioration possible pour l'accord sur 'jour'
Bonjour,
Dans la formule suivante je n'arrive pas à faire
fonctionner le 'Else'
If ((DateDiff("d", Me.DATE_PERMISTRAVAIL, DATE)) >= 60)
Then
Me.Attention = "!!!! @Le permis de travail de ce candidat
n'est plus valable depuis " & DateDiff("d", DATE,
Me.DATE_PERMISTRAVAIL) & " jours@ !!!!"
Else
If ((DateDiff("d", Me.DATE_PERMISTRAVAIL, DATE)) >= -60)
Then
Me.Attention = "!!!! Le permis de travail de ce candidat
est encore valable " & DateDiff("d", DATE,
Me.DATE_PERMISTRAVAIL) & " jours !!!!"
End If
End If
Si la date n'est pas passée le résultat est juste, mais si
la date est passée j'ai le résultat suivant:
"!!!! Le permis de travail de ce candidat est encore
valable -12 jours !!!!"
J'aimerai:
"!!!! @Le permis de travail de ce candidat n'est plus
valable depuis 12 jours@ !!!!"
Comment faire faire la comparaison à ces deux situation?
Merci pour votre aide.
Luis
Avec ce code, ca ne répondrait pas à ton besoin ? (à vérifier pour les bornes)
Private Sub Form_Current() If DateDiff("d", Me.Date_PermisTravail, Date) >= 60 Then Me.Attention = "!!!! @Le permis de travail de ce candidat n 'est plus valable depuis " & DateDiff("d", Me.Date_PermisTravail, Date) - 60 & " jours@ !!!!" Else Me.Attention = "!!!! @Le permis de travail de ce candidat est encore valable pour " & _ 60 - DateDiff("d", Me.Date_PermisTravail, Date) & " jours@ !!!!" End If End Sub
A+ Eric
PS : Amélioration possible pour l'accord sur 'jour'
"Luis" écrivait news:35a801c4c356 $4a1265e0$:
Bonjour, Dans la formule suivante je n'arrive pas à faire fonctionner le 'Else'
If ((DateDiff("d", Me.DATE_PERMISTRAVAIL, DATE)) >= 60) Then Me.Attention = "!!!! @Le permis de travail de ce candidat n'est plus valable depuis " & DateDiff("d", DATE, Me.DATE_PERMISTRAVAIL) & " jours@ !!!!" Else If ((DateDiff("d", Me.DATE_PERMISTRAVAIL, DATE)) >= -60) Then Me.Attention = "!!!! Le permis de travail de ce candidat est encore valable " & DateDiff("d", DATE, Me.DATE_PERMISTRAVAIL) & " jours !!!!"
End If End If
Si la date n'est pas passée le résultat est juste, mais si la date est passée j'ai le résultat suivant: "!!!! Le permis de travail de ce candidat est encore valable -12 jours !!!!"
J'aimerai:
"!!!! @Le permis de travail de ce candidat n'est plus valable depuis 12 jours@ !!!!"
Comment faire faire la comparaison à ces deux situation? Merci pour votre aide. Luis
