probleme avec une valeur null sur une date

Version imprimable

Bonjour je rencontre actuellement un problème avec mon code VBA, pour résumer la situation je commence a utilisé le VBA je suis novice dans ce domaine, j'aurais besoin donc de vous pour pouvoir m'aider à régler mon petit problème.
Le problème que je rencontre, est que quand un utilisateur ne rentre pas de donnée dans la cellule occurrence je voudrais que celui-ci ignore la donnée.

voici le code en question

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Form_DblClick(Cancel As Integer)
 
        Dim i_jour As Integer
 
        Dim i_mois As Integer
 
        Dim i_annee  As Integer
 
        Dim s_date As String
 
 
            If mois_jour_annee = 1 Then
               libelle_date = DateAdd("yyyy", periode, Date)
            End If
 
            If mois_jour_annee = 2 Then
               libelle_date = DateAdd("m", periode, Date)
            End If
 
            If mois_jour_annee = 3 Then
               libelle_date = DateAdd("d", periode, Date)
            End If
 
            i_mois = DatePart("m", libelle_date)
            i_annee = DatePart("yyyy", libelle_date)
            i_jour = occurrence
 
                If IsNull(occurrence) Then
                  i_jour = 0
                Else
                  i_jour = occurrence
                End If
 
            s_date = CStr(i_jour) & "/" & CStr(i_mois) & "/" & CStr(i_annee)
            libelle_date = CDate(s_date)
 
End Sub

Je ferai un peu plus direct :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
            select case me.mois_jour_annee
               case 1
                  me.libelle_date = DateAdd("yyyy", me.periode, Date)
 
               case 2
                  me.libelle_date = DateAdd("m", me.periode, Date)
 
               case 3
                  me.libelle_date = DateAdd("d", me.periode, Date)
 
               case else
                   Error 5 'Juste pour attraper les cas oubliés.
             end select
 
             If IsNull(me.occurrence) Then
                 me.libelle_date=Null
             Else
                 me.libelle_date=DateSerial(year(me.libelle_date),month(me.libelle_date), me.occurence)
             End If

Le me. refère au formulaire courant. Ce n'est pas indispensable mais cela aide l'humain qui lit le code à savoir qu'on se réfère au formulaire en cours et pas à une variable globale.

A+

05/05/2012, 19h00
mc.schmer

Salut kynder,
Action sur la touche F1 et regarde du coté de la fonction Nz.

Bon courage
07/05/2012, 17h28
marot_r

Attention avec NZ() elle fait parfois sauter les décimales des nombres, iif(isNull();;) est plus sur.

A+