Actually, I did exactly what was in that site, but it does not work.
If you try it, you may understood what happened.
This is the code
Quote:
Option Compare Database
Private Sub PlayMessage___Click()
Me.message.Action = 7
End Sub
Private Sub RecordMessage_Click()
With Me.message
.Class = "soundrec"
.Action = acOLECreateEmbed
.Verb = acOLEVerbPrimary
.Action = acOLEActivate
End With
End Sub
|
The program in the attachment, If you want to see what I do.
Thank you sir