[Basic] Bloquer la date dans un champ DateField

[JPMartin]

Bonjour à tous,

Est-il possible de bloquer la date max et min dans un champ date DateField ?
Je voudrai bloquer visuellement dans le champ :
- la date min à janvier 2011
- la date max à la date du jour.

Les valeurs retenues sont bonnes mais visuellement, il est possible d'aller au delà de ces deux limites.
D'après Xray, les valeurs min et max sont bien retenues.

Le code :

Code : Tout sélectionner

REM  *****  BASIC  *****

		
'Option Explicit

Private DialogueDate As Object

Sub DialogueDynamique()
	Dim bibli As Object, monDialogue As Object
	
	bibli = DialogLibraries.GetByName("Standard")
	monDialogue = bibli.GetByName("DDate")
	DialogueDate = CreateUnoDialog(monDialogue)
	ParametrerDate()
	DialogueDate.Dispose
End Sub


Sub ParametrerDate()
	Dim ChampDate As Object

	DialogueDate.Model.Title = "Ceci est un essai"
		
	ChampDate = DialogueDate.getControl("DateField1")
	
	with ChampDate
		.Max=CDateToIso(date) 'a mettre sous forme d'un long
		.Min=20110101
		.First=20110101
		.Date=CDateToIso(date)
		.Last=CDateToIso(date)
	end with
	
	with ChampDate.model
		.FontWeight =150
		.BackgroundColor = RGB(255,211,32)' cyan clair
	end with

	DialogueDate.execute
	'Xray ChampDate.model
End Sub

Encore merci d'avance pour tout

JP

[bm92]

Bonsoir,
Comme tu as pu le constater, le contrôle des limites ne se fait que lorsque le focus quitte le champ. Par exemple en tapant la touche Tab, ou en cliquant un bouton.
Tant que le contrôle est en focus, on peut taper n'importe quoi, par exemple azertyuiop.
La raison probable est qu'il est bien plus simple d'analyser le contenu lorsqu'il est complètement écrit.