............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Formato fecha a TextBox

Ver el tema anterior Ver el tema siguiente Ir abajo

Formato fecha a TextBox

Mensaje por JoaoM el Vie Nov 09, 2012 1:06 am

Hola amigos.

Tengo este codigo (rutina) dentro de un evento

Código:
Dim validarfecha As Boolean
validarfecha = IsDate(TextBox6.Value)
If validarfecha = False Then
MsgBox "Introduzca una fecha con formato: 00/00/0000 ", vbQuestion, "Registrar Operacion"
'UserForm23.Show
TextBox6.BackColor = &HFF00&
Exit Sub
End If

Escribo en el TextBox 1/1/2000 Tal como esta el codigo SOLO NO acepta si escribo 1112 o 010112 Quisiera su ayuda para: que el TextBox SOLAMENTE acepte el formato 00/00/0000, NO OTRO
Talves tenga que ser con el evento Change o Exit del TextBox6, en el que mas rapido me mande el MsgBox "Formato de fecha erroneo" si no es el formato correcto.

He probado en esos 2 eventos pero lo del formato no me sale bien

JoaoM

Masculino Cantidad de envíos : 38
Edad : 97
Ciudad - Pais : venez
Version de Excel : 2007-2010
Fecha de inscripción : 16/12/2011

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por moises melgar el Vie Nov 09, 2012 12:41 pm

Buenos dias Sr Joaom

Probé este código en un userform que y funciono
Ahora el detalle con el formato fecha dentro de un textbox es que el textbox reconoce a la fecha que escribes como Texto, sugiero enlazar el dato que obtengas a una hoja de Excel y desde ahí manipularlo para que ya con su respectivo valor (la fecha es un numero con formato) (se tiene que adecuar) puedas realizar los cálculos necesarios.

Código:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Mid(TextBox1, 3, 1) = "/" And Mid(TextBox1, 6, 1) = "/" And Len(TextBox1.Value) = 10 Then
Exit Sub
Else:
MsgBox "Introduzca una fecha con formato: 00/00/0000 ", vbQuestion, "Registrar Operacion"
TextBox1.BackColor = &HFF00&
End If
End Sub
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por JoaoM el Vie Nov 09, 2012 4:32 pm

Gracias por tu respuesta.
En si, me interesa y no, porque la columna donde inserta la fecha, la tengo con formato fecha 00/00/0000.
yo lo que pretendia es que el TextBox6 no permita la introducion no dejandome salir de el hacia uno anterior o posterior sin que le introduzca el formatocorrecto, 00/00/0000. Los ceros son ejemplo.

Tengo este codigo pero es muy largo y si tengo 15 TextBox en el form imaginate tener esto para cada uno mas el codigo para insercion torna un libro muy pesado solamente con las macros sin meterle nada de productos.

Código:
Private Sub txtTELF_Change()
Select Case Len(txtTELF)
Case 3, 7, 10
txtTELF.Text = txtTELF.Text & "-"
End Select
End Sub

Private Sub txtTELF_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If cmdGrabRegistro.Enabled = True And KeyAscii = 27 Then
Call COMPLEMENTO
End If
End Sub

Private Sub txtTELF_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
U = Sheets("BDatos").Range("al" & Rows.Count).End(xlUp).Row
V = Sheets("BDatos").Range("ak" & Rows.Count).End(xlUp).Row

