1
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
หน้า: [1]
2
ห้อง Ms Access อื่นๆ / : ท่านใดเคยเจอปัญหา สังพิมพ์รายงาน แล้วออกเป็นหน้าฟอร์ม ไม่ออกรายงานบ้างไหมคะ
« เมื่อ: 22 มี.ค. 64 , 08:25:09 »3
ห้อง MS Access / : สอบถามวิธีสร้างฟอร์มสุ่มรายชื่อครับ
« เมื่อ: 15 ธ.ค. 63 , 08:46:30 »
ขอแจก โปรแกรมด้วยได้ไหมครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa
4
ห้อง MS Access / : สอบถามการใส่เสียง Beep ตอนขึ้น Massess Box ครับ
« เมื่อ: 10 ธ.ค. 63 , 08:08:28 »5
ห้อง MS Access / : สอบถามการใส่เสียง Beep ตอนขึ้น Massess Box ครับ
« เมื่อ: 04 ธ.ค. 63 , 15:08:29 »
ลองที่ให้มา ไม่ได้ครับ แต่คุ้นผมเคยทำไว้ที่ Excel ตอนนี้ทำได้แล้วครับโดยใช้แบบนี้ครับ
1*** วางไว้ใน Module
#If Win64 Then
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
Call PlaySound("c:\windows\media\policesiren.WAV", _
0, SND_ASYNC Or SND_FILENAME)
SoundMe = ""
End Function
2**** วางที่โค้ดต้องการให้ดัง
Dim wisroot As String
Dim str1 As String
wisroot = Me.[QRCode].Value
str1 = "[QRCodePCB]=" & "'" & wisroot & "'"
If Me.[QRCode] = DLookup("[QRCodePCB]", "dbo_Laser40241CA", str1) Then
SoundMe
MsgBox "ข้อมูลซ้ำกัน กรุณาตรวจสอบ"
Me.Undo
Else
End If
1*** วางไว้ใน Module
#If Win64 Then
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
Call PlaySound("c:\windows\media\policesiren.WAV", _
0, SND_ASYNC Or SND_FILENAME)
SoundMe = ""
End Function
2**** วางที่โค้ดต้องการให้ดัง
Dim wisroot As String
Dim str1 As String
wisroot = Me.[QRCode].Value
str1 = "[QRCodePCB]=" & "'" & wisroot & "'"
If Me.[QRCode] = DLookup("[QRCodePCB]", "dbo_Laser40241CA", str1) Then
SoundMe
MsgBox "ข้อมูลซ้ำกัน กรุณาตรวจสอบ"
Me.Undo
Else
End If
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
หน้า: [1]