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