For x = 30 To 0 Step -1
Me.Text1 = str(x)
If Me.Text1 <= 5 Then Debug.Print PlaySoundFileB("C:\WINDOWS\Media\Windows Ding.wav")
PauseTime = 1 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Next x
Debug.Print PlaySoundFileB("C:\WINDOWS\Media\tada.wav")
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.