[RESOLVED] I need help on deactivating the playing of wav file

[lord_cedrich]

I need help for deactivating the playing of .wav file, if the frmBluekey.MinutesCounter.Enabled = False then it will not play the .wav file but still Check1.Value still have an option to play or not the .wav file

Private Sub mnuManual_Click()
Dim mypath As String
Dim mystr As String
 
If frmBluekey.MinutesCounter.Enabled = False Then
mypath = "C:\logs\" 'set your own path in here, remember th last \
mystr = "Bluekey Manual" & "-" & Format(Now, "mmmmddyyyy-hh-nn-ss") & ".txt"
Open mypath & mystr For Output As 1
 Print #1, "Report - Manual Opening """
Close 1
 Out &H378, 1  ' output decimal to printerport 1000 0000
 For Y = 1 To 10000000 ' loop for your delay
 Next Y
 Out &H378, 0 ' output decimal to printerport 0000 0000
 Else
 msg = MsgBox("Please run the Bluekey [Start Monitoring", vbOKOnly, "Attention")
End If
End Sub

If frmBluekey.Check1.Value = 1 Then
Call PlayWave("D:\Bluekey\voice.wav", False)
Else
frmBluekey.Check1.Value = 0
endif