With Sheets("BDatos").Range("al1:al" & U)
    Set C = .Find(txtESTD, LookIn:=xlValues, LookAt:=xlWhole)
    Set C = .Find(txtESTD.Value)
  With Sheets("BDatos").Range("ak1:ak" & V)
      Set C1 = .Find(txtID, LookIn:=xlValues, LookAt:=xlWhole)
      Set C1 = .Find(txtID.Value)
      If txtProv = Empty Then
        MsgBox "CAPTURE EL NOMBRE DEL PROVEEDOR", vbExclamation, "ERROR"
        txtProv.SetFocus
        Exit Sub
      End If
      If txtDirec = Empty Then
        MsgBox "CAPTURE LA DIRECCIÓN", vbExclamation, "ERROR"
        txtDirec.SetFocus
        Exit Sub
      End If
      If txtDParroq = Empty Then
        MsgBox "CAPTURE LA COLONIA", vbExclamation, "ERROR"
        txtDParroq.SetFocus
        Exit Sub
      End If
      If txtRIF = Empty Then
        MsgBox "CAPTURE EL R.F.C.", vbExclamation, "ERROR"
        txtRIF.SetFocus
        Exit Sub
      End If
      If txtCP = Empty Then
        MsgBox "CAPTURE EL CODIGO POSTAL", vbExclamation, "ERROR"
        txtCP.SetFocus
        Exit Sub
      End If
      If txtCIUD = Empty Then
        MsgBox "CAPTURE LA CIUDAD", vbExclamation, "ERROR"
        txtCIUD.SetFocus
        Exit Sub
      End If
      If txtESTD = Empty Then
        MsgBox "CAPTURE EL ESTADO", vbExclamation, "ERROR"
        txtESTD.SetFocus
        Exit Sub
      End If
End With
End With
End Sub

Private Sub txtTELF_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
U = Sheets("BDatos").Range("al" & Rows.Count).End(xlUp).Row
V = Sheets("BDatos").Range("ak" & Rows.Count).End(xlUp).Row

With Sheets("BDatos").Range("al1:al" & U)
    Set C = .Find(txtESTD, LookIn:=xlValues, LookAt:=xlWhole)
    Set C = .Find(txtESTD.Value)
  With Sheets("BDatos").Range("ak1:ak" & V)
      Set C1 = .Find(txtID, LookIn:=xlValues, LookAt:=xlWhole)
      Set C1 = .Find(txtID.Value)
      If txtProv = Empty Then
        MsgBox "CAPTURE EL NOMBRE DEL PROVEEDOR", vbExclamation, "ERROR"
        txtProv.SetFocus
        Exit Sub
      End If
      If txtDirec = Empty Then
        MsgBox "CAPTURE LA DIRECCIÓN", vbExclamation, "ERROR"
        txtDirec.SetFocus
        Exit Sub
      End If
      If txtDParroq = Empty Then
        MsgBox "CAPTURE LA COLONIA", vbExclamation, "ERROR"
        txtDParroq.SetFocus
        Exit Sub
      End If
      If txtRIF = Empty Then
        MsgBox "CAPTURE EL R.F.C.", vbExclamation, "ERROR"
        txtRIF.SetFocus
        Exit Sub
      End If
      If txtCP = Empty Then
        MsgBox "CAPTURE EL CODIGO POSTAL", vbExclamation, "ERROR"
        txtCP.SetFocus
        Exit Sub
      End If
      If txtCIUD = Empty Then
        MsgBox "CAPTURE LA CIUDAD", vbExclamation, "ERROR"
        txtCIUD.SetFocus
        Exit Sub
      End If
      If txtESTD = Empty Then
        MsgBox "CAPTURE EL ESTADO", vbExclamation, "ERROR"
        txtESTD.SetFocus
        Exit Sub
      End If
End With
End With
End Sub

Voy a tratar de agregar al que me facilitas, una linea o 2 (ya veremos donde ubicarlas) una para TextBox6.text = "" y otra TextBox6.BackColor = -2147483643.
la primera es si el formato no es el correcto, la 2ª es SI UCEDE la primera, EL SEGUNDO intento es formato correcto vuelve al color normal

JoaoM

Masculino Cantidad de envíos : 38
Edad : 97
Ciudad - Pais : venez
Version de Excel : 2007-2010
Fecha de inscripción : 16/12/2011

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por icehell el Vie Nov 09, 2012 6:25 pm

