- Код: Выделить всё
Странная картинка:
Private Sub cmdClear_Click()
With Adodc1
.RecordSource = "SELECT * FROM DB order by Name"
.Refresh
End With
With MMControl1
.FileName = App.Path & "\" & "Select.wav"
.Command = "Open"
.Command = "Sound"
.Command = "Close"
End With
End Sub
Событие звука происходит дважды, хотя файд Select.wav сам по себе издает звук один раз.
Идеи есть?