[RESOLVED] Invalid Property Value

[castellano]

I'm trying to finish this program that use a text file to store data, but the problem here is a error 380 invalid property value. I think the problem is about the maskedit control. I use this control to let the user enter the date, and before send to the textfile a invisible textbox is used to format the input in the maskedit control.

The error is pointing to this part of the code:
Me.Maskfechadeefectividad.Text =Me.txtFechadeEfectividad.Text

 Sub LeerRecord(QuePosicion As Integer)
 Dim empleado As EmpleadoTipo
    
    If QuePosicion > 0 Then
        Open App.Path + "\DatosEmpleados.txt" For Random As #2 Len = Len(empleado)
        Get #2, QuePosicion, empleado
        Close #2
     
     nuevomaximo
     mascarapone     
      Me.txtSeguroSocial.Text = empleado.SeguroSocial
  Me.txtTransaccion.Text = empleado.Transaccion
  Me.txtLlaveGenerica.Text = empleado.LlaveGenerica
  Me.txtOperador.Text = empleado.Operador
 Me.txtTerminal.Text = empleado.Terminal
 Me.txtFechadeEntrada.Text = empleado.FechadeEntrada
 Me.txtHoradeEntrada.Text = empleado.HoradeEntrada
 Me.cmbanotrimestral.Text = empleado.numerodetrimestre
 Me.txtCodigo.Text = empleado.Codigo
 Me.txtFechadeEfectividad.Text = empleado.FechadeEfectividad

 Me.Maskfechadeefectividad.Text =Me.txtFechadeEfectividad.Text
 Me.Maskfechadeentrada.Text = Me.txtFechadeEntrada.Text
Me.Maskhoradeentrada.Text = Me.txtHoradeEntrada.Text
 End If
 End Sub

Function mascarapone()
Me.Maskfechadeefectividad.Format = "yy/mm/dd"
Me.Maskfechadeefectividad.Mask = "##/##/##"
Me.Maskfechadeentrada.Format = "yy/mm/dd"
Me.Maskfechadeentrada.Mask = "##/##/##"
Me.Maskhoradeentrada.Format = "hh:mm:ss"
Me.Maskhoradeentrada.Mask = "##:##:##"
End Function

I will appreciate any help or suggestion and can give more info if is needed.

[honeybee]

Can you tell us what is the value of the Me.txtFechadeEfectividad.Text property when the code executes? There's a possibility this value conflicts with the MaskedEdit control's format property.

.

[castellano]

Was a error of the maskedit control property not sure where.

[castellano]

Is working now, but i have trouble with the format and mask, the code that I use:

Function mascarapone()
Me.Maskfechadeefectividad.Format = "yy/mm/dd"
Me.Maskfechadeefectividad.Mask = "##/##/##"
Me.Maskfechadeentrada.Format = "yy/mm/dd"
Me.Maskfechadeentrada.Mask = "##/##/##"
Me.Maskhoradeentrada.Format = "hh:mm:ss"
Me.Maskhoradeentrada.Mask = "##:##:##"

End Function

If I put this 11/04/30 in the maskedit control
is automatic changed to 30/04/11
I need use the mascarapone function only.
Any help or suggestion will be very aprecciate.

[cb_liwanag]

try "yy/MM/dd"

[castellano]

Using yy/MM/dd:
When i put 11/12/23 and press the "tab key" the mask edit control change to 23/11/12."I click" the maskedit control again and change to 11/12/23.
i need maintain the mask edit control with the first input when I click tab.

[techgnome]

if it's a date, why not use the datepicker control instead... set the format to "Custom" then set the customformat to what ever you want...

-tg

[cb_liwanag]

try calling "mascarapone" on your form activation

[castellano]

Adding yy in the original "yy/MM/dd" the format for the mask is working, but i need use a specific format in the text file. I realize that is not functional use the Mid function I decided to use the date picker with this code:

Function mascaraquita()
txtFechadeEntrada.Text = Format(Me.Maskfechadeentrada.Value, "yyMMdd")
Me.txtFechadeEfectividad.Text = Format(Me.Maskfechadeefectividad.Value, "yyMMdd")
mascarahora = Format(Me.txtHoradeEntrada.Text, "######")

Private Sub Form_Load()
Me.Maskfechadeefectividad.CustomFormat = "yy/MM/dd"
Me.Maskfechadeentrada.CustomFormat = "yy/MM/dd"


Thanks for the help