MaskEdBox1 !!! urgente

[carnero]

hola no me sale lo siguiente

( la mascara es ##/##/####)MaskEdBox1(1).Text = Text3.Text (el texto es "24/11/2009")


y esto tampoco me sale, las valores son los mismos en los dos casos lo valores (log.rst.fields y texbox) son correctos y los toma, el problema es que no se los puedo asignar a la mascara!!! ayuda porfa!!

MaskEdBox1.Text = Log.rst.Fields(4)

pd: si me pueden ayudar con este otro tema lo agradeceria

[lokoman]

Hola!!
No te compliques tanto... usa un text box normal, y ponle el formato

En el text1_lost focus:

text1.text= format( text1.text, "##/##/##")

ó

text1.text= format(Log.rst.Fields(4), "##/##/##")

[carnero]

gracias el problema es que "el usuario" tiene que escribir por ejemplo 221209 en el texbox pero el usuario puede escribir 221220 ( si le cambio el maximo de caracteres [7] no funciona) y quedaria 221/22/

como lo puedo hacer para evitar eso?

[pkj]

Quizá con solo usar "00/00/00" como máscara lo arregles.

Si no, prueba esto que se me ha ocurrido para un textbox:

Maxlength debe ser de 8

Código :

Private Sub Text1_LostFocus()
  If Len(Replace(Text1.Text, "/", "")) > 6 Then MsgBox "Valor no admitido"
  Text1.Text = ValidaFecha(Text1.Text)
End Sub
 
Function ValidaFecha(ByVal Fecha As String) As String
  Fecha = Replace(Text1.Text, "/", "")
  Fecha = Replace(Space(8 - Len(Fecha)) & Fecha, " ", "0")
  Fecha = Format(Fecha, "00/00/00")
  ValidaFecha = Fecha
End Function
 

Saludos

[lokoman]

Iniciado por carnero

gracias el problema es que "el usuario" tiene que escribir por ejemplo 221209 en el texbox pero el usuario puede escribir 221220 ( si le cambio el maximo de caracteres [7] no funciona) y quedaria 221/22/

como lo puedo hacer para evitar eso?

Puedes jugar con el Maxlength:

En el Got_focus del text:
text1. Maxlength=6
text1.text=replace(text1.text,"/","")
sendkeys "{HOME}+{END}"

En el lost_focus del text:
text1. Maxlength=8
text1.text= format(Log.rst.Fields(4), "00/00/00")