Access - casillas de verificación

 
Vista:
sin imagen de perfil

casillas de verificación

Publicado por Jose (13 intervenciones) el 06/12/2011 12:24:18
Hola a todos:
Me gustaría saber como puedo en un formulario tabular, desmarcar todas las casillas de verificación de un campo.
El objetivo es simple no tener que ir desmarcandolas una a una.
Un saludo
Jose
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

casillas de verificación

Publicado por jose (830 intervenciones) el 06/12/2011 13:23:58
Rem rem desmarca MODIFICAR
Rem abre un recorset
Rem graba
Set RS = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection
c10 = "": c20 = "": c30 = "": c40 = "": C50 = "": c60 = " ": c70 = "": c80 = ""
c10 = " UPDATE [3T-GRUPOS] SET [3T-GRUPOS].MODIFICAR = 0"
c20 = " WHERE ((([3T-GRUPOS].NUMGRUPO)=" & Forms![3F-GRUPOS-AUTORIZADOS]!NUMGRUPO & " ))"

consulta = c10 & c20 & c30 & c40 & C50 & c60 & c70 & c80
'MsgBox CONSULTA
RS.Open consulta, CON, adOpenDynamic, adLockOptimistic



------------------------------------



Rem rem marca modificar
Rem abre un recorset
Rem graba
Set RS = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection
c10 = "": c20 = "": c30 = "": c40 = "": C50 = "": c60 = " ": c70 = "": c80 = ""
c10 = " UPDATE [3T-GRUPOS] SET [3T-GRUPOS].MODIFICAR = -1"
c20 = " WHERE ((([3T-GRUPOS].NUMGRUPO)=" & Forms![3F-GRUPOS-AUTORIZADOS]!NUMGRUPO & " ))"

consulta = c10 & c20 & c30 & c40 & C50 & c60 & c70 & c80
'MsgBox CONSULTA
RS.Open consulta, CON, adOpenDynamic, adLockOptimistic
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

casillas de verificación

Publicado por Marcelo (166 intervenciones) el 06/12/2011 16:12:38
En el encabezado del formulario yo colocaría un Botón de Comando asociado a una Macro que ejecutara una Consulta de Actualización. La consulta en SQL sería:

UPDATE Tabla1 SET Tabla1.Verificacion = 0;

- o bien -

No se si programas en VBA, sería:

Asocias al botón de comando el código al evento Al hacer Clic

'Quita las advertencias
DoCmd.SetWarnings False

DoCmd.RunSQL "UPDATE Tabla1 SET Tabla1.Verificacion = 0;"

'Restablece las advertencias, esto es para que no te pregunte si quieres hacer el cambio,
'no olvides reestablecer siempre las advertencias.

DoCmd.SetWarnings True
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

casillas de verificación

Publicado por Jose (13 intervenciones) el 06/12/2011 17:49:10
Gracias a todos
Conseguido con consulta de actualización
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar