Contrôle sur une date

Version imprimable

Voir 40 message(s) de cette discussion en une page

est ce que comme ca c'est juste :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
f Val(Dates.Value) = Val(Date.Today) Then
            command.Parameters.Add(New OleDbParameter("@dates", OleDbType.Date))
            'command.Parameters("@dates").IsNullable = True
            command.Parameters("@dates").Value = DBNull.Value
        ElseIf Val(Dates.Value) > Val(Datef.Text) Then
            command.Parameters.Add(New OleDbParameter("@dates", OleDbType.Date))
            MsgBox("La date de signature de l'abonnement doit être inférieure à la date fin")
            Exit Sub
            'End If
        Else
            command.Parameters("@dates").Value = CType(Dates.Text, Date)
        End If

06/06/2007, 08h07
SaumonAgile

Il faut que tu crées ton paramètre dans tout les cas, tu n'as qu'à le créer avant de faire tous tes tests. Tu affectes la valeur ensuite en fonction de tes tests.

Est ce que de cette façon c'est juste :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
If Val(Dates.Value) = Val(Date.Today) Then
            command.Parameters.Add(New OleDbParameter("@dates", OleDbType.Date))
            'command.Parameters("@dates").IsNullable = True
            command.Parameters("@dates").Value = DBNull.Value
        ElseIf Val(Dates.Value) > Val(Datef.Text) Then
            command.Parameters.Add(New OleDbParameter("@dates", OleDbType.Date))
            MsgBox("La date de signature de l'abonnement doit être inférieure à la date fin")
            Exit Sub
            'End If
        Else
            command.Parameters("@dates").Value = CType(Dates.Text, Date)
        End If

06/06/2007, 09h06
loverdev

J'ai testé avec ce code et ça marche!!! Merci beaucoup pour votre aide saumonagile:yaisse2: :king:

Voir 40 message(s) de cette discussion en une page