Option Compare Database

Public Function SetExpired()
If (Date > #12/31/2017#) Then
    MsgBox "Cette version a expiré." & vbCrLf & vbCrLf & _
      "Veuillez contacter GEIGROUPE au +222 31 00 11 31" & vbCrLf & _
      "pour commander votre license.", vbCritical + vbOKOnly, "Cette version a expiré."
      DoCmd.Quit
End If
End Function

Public Function Expired()
If (Date > #12/31/2017#) Then
    msg = "EVALUATION EXPIREE, CONTACTEZ GEIGROUPE AU +222 31 00 11 31 POUR OBTENIR LA LICENSE.geigroupe@geigroupe.com"
    Style = vbOKCancel + vbCritical
    Title = "Version d'évaluation expirée"
    myErr = MsgBox(msg, Style, Title)
    If myErr = vbOK Then
        Application.Quit
        Exit Function
    End If
    If myErr = vbCancel Then
    Dim strpassword As String
    Dim counter As Integer
    Dim remaining As Integer
        counter = 0
        Do Until counter = 3
        strpassword = InputBox("Veuillez saisir votre license", "Licence REQUISE")
        If strpassword = "Cet&teVers1on@3xpirée$" Then
            'open login form
            Exit Function
        Else
           counter = counter + 1
           resmaining = 3 - counter
           MsgBox "LICENSE INCORRECTE" & vbCrLf & _
                   "SAISISSEZ UNE LICENSE " & remaining & " CORRECT!", _
                   vbOKOnly, "Password Info"
        End If
        Loop
        Application.Quit
        Exit Function
    End If
End If

        
           
    
End Function

==========================================
Utiliser la command ci-dessous dans le formulaire principal
Call Expired