REDES SOCIALES

BOTON EDITAR

Private Sub CmdEditar_Click()If MsgBox("¿Desea modificar este contacto?", vbQuestion + vbYesNo, "Luis Duarte") = vbYes ThenModoEditar TrueCmdGuardar.Enabled = TrueCmdNuevo.Enabled = TrueCmdComcel.Enabled = TrueCmdMovistar.Enabled = TrueCmdTigo.Enabled = TrueCmdFijo.Enabled = True
End If
End Sub

BOTON GUARDAR

Private Sub CmdGuardar_Click()DeNumerosdecelular.rsCmNumeros.Update
ModoEditar False
End Sub

BOTON EDITAR

Private Sub CmdEditar_Click()If MsgBox("¿Desea modificar este contacto?", vbQuestion + vbYesNo, "Luis Duarte") = vbYes ThenModoEditar TrueCmdGuardar.Enabled = True
CmdNuevo.Enabled = True
CmdComcel.Enabled = True
CmdMovistar.Enabled = True
CmdTigo.Enabled = True
CmdFijo.Enabled = True
End If
End Sub

BOTON ELIMINAR

Private Sub CmdEliminar_Click()If MsgBox("¿Esta seguro de eliminarlo?", vbQuestion + vbYesNo, "Luis Duarte") = vbYes Then
CmdComcel.Enabled = False
CmdMovistar.Enabled = False
CmdTigo.Enabled = FalseCmdFijo.Enabled = FalseDeNumerosdecelular.rsCmNumeros.DeleteDeNumerosdecelular.rsCmNumeros.MoveNextIf DeNumerosdecelular.rsCmNumeros.EOF Then
DeNumerosdecelular.rsCmNumeros.MoveLast
End If
End If
End Sub