1

Estoy lanzando un calendario desde un commandbutton y pasando la fecha seleccionada a un textbox. Se hace sin problema cuando están ambos controles en el cuerpo del formulario.

El problema surge cuando los controles están dentro de un frame o multipage dentro de frame.

Probé recorriendo los controles del frame y también me da el error.


Function EnviarFecha(NumeroDia As Integer)


    For Each UserForm In UserForms
    
        If UserForm.Name = Formulario Then
            UserForm.Show
           
                UserForm.Controls(ControlFecha).Value = Format(NumeroDia & "/" & Cbx_mes.Value & "/" & Cbx_Anio.Value, "dd/mm/yyyy")
          
        End If
    Next UserForm
    Me.Hide
    
End Function

El error que me da es objeto no encontrado. Aquí una captura:

introducir la descripción de la imagen aquí

Tambien aqui esta el archivo fuente, para que puedan verlo detalladamente, es un calendario emergente y muy util.

Calendario

3
  • Qué error te da? Te recomiendo que hagas el recorrido de bienvenida y leas Cómo preguntar y ejemplo mínimo verificable Commented el 28 dic. 2022 a las 20:25
  • Si tu código transcrito en tu pregunta exacto al que ejecutas, entonces: UserForm.Name = Formulario como Name es un string y Formulario no está entrecomillado va a tratar de buscar un objeto Formulario que tal vez sea una variable pero no se deduce de tu código ni esta como parametro y si no encuentra error salta a la vista . Igual revisa el caso para ControlFecha. En todo caso pon más informacion Commented el 29 dic. 2022 a las 2:25
  • Ya agregue el archivo de Excel con el que estoy trabajando para que lo puedas ver. En form2 hay controles dentro de un frame que es donde aparece el error.
    – Juan
    Commented el 29 dic. 2022 a las 16:27

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.