Calendario

Disculap que te moleste pero y te mande un archivo con la consulta de como puedo combinar ese formulario de calendario y espacios en blanco, es decir como puede uno cuando se cargue el formulario que las cajas de texto aparezcan vacías, de tal manera que uno pueda colocar la fecha a través de la aplicación del calendario, pero que si quiero colocar una sola no me interfiera con el resto, de antemano muchas gracias, por tomarte el tiempo para ayudarme

1 Respuesta

Respuesta
1
En el siguiente procedimiento tienes que quitar lo referente a txtFecha...
Las tres líneas
***********************
Private Sub UserForm_Initialize()
With Calendario
.Value = Now()
txtFecha.Text = Format(.Value, "dd-mmm-yyyy")
txtInicio.Text = Format(.Value, "dd-mmm-yyyy")
txtFin.Text = Format(.Value, "dd-mmm-yyyy")
.Top = txtFecha.Top + txtFecha.Height
.Left = txtFecha.Left
.Width = 210
.Height = 130
End With
End Sub
****************
quedaría así
Private Sub UserForm_Initialize()
With Calendario
.Value = Now()
.Left = txtFecha.Left
.Width = 210
.Height = 130
End With
End Sub
Prueba y me cuentas.
Lo había intentado pero no me da resultado lo que me dijiste
Te paso el código modificado
*****************
Option Explicit
Dim datFecha As Date
Dim txtCual As MSForms.TextBox ' aquí se guarda que textbox le corresponde
Dim ImgCual As Image
Private Sub Calendario_DblClick()
Dim intRes As Integer
If datFecha > Calendario.Value Then
intRes = MsgBox("La fecha seleccionada es anterior" & vbCrLf & vbCrLf & _
"¿Deseas continuar", vbYesNo + vbQuestion, "Fecha anterior")
If intRes = vbYes Then
txtCual.Text = Format(Calendario.Value, "dd-mmm-yyyy")
ImgCual.SpecialEffect = fmSpecialEffectRaised
Calendario.Visible = False
End If
Else
txtCual.Text = Format(Calendario.Value, "dd-mmm-yyyy")
ImgCual.SpecialEffect = fmSpecialEffectRaised
Calendario.Visible = False
End If
End Sub
Private Sub Calendario_Exit(ByVal Cancel As MSForms.ReturnBoolean)
imgFecha.SpecialEffect = fmSpecialEffectRaised
Calendario.Visible = False
End Sub
Private Sub imgFecha_Click()
If Calendario.Visible Then
txtFecha.Text = Format(Calendario.Value, "dd-mmm-yyyy")
Calendario.Visible = False
imgFecha.SpecialEffect = fmSpecialEffectRaised
Else
If IsDate(txtFecha.Text) Then datFecha = CDate(txtFecha.Text)
imgFecha.SpecialEffect = fmSpecialEffectSunken
' asigna a las variables de control, los controles que corresponden
Set txtCual = txtFecha
Set ImgCual = imgFecha
Calendario.Visible = True
Calendario.ZOrder
Calendario.SetFocus
End If
End Sub
Private Sub imgFin_Click()
If Calendario.Visible Then
txtFin.Text = Format(Calendario.Value, "dd-mmm-yyyy")
Calendario.Visible = False
imgFin.SpecialEffect = fmSpecialEffectRaised
Else
If IsDate(txtFin.Text) Then datFecha = CDate(txtFin.Text)
imgFin.SpecialEffect = fmSpecialEffectSunken
' asigna a las variables de control, los controles que corresponden
Set txtCual = txtFin
Set ImgCual = imgFin
With Calendario
.Top = txtFin.Top + txtFin.Height
.Left = txtFin.Left
.Visible = True
.ZOrder
.SetFocus
End With
End If
End Sub
Private Sub imgInicio_Click()
If Calendario.Visible Then
txtInicio.Text = Format(Calendario.Value, "dd-mmm-yyyy")
Calendario.Visible = False
imgInicio.SpecialEffect = fmSpecialEffectRaised
Else
If IsDate(txtInicio.Text) Then datFecha = CDate(txtInicio.Text)
imgFecha.SpecialEffect = fmSpecialEffectSunken
' asigna a las variables de control, los controles que corresponden
Set txtCual = txtInicio
Set ImgCual = imgInicio
With Calendario
.Top = txtInicio.Top + txtInicio.Height
.Left = txtInicio.Left
.Visible = True
.ZOrder
.SetFocus
End With
End If
End Sub
Private Sub txtFecha_Change()
End Sub
Private Sub UserForm_Initialize()
With Calendario
.Value = Now()
'txtFecha.Text = Format(.Value, "dd-mmm-yyyy")
'txtInicio.Text = Format(.Value, "dd-mmm-yyyy")
'txtFin.Text = Format(.Value, "dd-mmm-yyyy")
.Top = txtFecha.Top + txtFecha.Height
.Left = txtFecha.Left
.Width = 210
.Height = 130
End With
End Sub
****************
Prueba y me cuentas

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Quiero combinar correspondencia cuyo origen de datos es un archivo excel con un campo que figura como "Nombre y Apellidos"

