usaar el mismo userform con calendario en todos los forlmularios

aprendiz · el 10 de marzo

hola todos tengo una duda, tengo un calendario en un userform llamado FmCalendario y logro ingresa r la fecha presionando doble click en un textbox del userform llamado FmJornada y que ponga la fecha, con estos codigos

este es del textbox

Private Sub TextFeJornada_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    FmCalendario.Show

End Sub[/CODE]

este es del calendario

[CODE]Private Sub Calendar_Click()
FmJornada.TextFeJornada = Calendar.Value
Unload FmCalendario
End Sub[/CODE]

ahora lo que quisiera hacer es que el calendario se pueda usar para diferentes formularios, es decir, tengo tres formularios y en los tres se necesita fecha, asi que me gustaria poder usar ese mismo calendario en los tres

no se si me di a entender, alguna sugerencia?

planilla de empleados10.rar

aprendiz · el 11 de marzo

alguien me ayuda? estoy aprendiendo

intente con este codigo en el calendario

Private Sub Calendar_Click()

If FmJornada = True Then

FmJornada.TextFecha = Calendar.Value

ElseIf FmModEmp = True Then

FmModEmp.TextFecha = Calendar.Value

Else: FmNewEmp = True

FmNewEmp.TextFecha = Calendar.Value

End If

Unload FmCalendario

End Sub[/CODE]

no funciona

huatson70 · el 11 de marzo

Buen dia Aprendiz

Modifique tus formularios "FmJornada" y "FmModEmp", El Textbox donde ingresabas la fecha lo cambie por un DTPicker, en este al dar click en el DropDown te muestra el calendario.

Yo creo que no tendrás problemas con el calendario, si no es así, busca información en la web sobre DTPicker.

Comenta si te funciono.

Saludos.

Empleados22.zip

aprendiz · el 11 de marzo

muchas gracias por tu ayuda, la razon por la que no use ese control es porque mi laptop usa win 8, una ********* no sirve para nada y su interfaz es un estorbo en una laptop no tactil e incluso es una inutilidad en una tactil no hace nada eso

volviendo al tema, no logre firmar el control en ese sistema operativo, pero me encontre que en las ultias versiones del offce 2010 incluyeron el calendario 11, bueno en mi caso ya estaba

y en esta tambien lo tiene por eso use el calendar en vez de DtPicker

pero agregando que te me adelantaste en mandar una respuesta de solucionado, pongo aqui lo que logre encontrar en una web y me funciono

en un modulo poner:

Public Quien As Byte[/CODE]

en el control calendar que este en un userform poner (en mi caso el control se llama calendar Fm... son userform y sus textbox)

[CODE]Private Sub Calendar_Click()
If Quien = 1 Then
FmJornada.TextFecha = Calendar.Value
ElseIf Quien = 2 Then
FmNewEmp.TextFecha = Calendar.Value
ElseIf Quien = 3 Then
FmModEmp.TextFecha = Calendar.Value
End If
Unload FmCalendario
End Sub[/CODE]

en cada userform poner cambiando el numero por el correspondiente:

[CODE]Private Sub TextFecha_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Quien = 1
FmCalendario.Show
End Sub[/CODE]

y eso es todo, me funciono my bien