Creo que esto puede interesar
[Tienes que estar registrado y conectado para ver este vínculo]
avatar
icehell

Masculino Cantidad de envíos : 64
Edad : 43
Ciudad - Pais : Arrecife
Version de Excel : 2010
Fecha de inscripción : 26/11/2010

http://icehellsoftware.260mb.org/

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por JoaoM el Vie Nov 09, 2012 7:59 pm

Por cierto, no lo habia mensionado, ya lo habia leido y releido pero me parecio que el que tengo y ahora el que me facilito el amigo moises, co neste ultimo le hare algunas agregaciones y tengo.

Talves me equivoque pero no simpatiso mucho con los codigos (rutinas) demasiado largas y con cualquier que he probado si inserto en el TextBox aunque sea 1/1/11 me lo aceota y eso es lo que no quiero SOLAMENTE quisiera que aceptara el formato dd/mm/aaaa ningun otro que no sea este.
Si pudiera existir algo, MUY BIEN si no me quedare con el que tengo ahora mismo. Al vaciar el TextBox, no me pasa la insercion de datos

Código:
validarfecha = IsDate(TextBox6.Value)
If validarfecha = False Then
MsgBox "Introduzca una fecha con formato: dd/mm/aaaa ", vbQuestion, "Registrar Operacion"
TextBox6.BackColor = &HFF00&
TextBox6.Text = ""
Exit Sub
End If

JoaoM

Masculino Cantidad de envíos : 38
Edad : 97
Ciudad - Pais : venez
Version de Excel : 2007-2010
Fecha de inscripción : 16/12/2011

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por moises melgar el Sáb Nov 10, 2012 1:59 am

Estaba pensando en el hecho de que no quieres que salga mientras no se cumpla el criterio
Me di a la tarea de crearte un ejemplo de como lograr este objetivo, pero lo que empezo como un una limitante lo extendi hasta crear algo mas o menos presentable.
Contemple las siguientes evaluaciones:

1. Validar la fecha, si existe
2. SI la fecha tiene un Formato invalido
En estos dos casos no te dejara escoger otro textbox, obligandote a salir del formulario o cambiar la fecha
3. SI escoges salir del formulario se evalua si ya presionastes el boton listo, si no se ha presionado te pregunta si deseas guardar los datos.
4. los datos se copian a la hoja.
Dejo la macro y adjunto el ejemplo para su mayor comprension

Código:
Private Sub CommandButton1_Click()
If TextBox1 = "" Or TextBox2 = "" Then
MsgBox "llena todos los datos"
Exit Sub
End If
Range("A1").Value = "DATOS:"
Range("A2").Value = "Fecha"
Range("B2").Value = TextBox1
Range("A3").Value = "Nombre"
Range("B3").Value = TextBox2
Range("A4").Value = "Sexo"
If OptionButton1 Then
Range("B4").Value = OptionButton1.Caption 'o escribir "Hombre"
Else:
Range("B4").Value = OptionButton2.Caption 'o escribir "Mujer"
End If
Range("I1").Value = "Guardado"
Unload Me
End Sub

Private Sub TextBox1_Enter()
TextBox2.Visible = True
OptionButton1.Visible = True
OptionButton2.Visible = True
OptionButton1.Value = True
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("G1").Value = TextBox1
Range("H1").Formula = "=ISNUMBER(VALUE(G1))"
If Mid(TextBox1, 3, 1) = "/" And Mid(TextBox1, 6, 1) = "/" And Len(TextBox1.Value) = 10 And Range("H1").Value = True Then
TextBox1.BackColor = &H80000005
Exit Sub
Else:
    If Range("H1").Value = True Then
    MsgBox "Introduzca una fecha con formato: dd/mm/aaaa ", vbQuestion, "Registrar Operacion"
    Else:
    MsgBox "Introduzca una fecha que realmente exista ", vbQuestion, "Registrar Operacion"
    End If
