Formularios

hola, Edward !

... me tiene a punto de desfallecer ... que sin ninguna explicacion me sale
... "ha ocurrido un excepcion" y se me tira en la Macro
... no puedo hacer nada por que no me deja
... me ha tocado hacer el Macro unas 6 veces y todo el tiempo me sale lo mismo.

las [posibles] causas pudieran tener diversas y variadas 'razones'...
para no 'aventurar conjeturas' y [seguramente] 'errar' con alguna propuesta...
=> ¿podrias transcribir el codigo que estas 'escribiendo'? < sobre todo [si ya la has identificado] la parte que esta ocasionando el error

saludos,
hector.

Buenas Tardes...

La verdad el error como tal no lo he identificado...
puesto que al yo darle el boton de ejecutar e inentar
copiar cualquier cosa dentro del formulario, hay mismo
dice que ha ocurrido una excepción

Yo pienso que debe ser el calendario que le inserte pero
la verdad no lo pdría asegurar...

Esta es la parte del calendario.

Private Sub btFinal_Click()
fCalendario.Show
If Fecha >= cbInicial Then
MsgBox "Recuerde que la fecha debe ser mayor que la
inicial"
fCalendario.Show
Else
cbFinal = Fecha
End If
End Sub

Me avisas por favor si necesitas todo el código, aunque
mejor sería el archivo completo por que es muy largo..

Muchas Gracias por tu colaboración

hola, Edward !

... me tiene a punto de desfallecer ... que sin

ninguna explicacion me sale

... "ha ocurrido un excepcion" y se me tira en la Macro
... no puedo hacer nada por que no me deja
... me ha tocado hacer el Macro unas 6 veces y todo el

tiempo me sale lo mismo.

las [posibles] causas pudieran tener diversas y

variadas 'razones'...

para no 'aventurar conjeturas' y [seguramente] 'errar'

con alguna propuesta...

=> ¿podrias transcribir el codigo que

estas 'escribiendo'? <> sobre todo [si ya la has identificado] la parte que
esta ocasionando el error

saludos,
hector.


.

hola, Edward !

... el error como tal no lo he identificado ... al darle el boton de ejecutar
... copiar cualquier cosa dentro del formulario ... dice que ha ocurrido una excepcion...
... pienso que debe ser el calendario que le inserte ... esta es la parte del calendario.
Private Sub btFinal_Click()
fCalendario.Show
If Fecha >= cbInicial Then
MsgBox "Recuerde que la fecha debe ser mayor que la inicial"
fCalendario.Show
Else
cbFinal = Fecha
End If
End Sub
... avisas ... si necesitas todo el codigo ... mejor seria el archivo completo ... es muy largo.

a menos que se tratara de un 'uso incorrecto' de los 'tipos' de las variables [declarados/usados]...
no 'alcanzo' a detectar la causa del error que comentas en esta parte de codigo [segun aprecio]...
-> es el evento [click] de un boton en un formulario 'maestro' que...
a) presenta un sub-formulario que supongo tiene 'su propio' codigo 'de salida' -¿el 'calendario'?-
b) 'compara' dos variables [supongo que del tipo fecha] y...
-> si 'se cumple' una condicion... 'iguala' otra variable con la 'tomada' del calendario...
-> si NO 'se cumple' la condicion... NUEVAMENTE presenta el sub-formulario PERO...
-> si la segunda ocasion TAMPOCO 'se cumple'... [esta vez]... 'la deja pasar' <= OJO
[notas:]
1.- en el mensaje 'instruyes' para que seleccione una fecha >= que una 'inicial' PERO...
2.- en el codigo 'verificas' que sea 'al contrario'... ->If Fecha >= cbInicial Then<-... [mensaje+calendario]
3.- 'la siguiente vez'... [no se que pueda pasar, considerando el uso/llenado/etc. de variables y tipos] [?]
4.- si consideras que esta pudiera ser la parte de codigo 'que falla'... prueba a modificar el codigo del boton...
en el modulo de codigo del formulario 'maestro' ==Private Sub btFinal_Click()
Do
fCalendario.Show
If Fecha > cbInicial Then cbFinal = Fecha _
Else MsgBox "Recuerde que la fecha debe ser mayor que la inicial"
Loop While Fecha <= cbInicial
End Sub

¿comentas?
saludos,
hector.

Buenas NOches..

Hector, muchas gracias por tu ayuda el problema es que ya
no me deja salir del calendario, por dice que todas las
fechas son menores..
Adicional a esto ahora el calendario estasaliendo en
blanco y cuando le hago un paso a paso me sale en
blanco... La verdad no se que hacer...

Cmo puedo enviarte el archivo completo para que lo
conoscas ...

Muchas Gracias...

hola, Edward !

... el error como tal no lo he identificado ... al

darle el boton de ejecutar

... copiar cualquier cosa dentro del formulario ...

dice que ha ocurrido una excepcion...

... pienso que debe ser el calendario que le

inserte ... esta es la parte del calendario.

Private Sub btFinal_Click()
fCalendario.Show
If Fecha >= cbInicial Then
MsgBox "Recuerde que la fecha debe ser mayor que

la inicial"

fCalendario.Show
Else
cbFinal = Fecha
End If
End Sub
... avisas ... si necesitas todo el codigo ... mejor

seria el archivo completo ... es muy largo.

a menos que se tratara de un 'uso incorrecto' de

los 'tipos' de las variables [declarados/usados]...

no 'alcanzo' a detectar la causa del error que comentas

en esta parte de codigo [segun aprecio]...

-> es el evento [click] de un boton en un

formulario 'maestro' que...

a) presenta un sub-formulario que supongo tiene 'su

propio' codigo 'de salida' -¿el 'calendario'?-

b) 'compara' dos variables [supongo que del tipo

fecha] y...

-> si 'se cumple' una condicion... 'iguala' otra

variable con la 'tomada' del calendario...

-> si NO 'se cumple' la condicion... NUEVAMENTE

presenta el sub-formulario PERO...

-> si la segunda ocasion TAMPOCO 'se cumple'...

[esta vez]... 'la deja pasar' <= OJO

[notas:]
1.- en el mensaje 'instruyes' para que seleccione una

fecha >= que una 'inicial' PERO...

2.- en el codigo 'verificas' que sea 'al contrario'... -
If Fecha >= cbInicial Then<-... [mensaje+calendario]
3.- 'la siguiente vez'... [no se que pueda pasar,

considerando el uso/llenado/etc. de variables y tipos] [?]

4.- si consideras que esta pudiera ser la parte de

codigo 'que falla'... prueba a modificar el codigo del
boton...

en el modulo de codigo del formulario 'maestro' ==>Private Sub btFinal_Click()
Do
fCalendario.Show
If Fecha > cbInicial Then cbFinal = Fecha _
Else MsgBox "Recuerde que la fecha debe ser mayor

que la inicial"

Loop While Fecha <= cbInicial
End Sub

¿comentas?
saludos,
hector.


.