carlos
09 de Febrero del 2004

Resulta que tengo una aplicacion, que en el form_load, llama a un timer, el cual realiza una serie de funciones y una busqueda en una BD, a traves de otro timer que va controlando los parametros de esa busqueda.
El problema esta q al darle a ejecucion, no me coje el primer timer y no me funciona, y sin embargo en ejecucion paso a paso si que me lo coje y m funciona.
Tengo q cambiar algo en la configuracion de los timers?? u queeee???
Gracias.

carlos
09 de Febrero del 2004

Gracias, con el DO EVENTS me ha funcionado, la verdad es que no lo habia pensado, y me estaba volviendo loco con los timers.

en?
09 de Febrero del 2004

explicanos como tienes configurados los timers, y cómo llamas al timer en Form_Load

carlos
09 de Febrero del 2004

Configuracion:

timer1 : enabled = false
interval = 10

timer2 : enabled = false
interval= 200

Llamada :
Private Sub Form_Load()
\'Con este formulario podemos gestionar todo lo relacionado con los
\' representantes, busquedas, modificaciones, altas, etc
\'-----------------------------------------------------------------
\'Posicionamos el formulario en pantalla

Me.Left = (Screen.Width - Me.Width) / 2

Label2(1).Caption = "Codigo"
Fecha3 = Date$
Fecha4 = Mid(Fecha3, 7, 4) + Mid(Fecha3, 6, 1) + Mid(Fecha3, 1, 2) + Mid(Fecha3, 3, 1) + Mid(Fecha3, 4, 2)
Fecha6 = Mid(Fecha3, 4, 2) + Mid(Fecha3, 3, 1) + Mid(Fecha3, 1, 2) + Mid(Fecha3, 6, 1) + Mid(Fecha3, 7, 4)
Text5.Text = Fecha6
Text3.Text = ""
Text4.Text = ""
Text2.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
\'Acciones que realizamos para la inicializacion del formulario
\' despues del load_form
\'-------------------------------------------------------------
\'Desactivamos el timer
Timer1.Enabled = False
\'Inicializamos el numero de columnas de la rejilla
UCP = 7
\'Comprobamos si el usuario tiene acceso al formulario
\'If Mid(PubNivel, Val(Me.Tag), 1) <> "1" And Mid(PubNivel, Val(Me.Tag), 1) <> "2" Then
\'Si ni tiene acceso mostramos un mensaje de error
\' Respuesta = MsgBox("ACCESO DENEGADO", 16, "Control de acceso")
\'Descargamos el formulario
\' Unload Me
\'Salimos
\' Exit Sub
\'End If
\' Opciones:
\' 1º 0=, 1<>, 2>, 3>=, 4!>, 5<, 6<=, 7!>, 8incluye
\' 2º 9 al principio, 10 al final, 11 en cualquier lugar
\' 3º 0Normal, 2Niega condición
\' 4º Nombre del campo
Op(0, 1) = 8: Op(0, 2) = 11: Op(0, 3) = 0: Op4(0) = "SegTipo" \' Tipo de seguimiento
Op(1, 1) = 8: Op(1, 2) = 11: Op(1, 3) = 0: Op4(1) = "SegCodCta" \' código cuenta
Op(2, 1) = 8: Op(2, 2) = 11: Op(2, 3) = 0: Op4(2) = "SegDoc" \' Documento
Op(3, 1) = 8: Op(3, 2) = 11: Op(3, 3) = 0: Op4(3) = "SegFecha" \' Fecha
Op(4, 1) = 8: Op(4, 2) = 11: Op(4, 3) = 0: Op4(4) = "SegComentario" \' Comentario
Op(5, 1) = 8: Op(5, 2) = 11: Op(5, 3) = 0: Op4(5) = "SegVT" \' Visita o Telefono
Op(6, 1) = 8: Op(6, 2) = 11: Op(6, 3) = 0: Op4(6) = "SegCodPer" \' Usuario
Op(7, 1) = 8: Op(7, 2) = 11: Op(7, 3) = 0: Op4(7) = "SegDestaca" \' Destacado

\'Inicializacion de los anchos de las columnas
Ancho(0) = 500
Ancho(1) = 1000
Ancho(2) = 1000
Ancho(3) = 1200
Ancho(4) = 6000
Ancho(5) = 500
Ancho(6) = 1000
Ancho(7) = 1000

\'Inicializamos la rejillas
BorroRejilla
\'Ponemos el foco en el text del codigo
Text13(1).SetFocus

End Sub
Private Sub Text13_Change(Index As Integer)
Timer2.Enabled = True

End Sub

---------------------------------------------------
La cuestion es q hago una busqueda en tiempo real en un recordset que muestro en un msflexgrid a traves de un texto, es decir que pongo una letra en el texto y me salen solo los registros con esas letras en ese campo.

en?
09 de Febrero del 2004

pues no lo entiendo, debería funcionar.

sólo se me ocurre que pruebes el ir incrementando el intervalo del timer

pero primero, por si acaso pon un DoEvents

Timer1.Enabled = True
DoEvents


pruébalo y a ver que pasa.