TextBox1.BackColor = &HFF00&
TextBox2.Visible = False
OptionButton1.Visible = False
OptionButton2.Visible = False
TextBox1.SetFocus
End If
End Sub

Private Sub UserForm_Initialize()
OptionButton1.Value = True
Range("I1").Value = "No Guardado"
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim decision
If Range("I1").Value = "No Guardado" Then 'se agrega este if para que en el boton listo se cierre normal
decision = MsgBox("¿Esta seguro de Salir?, No se guardaran sus avances", vbYesNo, "INFORMACION")
    If decision = vbNo Then
    Cancel = 1
    CloseMode = 1
    Exit Sub
    Else:
    TextBox1.Text = "31/12/2012" 'para que no salga el mensaje de error de la fecha se lo escribo y cierro
    End If
Else:
End If
End Sub
Archivos
formato fecha insistente.xlsm No tienes los permisos para descargar los archivos.(30 KB) Descargado 48 veces
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por moises melgar el Sáb Nov 10, 2012 2:12 am

Ahh y para complementar al mensaje anterior a este (exactamente uno arriba) te dejo 2 puntos:

1. Excel tiene utilidades son muy amplias y es muy facil de manejar, pero con respecto a grandes base de datos con pocos calculos es mas recomendable usar Access ya que este es el programa de microsoft para base de datos.

2. Si es una base de datos muy pequeña y si se van a realizar una gran variedad de calculos complejos, entonces excel podria soportar esta base de datos sin alentarse mucho.

En el caso 2 recomendaria el sig tema, la cual se observa como agregar a un formulario desde los botones minimizar y maximizar hasta agregar un icono a la misma.

Link: [Tienes que estar registrado y conectado para ver este vínculo]
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por JoaoM el Sáb Nov 10, 2012 4:20 pm

ok, Gracias moises.
Voy a ese link y vere que hago.
Gracias por todo lo que hicieran por mi, mucha sgracias y se puede cerrar el tema.

JoaoM

Masculino Cantidad de envíos : 38
Edad : 97
Ciudad - Pais : venez
Version de Excel : 2007-2010
Fecha de inscripción : 16/12/2011

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por moises melgar el Sáb Nov 10, 2012 4:25 pm

Te adjunte mi archivo de Excel, antes de escribir el mensaje con el link deje la macro y el Archivo Adjunto. Es un buen ejemplo para que lo analises
Lo llame formato fecha insistente.

Revisa bien el todo ESTE tema, esta exactamente arriba del mensaje con el link

Ahh y los temas no se cierran los usuarios pueden darle seguimientos
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por JoaoM el Sáb Nov 10, 2012 5:42 pm

Ok, ok. Lei las normas pero pareciera que esa me paso al lado y no me di cuenta jejjejej
Edito:
Lo del libro que me dejas, formato fecha insistente.xlsm no lo vei, ya lo baje y abri, lo veo INTERESANTISIMO porque algo asi estaba buscando, lo que pasa es la deficiente expresion de lo que se busca o se pide para hacer entender a perfeccion. Voy a tratar de adaptarlo a lo que quiero

Parece que el almanaque me esta afectando, trato de construir un freno para mi almanaque pero parece imposible dicho freno jejejjjejeje ya va en 65 y no hay forma de pararlo

Baje los libros para estudiarlos. Gracias

JoaoM

Masculino Cantidad de envíos : 38
Edad : 97
Ciudad - Pais : venez
Version de Excel : 2007-2010
Fecha de inscripción : 16/12/2011

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por JoaoM el Sáb Nov 10, 2012 9:09 pm

