Private Sub Check22_Click()
If Check22.Value = 1 Then
Check22.Caption = "Destilde todos los capos "
Check1.Value = 1
Check2.Value = 1
Check3.Value = 1
Check4.Value = 1
Check5.Value = 1
Check6.Value = 1
Check7.Value = 1
Check8.Value = 1
Check9.Value = 1
Check10.Value = 1
Check11.Value = 1
Check12.Value = 1
Check13.Value = 1
Check14.Value = 1
Check15.Value = 1
Check16.Value = 1
Check17.Value = 1
Check18.Value = 1
Check19.Value = 1
Check20.Value = 1
Else
Check22.Caption = "Tilde Todos los campos "
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Check7.Value = 0
Check8.Value = 0
Check9.Value = 0
Check10.Value = 0
Check11.Value = 0
Check12.Value = 0
Check13.Value = 0
Check14.Value = 0
Check15.Value = 0
Check16.Value = 0
Check17.Value = 0
Check18.Value = 0
Check19.Value = 0
Check20.Value = 0
End If
End Sub
Private Sub Command1_Click()
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
If Text1.Text = "" Then
MsgBox "Debes ingresar el ID del equipo", vbCritical
Exit Sub
End If
With RS
.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
App.Path & "\db1.mdb"
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "Select USUARIO, PERMISO1,PERMISO2, PERMISO3,PERMISO4,PERMISO5,PERMISO6,PERMISO7,PERMISO8,PERMISO9,PERMISO10,PERMISO11,PERMISO12,PERMISO13,PERMISO14,PERMISO15,PERMISO16,PERMISO17,PERMISO18,PERMISO19,PERMISO20 from CLAVE where id =" & Text1.Text
End With
' cargar el Grid
'Set MSHFlexGrid1.DataSource = RS
' MSHFlexGrid1.SelectionMode = flexSelectionByRow
If RS.RecordCount = 0 Then
MsgBox "RecordSet vacio, intente con otro id"
Else
Text2.Enabled = True
Check1.Enabled = True
Check2.Enabled = True
Check3.Enabled = True
Check4.Enabled = True
Check5.Enabled = True
Check6.Enabled = True
Check7.Enabled = True
Check8.Enabled = True
Check9.Enabled = True
Check10.Enabled = True
Check11.Enabled = True
Check12.Enabled = True
Check13.Enabled = True
Check14.Enabled = True
Check15.Enabled = True
Check16.Enabled = True
Check17.Enabled = True
Check18.Enabled = True
Check19.Enabled = True
Check20.Enabled = True
If Not IsNull(RS.Fields.Item(0).Value) Then
Text2.Text = RS.Fields.Item(0).Value
End If
If Not IsNull(RS.Fields.Item(2).Value) Then
Check1.Value = RS.Fields.Item(2).Value
End If
If Not IsNull(RS.Fields.Item(3).Value) Then
Check2.Value = RS.Fields.Item(3).Value
End If
If Not IsNull(RS.Fields.Item(4).Value) Then
Check3.Value = RS.Fields.Item(4).Value
End If
If Not IsNull(RS.Fields.Item(5).Value) Then
Check4.Value = RS.Fields.Item(5).Value
End If
If Not IsNull(RS.Fields.Item(6).Value) Then
Check5.Value = RS.Fields.Item(6).Value
End If
If Not IsNull(RS.Fields.Item(7).Value) Then
Check6.Value = RS.Fields.Item(7).Value
End If
If Not IsNull(RS.Fields.Item(8).Value) Then
Check7.Value = RS.Fields.Item(8).Value
End If
If Not IsNull(RS.Fields.Item(9).Value) Then
Check8.Value = RS.Fields.Item(9).Value
End If
If Not IsNull(RS.Fields.Item(10).Value) Then
Check9.Value = RS.Fields.Item(10).Value
End If
If Not IsNull(RS.Fields.Item(11).Value) Then
Check10.Value = RS.Fields.Item(11).Value
End If
If Not IsNull(RS.Fields.Item(12).Value) Then
Check11.Value = RS.Fields.Item(12).Value
End If
If Not IsNull(RS.Fields.Item(13).Value) Then
Check12.Value = RS.Fields.Item(13).Value
End If
If Not IsNull(RS.Fields.Item(14).Value) Then
Check13.Value = RS.Fields.Item(14).Value
End If
If Not IsNull(RS.Fields.Item(15).Value) Then
Check14.Value = RS.Fields.Item(15).Value
End If
If Not IsNull(RS.Fields.Item(16).Value) Then
Check15.Value = RS.Fields.Item(16).Value
End If
If Not IsNull(RS.Fields.Item(17).Value) Then
Check16.Value = RS.Fields.Item(17).Value
End If
If Not IsNull(RS.Fields.Item(18).Value) Then
Check17.Value = RS.Fields.Item(18).Value
End If
If Not IsNull(RS.Fields.Item(19).Value) Then
Check18.Value = RS.Fields.Item(19).Value
End If
If Not IsNull(RS.Fields.Item(20).Value) Then
Check19.Value = RS.Fields.Item(20).Value
End If
End If
End Sub
Private Sub Command2_Click()
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
With RS
.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
App.Path & "\db1.mdb"
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "UPDATE CLAVE SET USUARIO=" & Chr(34) & Text2.Text & Chr(34) & ", PERMISO1=" & Chr(10) & Check1.Value & Chr(10) & ", PERMISO2=" & Chr(10) & Check2.Value & Chr(10) & ", PERMISO3=" & Chr(10) & Check3.Value & Chr(10) & ", PERMISO4=" & Chr(10) & Check4.Value & Chr(10) & ", PERMISO5=" & Chr(10) & Check5.Value & Chr(10) & ", PERMISO6=" & Chr(10) & Check6.Value & Chr(10) & ", PERMISO7=" & Chr(10) & Check7.Value & Chr(10) & ", PERMISO8=" & Chr(10) & Check8.Value & Chr(10) & ", PERMISO9=" & Chr(10) & Check9.Value & Chr(10) & ", PERMISO10=" & Chr(10) & Check10.Value & Chr(10) & ", PERMISO11=" & Chr(10) & Check11.Value & Chr(10) & ", PERMISO12=" & Chr(10) & Check12.Value & Chr(10) & ", PERMISO13=" & Chr(10) & Check13.Value & Chr(10) & ", PERMISO14=" & Chr(10) & Check14.Value & Chr(10) & ",PERMISO15=" & Chr(10) & Check15.Value & Chr(10) & ",PERMISO16=" & Chr(10) & Check16.Value & Chr(10) & ",PERMISO17=" & Chr(10) & Check17.Value & Chr(10) & ",PERMISO18=" & Chr(10) & Check18.Value & Chr(10) & " Where ID = " & Text1
MsgBox ("Modificacion exitosa!")
End With
End Sub
Private Sub Form_Load()
Text1.Enabled = True
Text2.Enabled = False
Check1.Enabled = False
Check2.Enabled = False
Check3.Enabled = False
Check4.Enabled = False
Check5.Enabled = False
Check6.Enabled = False
Check7.Enabled = False
Check8.Enabled = False
Check9.Enabled = False
Check10.Enabled = False
Check11.Enabled = False
Check12.Enabled = False
Check13.Enabled = False
Check14.Enabled = False
Check15.Enabled = False
Check16.Enabled = False
Check17.Enabled = False
Check18.Enabled = False
Check19.Enabled = False
Check20.Enabled = False
End Sub