Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Evitar evento Timer ¿Como?

03/07/2003 - 12:49 por JK | Informe spam
Ayuda Hacer una pregunta
Tengo el siguiente código que hace lo siguiente:
Comprueba si en una tabla hay algun registro con cierto valor en cierto
campo.
Si encuentra algun valor, pongo de determinado color unas cajas de texto.
Todo esto, lo hace en el evento timer, por lo que pienso que la carga de
memoria y trabajo no es buena para la base.
¿Hay alguna alternativa al evento Timer ?
La intencion final de todo esto es poner de diferente color (para avisar)
unos txt, si en una tabla no existen cierto datos.
El código es este:

Private Sub Form_Timer()
Dim MiVariable
MiVariable = DCount("[Campo]", "Tabla", "[Campo] = 5")
If MiVariable = 0 Then
txtMiCuadroDeTexto.BackColor = vbRed
Else
txtMiCuadroDeTexto.BackColor = vbWhite
End If
End Sub

Hasta luego
JK
email Siga el debateRespuesta 6 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Búho
03/07/2003 - 13:16 | Informe spam
Ando un poco rapido, que me tengo que ir.
Si la comprobacion la tienes que hacer una sola vez, pon al final
TimerInterval = 0
con lo cual el Timer del Frm deja de actuar.
Si no es eso, ya hablaremos.
Me pirooooooo


Saludos desde Valladolid
Francisco Javier García Aguado
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/



"JK" escribió en el mensaje news:be11s6$pcc$
Tengo el siguiente código que hace lo siguiente:
Comprueba si en una tabla hay algun registro con cierto valor en cierto
campo.
Si encuentra algun valor, pongo de determinado color unas cajas de texto.
Todo esto, lo hace en el evento timer, por lo que pienso que la carga de
memoria y trabajo no es buena para la base.
¿Hay alguna alternativa al evento Timer ?
La intencion final de todo esto es poner de diferente color (para avisar)
unos txt, si en una tabla no existen cierto datos.
El código es este:

Private Sub Form_Timer()
Dim MiVariable
MiVariable = DCount("[Campo]", "Tabla", "[Campo] = 5")
If MiVariable = 0 Then
txtMiCuadroDeTexto.BackColor = vbRed
Else
txtMiCuadroDeTexto.BackColor = vbWhite
End If
End Sub

Hasta luego
JK







Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003

Preguntas similares

 

Busqueda sugerida :