Hola moises.
Uso esta parte de tu codigo
Código:
Private Sub TextBox6_Enter()
TextBox4.Visible = True
TextBox7.Visible = True
CommandButton1.Visible = True
End Sub

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("AA1").Value = TextBox6
Range("AB1").Formula = "=ISNUMBER(VALUE(AA1))"
If Mid(TextBox6, 3, 1) = "/" And Mid(TextBox6, 6, 1) = "/" And Len(TextBox6.Value) = 10 And Range("AB1").Value = True Then
TextBox6.BackColor = &H80000005
Exit Sub
Else:
    If Range("AB1").Value = True Then
    MsgBox "Introduzca una fecha con formato: dd/mm/aaaa ", vbQuestion, "Registrar Operacion"
    Else:
    MsgBox "Introduzca una fecha que realmente exista ", vbQuestion, "Registrar Operacion"
    End If
'SI PRESIONO EL CommandButton1 ESTO NO S EEJECUTA PERO SI MANDA EL MENSAGE CORRECTO
TextBox6.BackColor = &HFF00&
TextBox4.Visible = False
TextBox7.Visible = False
CommandButton1.Visible = False 'ESTE ES "Aceptar" QUE INSERTA LOS DATOS,
TextBox6.SetFocus
End If
End Sub

Private Sub UserForm_Initialize()
Range("AC1").Value = "No Guardado"
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim decision
If Range("AC1").Value = "No Guardado" Then 'se agrega este if para que en el boton listo se cierre normal
decision = MsgBox("¿Esta seguro de Salir?, No se guardaran sus avances", vbYesNo, "INFORMACION")
    If decision = vbNo Then
    Cancel = 1
    CloseMode = 1
    Exit Sub
    Else:
    TextBox6.Text = "31/12/2012" 'para que no salga el mensaje de error de la fecha se lo escribo y cierro
    End If
Else:
End If
End Sub

Si tengo una fecha invalida y le doy en el buton Salir, me manda un mensage, que no se guardaran los datos, le digo NO ME ABRE EL FORMULARIO PRINCIPAL DEJANDO EL QUE ESTOY USANDO ABIERTO TAMBIEN, salgo del principal vuelvo a darle en Salirr AL QUE ESTOY USANDO me da el mismo mensage y me abre el principal siempre que le diga NO.

2º- Aunque tenga una fecha invalida salgo de dicho TextBox hacia el siguiente y me manda el mensage adecuado pero me da la opcion de escribir en el TextBox siguiente o posterior y así llenando todo puedo insertar con fecha invalida.

Será que me puedes dar alguna ayuda en esto?

JoaoM

Masculino Cantidad de envíos : 38
Edad : 97
Ciudad - Pais : venez
Version de Excel : 2007-2010
Fecha de inscripción : 16/12/2011

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por moises melgar el Sáb Nov 10, 2012 10:07 pm

Ok respondamos:
1.- Si tengo una fecha invalida y le doy en el buton Salir, me manda un mensage, que no se guardaran los datos, le digo NO ME ABRE EL FORMULARIO PRINCIPAL DEJANDO EL QUE ESTOY USANDO ABIERTO TAMBIEN, salgo del principal vuelvo a darle en Salirr AL QUE ESTOY USANDO me da el mismo mensage y me abre el principal siempre que le diga NO.
R= para cerrar el formulario hay que presionar que si.
ahora el mensaje de fecha invalida vuelve a salir por que el codigo que evalua el formato esta condicionado a activarse en automatico al momento en que textbox1 pierda el foco (TextBox1_Exit) y al cerrar el formulario si que lo pierde, ahora para poder controlar este proceso lo siguiente:
UserForm_QueryClose
se ejecuta cuando alguien presiona el boton cerrar
en mi ejemplo al presionar cerrar y decidir que no se guardaran los cambios obliga a TextBox1_Exit a volver ejecutarse por lo que (logico) volvera a evaluar al formato como invalido mandando el respectivo mensaje.
¿Como solucionarlo?
R= antes de cerrar el userform y a sabiendas que no guardare mi informacion le coloco a TExtbox1 una fecha valida la cual controlo dentro de UserForm_QueryClose con el renglon TextBox1.Text = "31/12/2012" esta si es una fecha valida por lo que me evito que salga de nuevo el mensaje.

