Actualiar campo de registro actual
Publicado por Campo de registro actual (7 intervenciones) el 24/02/2009 09:48:57
Hola, tengo una base de datos simple, lo que intento hacer es lo siguiente:
Tengo un form que visualiza todos los datos de la tabla, por cada registro tengo varios check. Cuando un check esta marcado intento que uno de los campos del registro seleccionado cambie de color, el problema es que me modifica ese campo, pero para todos los registros, no solo para el que tiene marcado el check.
¿Alguien podría decirme como indico que cambie solo el campo de registro actual?
El código que tengo es el siguiente:
Private Sub MIGUEL_AfterUpdate()
If MIGUEL.Value = True Then
If SONIA.Value = True Then
mensaje = MsgBox("Este cliente ya ha sido llamado", vbInformation, "Información")
MIGUEL.Value = False
Else
If SILVIA.Value = True Then
mensaje = MsgBox("Este cliente ya ha sido llamado", vbInformation, "Información")
MIGUEL.Value = False
Else
CODIGO.BackColor = 65280
End If
End If
Else
CODIGO.BackColor = 16777215
End If
End Sub
Gracias por adelantado
Tengo un form que visualiza todos los datos de la tabla, por cada registro tengo varios check. Cuando un check esta marcado intento que uno de los campos del registro seleccionado cambie de color, el problema es que me modifica ese campo, pero para todos los registros, no solo para el que tiene marcado el check.
¿Alguien podría decirme como indico que cambie solo el campo de registro actual?
El código que tengo es el siguiente:
Private Sub MIGUEL_AfterUpdate()
If MIGUEL.Value = True Then
If SONIA.Value = True Then
mensaje = MsgBox("Este cliente ya ha sido llamado", vbInformation, "Información")
MIGUEL.Value = False
Else
If SILVIA.Value = True Then
mensaje = MsgBox("Este cliente ya ha sido llamado", vbInformation, "Información")
MIGUEL.Value = False
Else
CODIGO.BackColor = 65280
End If
End If
Else
CODIGO.BackColor = 16777215
End If
End Sub
Gracias por adelantado
Valora esta pregunta
0