Quien domina los timers ????
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.
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.
Gracias, con el DO EVENTS me ha funcionado, la verdad es que no lo habia pensado, y me estaba volviendo loco con los timers.
explicanos como tienes configurados los timers, y cómo llamas al timer en Form_Load
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.
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.