Private Sub Form_Open(Cancel As Integer)
Dim PerMad As String
PerMad = Mid(CurrentDb.Name, 1, LastInStr(CurrentDb.Name, "\"))
Me.Suono.URL = PerMad & "NY.mp3"
SuonoA = PerMad & "A.wav"
SuonoB = PerMad & "b.wav"
SuonoC = PerMad & "c.wav"
SuonoD = PerMad & "d.wav"
SuonoE = PerMad & "e.wav"
Resetta 1
End Sub
Il suono "NY.mp3" è la canzone che ho inserito io, va bene, appena apro la maschera parte, però, appena finisce non riparte e non riesco a trovare un comando per farla ripartire, mi puoi dare un aiuto??
|