Si tienes XP, que todavia somos muchos los que lo usamos te puedes haber encontrado con este mensaje al encender el equipo Error al cargar NTLDR. Operating System not found, si tienes partición NTFS, debes arrancar el equipo con el CD-ROM de instalación de Windows XP y entrar en la opción de Reparar (R), abrir la consola de recuperación. Una vez en la consola introduce los siguientes comandos (E simboliza la unidad asignada al CD-ROM):
* COPY E:\i386\NTLDR C:\ (pulsar Enter)
* COPY E:\i386\NTDETECT.COM C:\ (pulsar Enter)
Sacamos el CD-ROM de Windows XP y tecleamos 'exit' en la consola de recuperación para reiniciar el equipo.
Crear punto restauracion windows 10 windows 7
Windows nos da la posibilidad de crear puntos de restauración para que puedas restaurar el sistema a una fecha anterior. Esto puede ser útil si ha instalado actualizaciones o programas que están causando problemas. Sigue los pasos que a continuación te digo para crear un punto de restauración.
1) Escribe Punto de restauración en el cuadro búsqueda de la barra de tareas y presiona Intro.
2) Haz clic en Configurar..... y selecciona Activar protección del sistema.
3) Haz clic en Aplicar y selecciona Aceptar.
4) Selecciona Crear..... y escribe un nombre para el punto de restauración, aconsejo poner la fecha y hora para si tenerlo como indicativo.
5) Haz clic en Crear y elige Cerrar para crear el punto de restauración.
6) Listo.
1) Escribe Punto de restauración en el cuadro búsqueda de la barra de tareas y presiona Intro.
2) Haz clic en Configurar..... y selecciona Activar protección del sistema.
3) Haz clic en Aplicar y selecciona Aceptar.
4) Selecciona Crear..... y escribe un nombre para el punto de restauración, aconsejo poner la fecha y hora para si tenerlo como indicativo.
5) Haz clic en Crear y elige Cerrar para crear el punto de restauración.
6) Listo.
VBA seleccionar celdas y rangos
En más de una ocasión quienes trabajamos con Macros en Excel nos encontramos con la necesidad de seleccionar una celda o un rango de celdas de Excel.
Cómo seleccionar una celda en una hoja activa
Para seleccionar la celda A5 en la hoja activa, puede utilizar cualquiera de los ejemplos siguientes:
a) ActiveSheet.Cells(1, 1).Select
b) ActiveSheet.Range("A5").Select
Cómo seleccionar una celda en otra hoja del mismo libro
Para seleccionar la celda B6 en otra hoja del mismo libro, puede utilizar cualquiera de los ejemplos siguientes:
a) Application.Goto ActiveWorkbook.Sheets("[Nombre_Hoja]").Cells(2, 5)
b) Application.Goto (ActiveWorkbook.Sheets("[Nombre_Hoja]").Range("B6"))
c) Sheets("[Nombre_Hoja]").Activate
ActiveSheet.Cells(2,5).Select
Cómo seleccionar una celda en una hoja de un libro diferente
Para seleccionar la celda C3 en una hoja de un libro diferente, puede utilizar cualquiera de los ejemplos siguientes:
a) Application.Goto Workbooks("BOOK2.XLS").Sheets("[Nombre_Hoja]").Cells(3,3)
b) Application.Goto Workbooks("BOOK2.XLS").Sheets("[Nombre_Hoja]").Range("C3")
c) Workbooks("[Nombre_Archivo").Sheets("[Nombre_Hoja]").Activate
ActiveSheet.Cells(3, 3).Select
Cómo seleccionar un rango de celdas en otra hoja del mismo libro
Para seleccionar el rango A2:C8 en otra hoja del mismo libro, puede utilizar cualquiera de los ejemplos siguientes:
a) Application.Goto ActiveWorkbook.Sheets("[Nombre_Hoja]").Range("A2:C8")
b) Application.Goto ActiveWorkbook.Sheets("[Nombre_Hoja]").Range("A2", "C8")
c) Sheets("[Nombre_Hoja]").Activate
ActiveSheet.Range(Cells(1, 2), Cells(3, 8)).Select
Cómo seleccionar una celda en una hoja activa
Para seleccionar la celda A5 en la hoja activa, puede utilizar cualquiera de los ejemplos siguientes:
a) ActiveSheet.Cells(1, 1).Select
b) ActiveSheet.Range("A5").Select
Cómo seleccionar una celda en otra hoja del mismo libro
Para seleccionar la celda B6 en otra hoja del mismo libro, puede utilizar cualquiera de los ejemplos siguientes:
a) Application.Goto ActiveWorkbook.Sheets("[Nombre_Hoja]").Cells(2, 5)
b) Application.Goto (ActiveWorkbook.Sheets("[Nombre_Hoja]").Range("B6"))
c) Sheets("[Nombre_Hoja]").Activate
ActiveSheet.Cells(2,5).Select
Cómo seleccionar una celda en una hoja de un libro diferente
Para seleccionar la celda C3 en una hoja de un libro diferente, puede utilizar cualquiera de los ejemplos siguientes:
a) Application.Goto Workbooks("BOOK2.XLS").Sheets("[Nombre_Hoja]").Cells(3,3)
b) Application.Goto Workbooks("BOOK2.XLS").Sheets("[Nombre_Hoja]").Range("C3")
c) Workbooks("[Nombre_Archivo").Sheets("[Nombre_Hoja]").Activate
ActiveSheet.Cells(3, 3).Select
Cómo seleccionar un rango de celdas en otra hoja del mismo libro
Para seleccionar el rango A2:C8 en otra hoja del mismo libro, puede utilizar cualquiera de los ejemplos siguientes:
a) Application.Goto ActiveWorkbook.Sheets("[Nombre_Hoja]").Range("A2:C8")
b) Application.Goto ActiveWorkbook.Sheets("[Nombre_Hoja]").Range("A2", "C8")
c) Sheets("[Nombre_Hoja]").Activate
ActiveSheet.Range(Cells(1, 2), Cells(3, 8)).Select
VBA Instrucciones Macros
Desactivar el parpadeo o actualizacion de pantalla al ejecutarse una macro.
Application.ScreenUpdating = False
Desactivar mensajes de alerta a la hora de ejecutar procesos
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Desactivar mensajes de alerta a la hora de ejecutar procesos
Application.DisplayAlerts = False
VBA Procesos para Graficos
Proceso para averiguar el nombre del gráfico.
MsgBox ActiveChart.Name
Proceso para cambiar nombre del gráfico
Worksheets("[Nombre Hoja]").ChartObjects("[Nombre_Grafico]").Name = "[Nuevo Nombre]"
Proceso para cambiar el titulo al gráfico.
Gráfico incrustado:
Application.Workbooks("[Nombre_libro]").Worksheets("[Nombre Hoja]").ChartObjects("[Nombre_Grafico]").Chart.ChartTitle.Text = "[Nuevo Titulo]"
Application.Workbooks("[Nombre_libro]")--> de estas instrucciones podemos prescindir ya que estamos en ellos.
Gráfico Hoja Independiente:
Sheets ["Nombre_Grafico]").ChartTitle.Text = "[Nuevo Titulo]"
Proceso para cambiar un gráfico de Incrustado a Independiente
Worksheets("[Nombre_Hoja]").ChartObjects("[Nombre_Grafico").Chart.Location xlLocationAsNewSheet, "[Nombre_Nueva_Hoja]"
El proceso inverso, de Independiente a Incrustado
Charts ("Grafico1").Location xlLocationAsNewSheet, "[Nombre_Hoja]"
Proceso para activar el gráfico
Worksheets("[Nombre_Hoja]").ChartObjects("[Nombre_Grafico").Activate
Cambiar tipo de gráfico
activechart.type = XLl[tipo_grafico]
Crear boton y eliminar graficos de la hoja.
Dentro del botón pegar esta instrucción
Activesheet.chartobjects.delete
Crear boton activex para poder cambiar el formato del gráfico.
Hay muchas mas instrucciones aqui algunas de ellas.
ActiveSheet.ChartObjects("[Nombre_Grafico").Activate
With ActiveChart
.Type = xlArea
.ChartArea.Font.Name = "[Tipo_Letra]"
.ChartArea.Font.Size = "[Tamaño_Letra]"
.PlotArea.Interior.Color = vb[Color_en_Ingles
.Axes(xlValue).TickLabels.Font.[Tipo_Fuente] = True
.Axes(xlCategory).TickLabels.Font.[Tipo_Fuente] = True
.Legend.Position = xlLegendPositionBottom
End With
Modificar todos los graficos incrustados en la hoja
dim [nombre_variable] as chartobject
for each [nombre_variable] in Activesheet.ChartObject
[colocar las instrucciones a efectuar ]
next [nombre_variable]
MsgBox ActiveChart.Name
Proceso para cambiar nombre del gráfico
Worksheets("[Nombre Hoja]").ChartObjects("[Nombre_Grafico]").Name = "[Nuevo Nombre]"
Proceso para cambiar el titulo al gráfico.
Gráfico incrustado:
Application.Workbooks("[Nombre_libro]").Worksheets("[Nombre Hoja]").ChartObjects("[Nombre_Grafico]").Chart.ChartTitle.Text = "[Nuevo Titulo]"
Application.Workbooks("[Nombre_libro]")--> de estas instrucciones podemos prescindir ya que estamos en ellos.
Gráfico Hoja Independiente:
Sheets ["Nombre_Grafico]").ChartTitle.Text = "[Nuevo Titulo]"
Proceso para cambiar un gráfico de Incrustado a Independiente
Worksheets("[Nombre_Hoja]").ChartObjects("[Nombre_Grafico").Chart.Location xlLocationAsNewSheet, "[Nombre_Nueva_Hoja]"
El proceso inverso, de Independiente a Incrustado
Charts ("Grafico1").Location xlLocationAsNewSheet, "[Nombre_Hoja]"
Proceso para activar el gráfico
Worksheets("[Nombre_Hoja]").ChartObjects("[Nombre_Grafico").Activate
Cambiar tipo de gráfico
activechart.type = XLl[tipo_grafico]
Crear boton y eliminar graficos de la hoja.
Dentro del botón pegar esta instrucción
Activesheet.chartobjects.delete
Crear boton activex para poder cambiar el formato del gráfico.
Hay muchas mas instrucciones aqui algunas de ellas.
ActiveSheet.ChartObjects("[Nombre_Grafico").Activate
With ActiveChart
.Type = xlArea
.ChartArea.Font.Name = "[Tipo_Letra]"
.ChartArea.Font.Size = "[Tamaño_Letra]"
.PlotArea.Interior.Color = vb[Color_en_Ingles
.Axes(xlValue).TickLabels.Font.[Tipo_Fuente] = True
.Axes(xlCategory).TickLabels.Font.[Tipo_Fuente] = True
.Legend.Position = xlLegendPositionBottom
End With
Modificar todos los graficos incrustados en la hoja
dim [nombre_variable] as chartobject
for each [nombre_variable] in Activesheet.ChartObject
[colocar las instrucciones a efectuar ]
next [nombre_variable]
VBA estructuras control de flujo
Estructuras de control de flujo en Visual Basic Application (VBA):
* Condicionales
- If - then
- Then - case
* Bucles
- Determinados: conocemos las veces que se ejecutará el codigo en su interior.
. For - Next
. For - each - next
- Indeterminados: no conocemos las veces que se ejecutará el codigo en su interior.
. Do - loop
. While - wend
. Do - until
* Goto: No aconsejable su uso (codigo espaghetti) excepto para el uso de VBA: captura de errores.
* Condicionales
- If - then
- Then - case
* Bucles
- Determinados: conocemos las veces que se ejecutará el codigo en su interior.
. For - Next
. For - each - next
- Indeterminados: no conocemos las veces que se ejecutará el codigo en su interior.
. Do - loop
. While - wend
. Do - until
* Goto: No aconsejable su uso (codigo espaghetti) excepto para el uso de VBA: captura de errores.
VBA Constantes
La instrucción Const se utiliza para declarar una constante y establecer su valor. Al declarar una constante, puede asignar un nombre significativo a un valor. Una vez que se declara una constante, no se puede modificar ni se le puede asignar un nuevo valor.
- byte = 0 a 255
- boolean = True (verdadero) o false (Falso)
- integer = nº entero (Desde -32768 al 32767)
- long = nº enteros largos
- single = nº decimales (parte decimal corta)
- double = nº decimales (parte decimal larga)
- currency = tipo moneda
- decimal = nº decimales (parte decimal extremadamente larga)
- object = objeto
- string = cadena de caracteres - estos valores siempre van entre comillas
- variant = sin especificar (comodín) mejor no usarlo.
Depende el tipo de datos abarca muchos mas recursos.
CONST 'nombre' as [tipo de valor]
Podemos declarar una constante de diferentes maneras:
1) Local a nivel procedimiento: solo en el procedimiento concreto
2) Local a nivel de modulo: valida a todos los procedimientos del modulo
3) Publica: se puede utilizar a cualquier modulo del proyecto.
1) Declarando la constante dentro del procedimiento, solo se leera dentro de ese procedimiento.
2) Declarando la constante fuera del procedimiento sera capaz de leer a nivel de modulo.
3) Declarando la constante en vez de DIM poner PUBLIC
1) y 2) Const nombre As String
3) Public Const nombre as String
VBA Tipos Datos Variables
Tipos de Datos y Variables VBA
Depende el tipo de datos abarca muchos mas recursos.
Puedes obligar a que se active la declaración de variables en cada modulo, a partir de:
Herramientas > Opciones > Requerir declaración de variables.
De esta manera te obligará a declarar las variables que siempre es 'muy importante' hacerlo. Al
Variables : Es un espacio en la memoria del ordenador donde se puede almacenar un valor que podrá variar el valor durante la ejecución de un programa.
Como se declaran las variables : con la linea de codigo: dim 'nombre' as [tipo de dato], 'nombre' as [tipo de dato] sino ponemos el tipo de dato por defecto nos asignar 'variant' y equivale a un consumo mayor de recursos.
Ejemplo de procedimientos Sub
Ejemplo 1
Sub tipos_datos()
Dim nombre As String
nombre = "alberto"
Dim edad As Byte
edad = 43
End Sub
Ejemplo 2
Sub tipo_datos2()
Dim nombre As String, edad As Integer
nombre = "alberto": edad = 43
End Sub
Podemos declarar una variable de diferentes maneras:
1) Local a nivel procedimiento: solo en el procedimiento concreto
2) Local a nivel de modulo: valida a todos los procedimientos del modulo
3) Publica: se puede utilizar a cualquier modulo del proyecto.
1) Declarando la variable dentro del procedimiento, solo se leera dentro de ese procedimiento.
2) Declarando la variable fuera del procedimiento sera capaz de leer a nivel de modulo.
3) Declarando la variable en vez de DIM poner PUBLIC
1) y 2) Dim nombre As String
3) Public nombre as String
Tipo de datos
|
Tamaño
|
Intervalo
|
Byte
|
byte
|
0 a 255
|
Boolean
|
bytes
|
True o False
|
Integer
|
bytes
|
-32,768 a 32,767
|
Long (entero largo)
|
bytes
|
-2,147,483,648 a 2,147,483,647
|
Single (coma flotante/ precisión simple)
|
bytes
|
-3,402823E38 a -1,401298E-45 para valores negativos; 1,401298E-45 a 3,402823E38 para valores positivos
|
Double (coma flotante/ precisión doble)
|
bytes
|
-1.79769313486231E308 a -4,94065645841247E-324 para valores negativos; 4,94065645841247E-324 a 1,79769313486232E308 para valores positivos
|
Currency (entero a escala)
|
bytes
|
-922.337.203.685.477,5808 a 922.337.203.685.477,5807
|
Decimal
|
bytes
|
+/-79.228.162.514.264.337.593.543.950.335 sin punto decimal; +/-7,9228162514264337593543950335 con 28 posiciones a la derecha del signo decimal; el número más pequeño distinto de cero es +/-0,0000000000000000000000000001
|
Date
|
bytes
|
1 de enero de 100 a 31 de diciembre de 9999
|
Object
|
bytes
|
Referencia a tipo Object
|
String (longitud variable)
|
bytes + longitud de la cadena
|
0 a 2.000 millones
|
String (longitud fija)
|
longitud de la cadena
|
1 a 65.400 aproximadamente
|
Variant (con números)
|
bytes
|
valor numérico hasta el intervalo de un tipo Double
|
Variant (con caracteres)
|
bytes + longitud de la cadena
|
mismo intervalo que para un tipo String de longitud variable
|
Definido por el usuario (utilizando Type)
|
número requerido por los elementos
|
intervalo de cada elemento es el mismo que el intervalo de su tipo de datos.
|
Depende el tipo de datos abarca muchos mas recursos.
Puedes obligar a que se active la declaración de variables en cada modulo, a partir de:
Herramientas > Opciones > Requerir declaración de variables.
De esta manera te obligará a declarar las variables que siempre es 'muy importante' hacerlo. Al
Variables : Es un espacio en la memoria del ordenador donde se puede almacenar un valor que podrá variar el valor durante la ejecución de un programa.
Como se declaran las variables : con la linea de codigo: dim 'nombre' as [tipo de dato], 'nombre' as [tipo de dato] sino ponemos el tipo de dato por defecto nos asignar 'variant' y equivale a un consumo mayor de recursos.
Ejemplo de procedimientos Sub
Ejemplo 1
Sub tipos_datos()
Dim nombre As String
nombre = "alberto"
Dim edad As Byte
edad = 43
End Sub
Ejemplo 2
Sub tipo_datos2()
Dim nombre As String, edad As Integer
nombre = "alberto": edad = 43
End Sub
Podemos declarar una variable de diferentes maneras:
1) Local a nivel procedimiento: solo en el procedimiento concreto
2) Local a nivel de modulo: valida a todos los procedimientos del modulo
3) Publica: se puede utilizar a cualquier modulo del proyecto.
1) Declarando la variable dentro del procedimiento, solo se leera dentro de ese procedimiento.
2) Declarando la variable fuera del procedimiento sera capaz de leer a nivel de modulo.
3) Declarando la variable en vez de DIM poner PUBLIC
1) y 2) Dim nombre As String
3) Public nombre as String
Restaurar windows 10 o 7 desde punto restauracion
Sigue los pasos a continuación te indico para restaurar tu ordenador a una fecha anterior utilizando un punto de restauración:
1) Escribe recuperación en el cuadro búsqueda de la barra de tareas y escoge Recuperación (Panel de control).
2) Haz clic en Abrir Restaurar sistema.
3) Haz clic en Siguiente.
4) Selecciona el punto de restauración, y haz clic en Siguiente. Haz clic en Finalizar.
El ordenador se reiniciará y mostrará un mensaje en el escritorio confirmando que la restauración fue correcta.
1) Escribe recuperación en el cuadro búsqueda de la barra de tareas y escoge Recuperación (Panel de control).
2) Haz clic en Abrir Restaurar sistema.
3) Haz clic en Siguiente.
4) Selecciona el punto de restauración, y haz clic en Siguiente. Haz clic en Finalizar.
El ordenador se reiniciará y mostrará un mensaje en el escritorio confirmando que la restauración fue correcta.
Comprobacion del Disco Duro
En caso de que detectemos un error en disco duro o como prevención y comprobación de la salud del disco duro es conveniente comprobar periodicamente nuestros discos duros para evitar perdidas de información. Tenemos una utilidad de Windows para tal función esta utilidad nos revisará el estado del disco duro comprobando su integridad, probará reparar sectores defectuosos o dañados, y si fuera necesario, esos errores los aislaría para que no tenerlos en cuenta en otras búsquedas posteriores.Aparte desde el mismo Sistema Operativo tenemos otros comandos que pueden ser usados desde la consola de recuperación o desde el prompt del sistema chkdsk. Cada uno de estos comandos tiene unos modificadores para realizar las funciones que nosotros creamos necesarias.
Algunos fabricantes ofrecen soluciones específicas para sus productos. Hay que tener en cuenta que solo funcionan con unidades de disco de la propia marca.
1.- Seagate Tools │ Seagate
2.- Western Digital DLGDIAG (Data Lifeguard Diagnostic) │ Western
3.- Samsung Hutil │ Samsung
También tenemos herramientas independientes como CrystalDiskInfo, esta es una de las mejores, y gratuita.
Más información | CrystalDiskInfo
* Como usar CHKDSK desde el explorador de Windows.
1.- Dirigete al explorador de windows.
2.- Pulsa encima de la unidad a comprobar con el boton derecho de ratón y pulsa en Propiedades
3.- En la pestaña Herramientas pulsa el botón Comprobar, se abrirá la ventana Comprobar Disco
* Como usar CHKDSK desde la consola de CMD o en el comando Ejecutar.
1.- Una vez entras en la consola CMD con permisos de administrador escribe: CHKDSK más la letra de la unidad a revisar seguida de dos puntos y a continuación el parámetro.
chkdsk (Unidad): (parámetros)
ejemplos para la unidad C - CHKDSK C:
CHKDSK C:/F
CHKDSK C:/F /R
De esta manera podemos ejecutar directamente desde el cuadro de inicio de windows.
CMD.EXE /K CHKDSK C: /F
Parámetros que se pueden emplear con CHKDSK:
/f - Este parámetro nos permite corregir errores en el disco.
/r - Encuentra los sectores dañados y recupera la información en ellos que sea posible recuperar.
/i - Realiza una comprobación menos exhaustiva de entradas de índice (Sólo para NTFS)
/c - Omite la comprobación de ciclos dentro de la estructura de carpetas (Sólo para NTFS)
Los dos anteriores reducen la cantidad de tiempo necesario para ejecutar Chkdsk ya que omiten ciertas comprobaciones en el volumen.
/x - Fuerza al volumen a desmontarse primero si es necesario (es necesario usar /f)
/b - Vuelve a evaluar los clústeres incorrectos en el volumen es necesario usar /r (Sólo para NTFS)
/? - Despliega la ayuda de chkdsk.
* Como usar CHKDSK desde la consola de recuperación.
Si no se inicia Windows podemos ejecutar para intentar recuperar el disco duro. La Consola de recuperación es una ventana de MSDOS que se ejecuta desde un disco de instalación Windows.
En esta opción solo hay dos parametros:
CHKDSK - Simplemente muestra el estado del disco de inicio.
CHKDSK C: /P - Chequea el disco y corrige errores.
CHKDSK C: /R - Chequea el disco, corrige errores, localiza sectores dañados y trata de recuperar la información que sea posible.
Hay recordar que antes de hacer cualquier paso, realizar una copia de seguridad, por si acaso!!
Algunos fabricantes ofrecen soluciones específicas para sus productos. Hay que tener en cuenta que solo funcionan con unidades de disco de la propia marca.
1.- Seagate Tools │ Seagate
2.- Western Digital DLGDIAG (Data Lifeguard Diagnostic) │ Western
3.- Samsung Hutil │ Samsung
También tenemos herramientas independientes como CrystalDiskInfo, esta es una de las mejores, y gratuita.
Más información | CrystalDiskInfo
* Como usar CHKDSK desde el explorador de Windows.
1.- Dirigete al explorador de windows.
2.- Pulsa encima de la unidad a comprobar con el boton derecho de ratón y pulsa en Propiedades
3.- En la pestaña Herramientas pulsa el botón Comprobar, se abrirá la ventana Comprobar Disco
* Como usar CHKDSK desde la consola de CMD o en el comando Ejecutar.
1.- Una vez entras en la consola CMD con permisos de administrador escribe: CHKDSK más la letra de la unidad a revisar seguida de dos puntos y a continuación el parámetro.
chkdsk (Unidad): (parámetros)
ejemplos para la unidad C - CHKDSK C:
CHKDSK C:/F
CHKDSK C:/F /R
De esta manera podemos ejecutar directamente desde el cuadro de inicio de windows.
CMD.EXE /K CHKDSK C: /F
Parámetros que se pueden emplear con CHKDSK:
/f - Este parámetro nos permite corregir errores en el disco.
/r - Encuentra los sectores dañados y recupera la información en ellos que sea posible recuperar.
/i - Realiza una comprobación menos exhaustiva de entradas de índice (Sólo para NTFS)
/c - Omite la comprobación de ciclos dentro de la estructura de carpetas (Sólo para NTFS)
Los dos anteriores reducen la cantidad de tiempo necesario para ejecutar Chkdsk ya que omiten ciertas comprobaciones en el volumen.
/x - Fuerza al volumen a desmontarse primero si es necesario (es necesario usar /f)
/b - Vuelve a evaluar los clústeres incorrectos en el volumen es necesario usar /r (Sólo para NTFS)
/? - Despliega la ayuda de chkdsk.
* Como usar CHKDSK desde la consola de recuperación.
Si no se inicia Windows podemos ejecutar para intentar recuperar el disco duro. La Consola de recuperación es una ventana de MSDOS que se ejecuta desde un disco de instalación Windows.
En esta opción solo hay dos parametros:
CHKDSK - Simplemente muestra el estado del disco de inicio.
CHKDSK C: /P - Chequea el disco y corrige errores.
CHKDSK C: /R - Chequea el disco, corrige errores, localiza sectores dañados y trata de recuperar la información que sea posible.
Hay recordar que antes de hacer cualquier paso, realizar una copia de seguridad, por si acaso!!
VBA - Instrucciones de comandos.
Private Sub cmd_Nuevo_Click()
DoCmd.GoToRecord , , acNewRec
Me.cmd_guardar.Enabled = False
End Sub
Private Sub cmd_Cerrar_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "Nombre Formulario"
End Sub
Private Sub cmd_Anterior_Click()
Me.Recordset.MovePrevious
If Me.Recordset.BOF Then
Me.Recordset.MoveNext
MsgBox "Ya estás en el primer registro.", vbInformation + vbOKOnly, "AVISO"
End If
End Sub
Private Sub cmd_Siguiente_Click()
Me.Recordset.MoveNext
If Me.Recordset.EOF Then
Me.Recordset.MovePrevious
MsgBox "Ya estas en el último Registro", vbInformation + vbOKOnly, "AVISO"
End If
End Sub
Private Sub cmd_Guardar_Click()
DoCmd.RunCommand acCmdSaveRecord
Me.cmd_guardar.Enabled = False
End Sub
Private Sub cmd_Eliminar_Click()
Dim resp As Integer
resp = MsgBox("¿Estas seguro de querer eliminar el registro?.", vbYesNo + vbInformation, "Confirmar")
If resp = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
End If
DoCmd.GoToRecord , , acLast
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
End Sub
Private Sub Imprimir_Click()
DoCmd.OpenReport "Nombre Informe", acPreview, , "[id]=" & Me.Id.Value
End Sub
DoCmd.GoToRecord , , acNewRec
Me.cmd_guardar.Enabled = False
End Sub
Private Sub cmd_Cerrar_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "Nombre Formulario"
End Sub
Private Sub cmd_Anterior_Click()
Me.Recordset.MovePrevious
If Me.Recordset.BOF Then
Me.Recordset.MoveNext
MsgBox "Ya estás en el primer registro.", vbInformation + vbOKOnly, "AVISO"
End If
End Sub
Private Sub cmd_Siguiente_Click()
Me.Recordset.MoveNext
If Me.Recordset.EOF Then
Me.Recordset.MovePrevious
MsgBox "Ya estas en el último Registro", vbInformation + vbOKOnly, "AVISO"
End If
End Sub
Private Sub cmd_Guardar_Click()
DoCmd.RunCommand acCmdSaveRecord
Me.cmd_guardar.Enabled = False
End Sub
Private Sub cmd_Eliminar_Click()
Dim resp As Integer
resp = MsgBox("¿Estas seguro de querer eliminar el registro?.", vbYesNo + vbInformation, "Confirmar")
If resp = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
End If
DoCmd.GoToRecord , , acLast
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
End Sub
Private Sub Imprimir_Click()
DoCmd.OpenReport "Nombre Informe", acPreview, , "[id]=" & Me.Id.Value
End Sub
Suscribirse a:
Comentarios (Atom)