Microsoft Access
Ver Más instrucciones
1
Abra Microsoft Access y crear una nueva base de datos con la tecla " Control- N ", seguido de hacer clic en " Blank base de datos " . Vamos a crear una pequeña mesa para esta base de datos , a continuación, utilizar macros para borrar los datos de ella .
2 Haga clic en " Tabla " en el menú " Crear" y escriba " ProductName " en la fila superior de la segunda columna de la cuadrícula de la tabla . Tipo " Precio " en la celda directamente a la derecha de " ProductName . "
3
tipo una o dos filas de datos de la muestra en las celdas debajo de los nombres de columna que acaba de escribir . Por ejemplo, escriba " carbón comprimido " y " 1,98 " para una tabla de artículos de arte .
4
Press "Control - S " y pulse "OK " para guardar la tabla con el nombre por defecto " Tabla 1 . "
5
Pulse" Alt -F11 "para entrar en el entorno de desarrollo integrado de VBA ( IDE ) , a continuación, haga clic en" módulos " en el menú" Insertar "para abrir una nueva ventana para la introducción de macro de su programa código.
6
Pega el siguiente programa en la ventana. Este programa funciona mediante la apertura de un objeto RecordSet de la base de datos actual. El conjunto de registros se basa en la tabla " Tabla1" que completó en el paso 4 . El método MoveFirst (es decir, la función) del conjunto de registros se mueve el puntero del registro actual al primer registro de la tabla , . El método Delete elimina ese primer disco
Public Sub DeleteRecord ()
db As DAO . Database
rcset As DAO.Recordset
str As String Dim
Set db = CurrentDb
Set rcset = Sub
7
Ejecute la macro borrar haciendo clic en cualquiera de sus estados , a continuación pulsar "F5 ". Pulse la tecla " Alt -F11 " para volver a la interfaz de usuario estándar de Access , a continuación, haga doble clic en el icono de la " Tabla 1 " en el panel de navegación de acceso, que se encuentra en la pantalla a la izquierda. Access abrirá " Tabla1" para revelar que el primer registro que introdujo en el paso 3 se elimina.
8
Pulse " Alt -F11 " para volver a su código de macro en el IDE , a continuación, pegue el siguiente nuevo programa de debajo de la anterior que escribiste. Este programa elimina el campo " precio " de la tabla mediante una llamada al método "Borrar" de la " Tabla 1 ".
Public Sub DeleteField ()
Dim db As
DAO.Database < p> rcset As DAO.Recordset
MyTab As TableDef
Set db = CurrentDb
Set MyTab = db.TableDefs ( " Tabla1" )
< p > myTab.Fields.Delete ( "Precio")
db.Close
End Sub
9
Ejecutar el programa como lo hizo el anterior, y dobles clic en " Tabla 1 " en el panel de navegación para comprobar que el campo "Precio" se ha ido.