carbo
May 19th, 2006, 10:35 PM
Need to loop .wav file three times. (See "Sound") (Not tagged in origional code.)
Private Sub Address_Exit(Cancel As Integer)
Address.BackColor = 16777215
On Error Resume Next
'If there is no matching record in communications do nothing.
If IsNull(DLookup("[address]", "communications", "[address]='" & replacequote(Me![Address]) & "'")) Then
Exit Sub
End If
'Make button visable and activate alert beep.
Command1796.Visible = True
PlaySound "H:\Generald\media\BEEP_FM.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
Private Sub Address_Exit(Cancel As Integer)
Address.BackColor = 16777215
On Error Resume Next
'If there is no matching record in communications do nothing.
If IsNull(DLookup("[address]", "communications", "[address]='" & replacequote(Me![Address]) & "'")) Then
Exit Sub
End If
'Make button visable and activate alert beep.
Command1796.Visible = True
PlaySound "H:\Generald\media\BEEP_FM.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub