1
Start acceso. Seleccione la opción " Bases de datos de ejemplo" en el menú "Ayuda" y luego en " en Base de datos " para abrir el archivo " Neptuno.mdb " .
2 Haga clic en el botón "Nuevo " en el " Northwind . mdb : Ventana de Base de Datos " . Seleccione " Vista Diseño " y haga clic en el botón " OK" . Escriba el " Nombre del campo ", " mensaje " columna y en el " Tipo de datos " columna " Objeto OLE ". Haga clic en el icono " Guardar" , introduzca el nombre de la tabla "Mensajes" y haga clic en "OK . "
3
Seleccione la pestaña "Formularios " y haga clic en el botón " Nuevo". Escriba el "Nombre" fila " RecordMessage " y en la " Leyenda " fila "Record ". Haga clic en el icono " Guardar" , introduzca el nombre de la tabla "Button ", y haga clic en " Aceptar". Escriba el "Nombre" y en el " ControlSource " filas de tipo "Mensaje ". Haga clic en el icono " Guardar" , indique el nombre de la tabla "Frame " y haga clic en " Aceptar".
4
Agregue el procedimiento de evento a la propiedad " OnClick " del " RecordMessage " en el " botón " forma :
Private Sub RecordMessage_Click ()
Me.Message
Class = " SoundRec "
Action = acOLECreateEmbed
< p . . > . Verb = acOLEVerbPrimary
. Action = acOLEActivate
extremo con
End Sub
5
Haga clic en el botón "Grabar " para abrir el Sound Recorder y captura de audio y , a continuación, haga clic en " archivo", seleccione la opción "Exit " y luego haga clic en el " retorno a la forma " botón.