Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.
MS Access 2003: reproducir archivo wav (archivo de sonido) a través de API según el valor del cuadro de texto cuando se hace clic en el botón
Este tutorial de MSAccess explica cómo reproducir un archivo wav (archivo de sonido) a través de la API cuando se hace clic en un botón basado en un valor de cuadro de texto en Access 2003 (con capturas de pantalla e instrucciones paso a paso).
Pregunta: En Microsoft Access 2003/XP/2000/97, configuré un formulario que muestra todos los registros en la tabla WavFiles. La tabla WavFiles tiene una columna llamada WavFilename que contiene el nombre del archivo wav (sin la extensión .wav) en nuestro servidor de archivos.
Quiero crear un botón en el formulario que me permita reproducir el archivo wav que se muestra en el campo WavFilename del registro actual en el formulario.
¿Cómo puedo hacer esto?
R: Puede reproducir archivos wav en una base de datos de Access. Para hacer esto, cree un nuevo módulo y pegue el siguiente código VBA:
Const SND_ASYNC = (1) Const SND_NODEFAULT = (2) Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Sub API_PlaySound(pWavFile As String) Dim LResult As Long 'Make a Windows API call to play a wav file LResult = sndplaysound(pWavFile, SND_NODEFAULT + SND_ASYNC) End Sub
Su módulo debería verse así:
A continuación, abra su formulario en la vista Diseño y cree un botón. En este ejemplo, creamos un botón llamado cmdPlay.
Haga clic con el botón derecho en el botón y elija Propiedades en el menú emergente.
Cuando aparezca la ventana Propiedades, seleccione la propiedad denominada Al hacer clic. Debería aparecer un botón con 3 puntos a la derecha de la propiedad. Haga clic en este botón.
Cuando aparezca la ventana Seleccionar generador, resalte Code Builder y haga clic en el botón Aceptar.
Ahora ingrese el siguiente código en el evento On Click del botón:
API_PlaySound "c:Windowsmedia" & WavFileName & ".wav"
El código anterior reproducirá el archivo wav que se muestra en el campo WavFileName del formulario. El archivo wav se encuentra en el directorio c:Windowsmedia y el código agrega la extensión .wav al final del nombre del archivo porque está almacenado en la base de datos sin información de extensión de archivo.
Ahora echemos un vistazo al formulario que verá el usuario.
Entonces, si el usuario hace clic en el botón, Access reproducirá el siguiente archivo wav:
c:Windowsmediachimes.wav