Discussion :

[mohamed_75]

Bonjour,
J'ai un champ où l'utilisateur est censé saisir une date au format AAAAMMJJ . J'avais utilisé la fonction isDate pour faire le controle mais cela ne fonctionne pas.
Est ce que vous auriez une solution ?
Merci par avance

[Invité]

Bonjour

Peut-être un problème sur l'utilisation de la fonction IsDate, ce serait bien que tu mettes le code.

Sinon, ton champ est-il indépendant ou lié à une table ?

Philippe

[mohamed_75]

trés bien, voici le code.

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
Private Sub A_DER_C_L13_DELIV_DATE_Exit(Cancel As Integer)
    If Me.A_DER_C_L13_DELIV_DATE <> "" Then
        If Len(Me.A_DER_C_L13_DELIV_DATE) <> 8 Then
            Call F_UTL_MESSAGE("W046", 1)
            Me.A_DER_C_L13_DELIV_DATE = ""
        Else
            If Not IsDate(Me.A_DER_C_L13_DELIV_DATE) Then
 
            Call F_UTL_MESSAGE("W046", 1)
            Me.A_DER_C_L13_DELIV_DATE = ""
            End If
 
        End If
        End If
    End Sub

[mohamed_75]

Et effectivement, le champ est lié à une table.