- Exemple d'appel depuis un textbox par double-clique avec locked=true et la variable Public Calend
-
- Private Sub Text1_DblClick()
- On Error GoTo ErrDate
- Calend = Text1.Tag
- If Calend = "" Then Calend = Format(Now, "dd/mm/yyyy")
- frmCalendrier.Show vbModal
- If Calend <> "" Then
- Text1.Tag = Calend
- Text1.Text = Format(Calend, "long date")
- End If
- Text1.SelStart = Len(Text1.Text)
- Text1.SelLength = 0
- SortieErrDate:
- On Error GoTo 0
- Exit Sub
-
- ErrDate:
- ' Traitement des erreurs
- Screen.MousePointer = vbDefault
- MsgBox "Une erreur est survenue lors de la modification de la date, veuillez verifier votre système et si cela persiste, veuillez prévenir l'auteur en précisant l'erreur, merci." & vbCrLf & vbCrLf & "Erreur : " & Err & " : " & Error, vbCritical + vbOKOnly, "Erreur dans la date"
- Resume SortieErrDate
- End Sub
-
-
Exemple d'appel depuis un textbox par double-clique avec locked=true et la variable Public Calend
Private Sub Text1_DblClick()
On Error GoTo ErrDate
Calend = Text1.Tag
If Calend = "" Then Calend = Format(Now, "dd/mm/yyyy")
frmCalendrier.Show vbModal
If Calend <> "" Then
Text1.Tag = Calend
Text1.Text = Format(Calend, "long date")
End If
Text1.SelStart = Len(Text1.Text)
Text1.SelLength = 0
SortieErrDate:
On Error GoTo 0
Exit Sub
ErrDate:
' Traitement des erreurs
Screen.MousePointer = vbDefault
MsgBox "Une erreur est survenue lors de la modification de la date, veuillez verifier votre système et si cela persiste, veuillez prévenir l'auteur en précisant l'erreur, merci." & vbCrLf & vbCrLf & "Erreur : " & Err & " : " & Error, vbCritical + vbOKOnly, "Erreur dans la date"
Resume SortieErrDate
End Sub