Discussion :

[Caddoux]

Je suis en train de créer une base de gestion de projet, dans laquelle il y une partie de planification assez simple. Cette planif se fera par un formulaire Graph croisé dynamique en barres.
Dans le formulaire où je renseigne les dates j'ai ceci:
10 actions avec chacune une date de début et une date de fin.
Pour le calcul des durées, je soustrait la date de fin à la date de début. En ce qui concerne la période entre 2 actions, je soustrait la date début de l'action2 à la fin de l'action1. Le problème est que toutes les actions ne sont pas obligatoires... il arrive dons que je soustraie une date (vide) à une date remplie ce qui me donne un résultat négatif et fausse le planning...
Je recherche un moyen pour automatiser le pré-remplissage des champs de la manière suivante:
Si un cahmp est vide, il prend la valeur du champ précédent.
J'ai essayé avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ChampB_AfterUpdate ()
 
If Me.ChampB.Value <> 0 Then
   'Pose la condition lorsque B à une valeur différente de 0'
          Me.ChampC = Me.ChampB.Value 
   'C prend la valeur de B si B existe'
Else
          Me.ChampC = Me.ChampA.Value 
   'C prend la valeur de A si B est nul'
End if
End Sub

mais c'est pas concluant pour ce que je souhaite.

Merci

[francishop]

Bonsoir,

je soustrait la date de fin à la date de début.... il arrive dons que je soustraie une date (vide) à une date remplie ce qui me donne un résultat négatif et fausse le planning...

Code :

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

If Me.ChampB.Value <> 0 Then

mais c'est pas concluant pour ce que je souhaite.

A première vue il y a de l'incohérence : Il est évoqué des champs date et on se référe à 0.(Si c'est du texte, pour les calculs....)
Null ou " " serait plus approprié.

La fonction NZ peut peut-être être appliquée quelque part..A voir.

Cordialement.

Ps : Il m'arrive de bégayer (peut peut...)