[A-07]: ajouter une valeur à une Date

**amazon** · 02/03/2009, 16h55

Bonjour

Quelle est la méthode la plus sure pour ajouter un nombre de jours à une date?

01/03/2009 + 28

Merci

**Pierre Fauconnier** · 02/03/2009, 16h57

Bonjour

Faire comme tu le proposes. Les dates sont des valeurs numériques ayant le jour comme unité. Dès lors, une date + 18 ajoute te fait avancer de 18 jours.

**amazon** · 02/03/2009, 17h19

Merci

Mais j'ai une erreur 13 "Type donnée incompatible" quand l'application est utilisée sur certain PC mais pas tous

**Pierre Fauconnier** · 02/03/2009, 17h29

Il faudrait montrer le code utilisé, et s'assurer du type de la variable ou du champ utilisé

**amazon** · 02/03/2009, 17h34

Ci joint le code

C'est sur la ligne " !WorkDueDate = Me.EVDate + Me.WorkPeriod" qui a un problème.

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
 
Dim TechnicalData As DataBase
Dim rst As Recordset
Set TechnicalData = CurrentDb
Set rst = TechnicalData.OpenRecordset("TWork")
    With rst
        .AddNew
        !WorkDescription = Me.WorkDescription
        !WorkDueDate = Me.EVDate + Me.WorkPeriod
        !WorkEqID = Me.ListEq
        !WorkCreatorID = Me.WorkCreatorID
        !WorkRespID = Me.CbTec
        !WorkStatus = 10
        !WorkRecurrent = Me.WorkRecurrent
        !WorkPeriod = Me.WorkPeriod
        !WorkCreationDate = Format$(Now, "dd/mm/yy")
        .Update
    End With
    rst.Close

Avec Me.EVDate qui a un format Date et Me.WorkPeriod qui a un format Nombre

**Pierre Fauconnier** · 02/03/2009, 17h49

Et !WorkDueDate, quel est son type?

Si la réponse est Date, il faut vérifier les valeurs qui sont passées.

Dans le cas qui plante, quelles sont les valeurs des variables?

**User** · 02/03/2009, 19h46

Salut,

peut-être avec:

Code :

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

1
2
3
...
!WorkDueDate = CDate(Me.EVDate) + Me.WorkPeriod
...

A+

**amazon** · 03/03/2009, 15h55

Bonjour

WorkDueDate est aussi en format Date/Time

Le problème se pose quand l'application fonctionne avec Access RunTime

Est-ce qu'il n'y aurai pas un problème de référence à un Library?

Invité · 03/03/2009, 16h22

Bonjour

Plutôt que faire l'addition, regardes du coté de la fonction DateAdd, plus de détails dans cet article : Les Fonctions Date/Heure

Philippe

[A-07]: ajouter une valeur à une Date

VBA Access

Discussions similaires

Partager

Partager