La cuestión es que en el campo de combinación de word, puesto que no puedo tocar el orígen de datos, quiero usar un campo de combinación MERGEFIELD (u otro que pueda hacerlo") desde donde pueda mostrar únicamente el Apellido, es decir, si el campo...
1 respuesta

Como imprimir archivo Word o PDF de forma automática

En el formulario Access "F_FichaAltaSocios", tengo un botón para grabar los datos personales del Socio que se guardan en la tabla "T_Socios" Lo que necesito es que en el evento al hacer clic del botón,, se imprima de forma automática un archivo Word,...
3 respuestas

En Word, vista esquema quitar raya en niveles contraídos

Uso Word 2007. En la vista de esquema, cuando se contrae un nivel se visualiza una molesta raya que subraya una parte del título de ese nivel. Ver imagen: en los dos primeros niveles se ven esas marcas grises a modo se subrayados parciales. ¿Cómo...
2 respuestas

Mostrar documento word en primer plano, desde formulario access.

Tengo un formulario en el cual se me muestran los datos de una consulta, en dicho formulario he insertado un botón para que al pulsarlo me muestre un documento Word (relacionado con la consulta), lo que me ocurre es que el documento Word a la hora de...
2 respuestas

Tienes algún manual o tutorial de word

Quería saber si tienes algún manual de word, lo necesito algo urgente. Y te pido ayuda, mi correo es [email protected] por si, tienes algo ok.
3 respuestas

Unir dos documentos en un PDF

¿Es posible elaborar un solo documento PDF que contenga un word o un RTF y un powerpoint? ¿Cómo?
2 respuestas

¿Con qué software o de que forma podría seleccionar todas las palabras en negritas a la misma vez para modificar su formato?

Estoy trabajando en un proyecto con muchas palabras regadas en negritas, llevo más de 20 páginas y necesito corregir solo las palabras que están en negritas, pero no encuentro la forma de hacer una búsqueda en el documento y solo escoger las palabras...
1 respuesta

Cómo puedo conseguir un diccionario español italiano en formato pdf?

Necesito un diccionario español italiano en formato pdf. Agradecería cualquier orientación o link de descarga de ese documento.
2 respuestas

¿Cómo puedo hacer en word para que un texto se resalte o tache luego de hacer clic en una casilla?

Necesito en word que un texto se resalte o tache después de hacer clic en una casilla o botón como en el ejemplo, ya lo he intentado y no le llevo al como hacerlo. Les comparto este ejemplo
2 respuestas

Pasar documento de lotus word pro a Microsoft Word

Mi nombre es Jaime Fernando Zazo (Jaifer) soy un colega de la sección "paranormal, feng shui" resulta que me he traído unos documentos en formato lotus word pro, pero mi sistema operativo es windows xp home, utilizo Microsoft Word para editar...
2 respuestas