Tengo 2 formularios con un calendario que cada uno actúa en su TextBox
Al hacer MouseUp en alguno de los 2 TextBox se abre su respectivo formFecha
FormFechaI en el TextBox1
y
FormFechaF en el TextBox2
Quiero usar UNO solo formulario con calendario
para los 2 TextBox según haga MouseUp. Trate pero no logre
Este es el código en formulario, Consultar_Mov
Código:
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
FormFechaI.Show
End Sub
Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
formFechaF.Show
End Sub
y en cada formulario formFechaF y formFechaI con calendario esto
Código:
Private Sub Calendar1_Click()
Consultar_Mov.TextBox2.Value = Calendar1.Value
Unload Me
End Sub
Private Sub Calendar1_Click()
Consultar_Mov.TextBox1.Value = Calendar1.Value
Unload Me
End Sub
¿Cómo seria la programación? también trate con IF pero no supe hacerlo
Agradezco su ayuda