2º- Aunque tenga una fecha invalida salgo de dicho TextBox hacia el siguiente y me manda el mensage adecuado pero me da la opcion de escribir en el TextBox siguiente o posterior y así llenando todo puedo insertar con fecha invalida.
R= Para que se mantenga en el textbox despues de escribir una fecha invalida recurri a lo siguiente:
TextBox1_Exit:
al momento de salir de Textbox1, la fecha es enviada a una celda en excel donde es evaluada para saber si la fecha es real
luego analiza el formato segun la pocision de los "/" y el largo total del texto
si alguna de las dos condiciones es falsa empieza los renglones de codigo invalido,
Primero evalua por que el error para que salga el respectivo mensaje
ahora lo importante para que al presionar enter o seleccionar el siguiente control el foco no se vaya de mi textbox vuelvo invisible los demas controles con .Visible = False esto me ayuda a evitar que el foco se "retenga" en algun otro control, luego inmediatamente uso .SetFocus para regresarle el foco a textbox1

¿Pero que sucede con los controles que volvi invisibles?
R=
Uso TextBox1_Enter:
COmo Textbox1 vuelve a recibir el foco este se ejecuta automaticamente
por lo que aqui uso .Visible = True para volver visibles los controles,textbox1 vuelve a recuperar el foco y los demas controles regresan a ser visibles. Como el proceso es automatico y tan rapido no se observa este proceso
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por JoaoM el Sáb Nov 10, 2012 11:52 pm

ok, Leido con atencion y comprendido.

Voy con mas paciencia y tiempo a ver si ejecutando las variadas opciones, se la ejecucion es la adecuada.

Lo que tambien me he dado cuenta es que si salgo (Salir) del formulario y tengo una fecha invalida (Ej. 01/1/11) en mi TextBox, me dice que no guardará, perfecto pero dicha fecha invalida 01/1/11 la inserta en la celda de ayuda con Verdero y No guardado. la proxima que uso el formulario para insertar algun dato y coloco TODO INCLUYENDO LA FECHA, correctamente, ya en las celdas de ayuda aparece una fecha Valida, Verdadera y No guardado habiendo yo guardado los datos correctamente.
Ya veremos pero este proceso tuyo me interesa y esta muy pero muy proximo a lo buenisimo, jjejejeje

Gracias moises, volvere y la proxima ves, SOLO vendre por un detalle para ir corrigiendo uno por uno y no escribir tanto, pues eso lo que hace es confundir y hacer un arroz con mango todo.

Leeme

Ya en el tuyo que baje sucede esto Le doy fecha 1/10/2010, ejecuto Private Sub TextBox1_Exit y NO se ejecuta esta parte
Código:
TextBox2.Visible = False
OptionButton1.Visible = False
OptionButton2.Visible = False

Si presiono Listo, Si se ejecuta

Volviendo al textBox1 se ejecuta en TextBo1_Enter

No me parece correcto una ves que esta en el evento exit la rutina
Código:
TextBox2.Visible = False
OptionButton1.Visible = False
OptionButton2.Visible = False
deveria ejecutarse. Repito, estoy procediendo en el libro que baje de tu post

Vuelvo

Pienso que no se da porque presisamente sale del TextBox1 haciendo click en el TextBox2 y por eso no se ocultan los objectos mensionados.
Le agregue OTRO TextBox y al hacer click en el TextBox agregado SI se ocultan, por esa razon usando el buton Listo se ocultan.

Ya este detalle esta resulelto, mañana vere cual sigue,ya hoy es hora de camita son las 11,45 pm acá (Venezuela)

JoaoM

Masculino Cantidad de envíos : 38
Edad : 97
Ciudad - Pais : venez
Version de Excel : 2007-2010
Fecha de inscripción : 16/12/2011

Volver arriba Ir abajo

Re: Formato fecha a TextBox

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.