Salve ragazzi, mi dite come posso impostare la propriet mask per i campi di tipo valuta e per le date?
Come posso evitare di limitare i numeri?
Esempio se metto mask 999 mi fa inserire solo tre numeri giusto?
Per campi tipo codice postale mi sta bene limitare a 5 numeri ma per le valute vorrei che il numero di cifre fosse libero.
Grazie
Ciao Marco, io ho avuto all’inizio un’po’ di difficolt ma poi le ho risolte.
Per i numeri interi quello che hai scritto mi pare giusto.
DATE :
mask : ##/##/####
cuetext : //____
nel lostfocus del campo valido la data :
if me.text <> "" then
if isValidDate(me.text) <> true then
msgbox("Data specificata in formato non corretto")
me.setfocus
end if
end if
la funzione isValidDate
Function isValidDate(strDate as String) As Boolean
// verifica se una data valida e ritorna true se valida o false se non valida
if len(strDate) < 10 then
return false
else
Dim mDate as Date
if ParseDate(strDate, mDate) then
return true
else
return false
end if
end if
End FunctionPer i numeri decimali ( prezzi, valute etc )
Evento Gotfocus
me.mask = “”
Evento LostFocus
if me.testo = “” then
’ non faccio nulla.
else
me.text = format(cdbl(me.text),"-#,###,###,###.00")
end if
Usa pure la virgola come separatore dei decimali quando immetti il testo.
Nota bene il segno meno all’inizio del formato numerico, se il numero in negativo viene mostrato altrimenti no.