19
ห้อง Ms Access อื่นๆ / : ท่านใดเคยเจอปัญหา สังพิมพ์รายงาน แล้วออกเป็นหน้าฟอร์ม ไม่ออกรายงานบ้างไหมคะ
« เมื่อ: 22 มี.ค. 64 , 08:25:09 »
ผมว่าน่าจะเลือกผิดหรือเปล่าครับ
แสดงกระทู้
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.
20
ห้อง MS Access / : สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม
« เมื่อ: 11 ก.พ. 64 , 13:08:55 »
Private Sub Barcode_PCB_AfterUpdate()
Dim strTAG as string
Dim wisroot As String
Dim str1 As String
strTAG = me.[TAG IMM]
wisroot = Me.[Barcode PCB].Value
str1 = "[Barcode PCB]=" & "'" & wisroot & "'"
If Me.[Barcode PCB] = DLookup("[Barcode PCB]", "dbo_ZHJ01", str1) Then
MsgBox "ข้อมูลซ้ำกัน"
Me.Undo
Else
End If
Docmd.save
Docmd.gotorecord,,acnewrec
Me.[TAG IMM] = strTAG
End Sub
Dim strTAG as string
Dim wisroot As String
Dim str1 As String
strTAG = me.[TAG IMM]
wisroot = Me.[Barcode PCB].Value
str1 = "[Barcode PCB]=" & "'" & wisroot & "'"
If Me.[Barcode PCB] = DLookup("[Barcode PCB]", "dbo_ZHJ01", str1) Then
MsgBox "ข้อมูลซ้ำกัน"
Me.Undo
Else
End If
Docmd.save
Docmd.gotorecord,,acnewrec
Me.[TAG IMM] = strTAG
End Sub
21
ห้อง MS Access / : สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม
« เมื่อ: 11 ก.พ. 64 , 12:09:12 »
มาเจอปัญหาหลังจากใช้โค้ดครับ คือ โปรแกรมสามารถเปิดใช้งานได้เครื่องเดียวครับ ไม่สามารถเปิดมากกว่า 1 ได้ครับ
22
ห้อง MS Access / : สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม
« เมื่อ: 10 ก.พ. 64 , 08:27:52 »
ขอบคุณมากครับ ทำได้แล้วครับ
23
ห้อง MS Access / : สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม
« เมื่อ: 09 ก.พ. 64 , 16:17:59 »
จากที่ดู VDO ต้องสร้างปุ่มครับ แต่ผมลองไปทำแล้วก่ไม่ได้ครับ อยากได้แบบไม่ต้องสร้างปุ่มครับ
24
ห้อง MS Access / : สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม
« เมื่อ: 06 ก.พ. 64 , 17:00:57 »
มีวิธีอย่างไรครับ หรือ โค้ดในการรันครับ
25
ห้อง MS Access / สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม
« เมื่อ: 06 ก.พ. 64 , 08:44:31 »
สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม
เช่น กล่องข้อความเราวางข้อมูลลงไปแล้ว หลังจากอัพเดทให้นำข้อความนั้นมาวางลงอีกครั้งอัตโนมัติ
เช่น กล่องข้อความเราวางข้อมูลลงไปแล้ว หลังจากอัพเดทให้นำข้อความนั้นมาวางลงอีกครั้งอัตโนมัติ
26
ห้อง MS Access / สอบถามเรื่องการแก้ไขไฟล์ Access ขณะที่อีกเครื่องเปิดใช้งานอยู่
« เมื่อ: 05 ก.พ. 64 , 08:35:44 »
สอบถามเรื่องการแก้ไขไฟล์ Access ขณะที่อีกเครื่องเปิดใช้งานอยู่ ไม่ทราบว่าสามารถทำได้หรือไม่ หรือเราต้องให้อีกเครื่องปิดโปรแกรมก่อนถึงจะสามารถแก้ไขได้ครับ
ระบบนี้วางไว้ที่ Server สามารถใช้ได้หลายเครื่องพร้อมกัน
ระบบนี้วางไว้ที่ Server สามารถใช้ได้หลายเครื่องพร้อมกัน
27
ห้อง MS Access / : สอบถามเรื่อง Dsum ของวันที่ปัจจุบัน
« เมื่อ: 15 ม.ค. 64 , 14:39:02 »
ได้แล้วครับ ขอบคุณครับ
28
ห้อง MS Access / สอบถามเรื่อง Dsum ของวันที่ปัจจุบัน
« เมื่อ: 14 ม.ค. 64 , 16:55:31 »
สอบถามเรื่อง Dsum ของวันที่ปัจจุบัน
ไม่ทราบว่าแบบนี้ถูกหรือเปล่าครับ ที่ผมทำมันขึ้นผลรวมทั้งหมดครับไม่แยกวันที่ปัจจุบัน
=DSum("[Quanlity]","dbo_Panasonic ","Date()")
รูปข้อมูลในตารางครับ วันที่จะเป็น "InDate = Now()"
ไม่ทราบว่าแบบนี้ถูกหรือเปล่าครับ ที่ผมทำมันขึ้นผลรวมทั้งหมดครับไม่แยกวันที่ปัจจุบัน
=DSum("[Quanlity]","dbo_Panasonic ","Date()")
รูปข้อมูลในตารางครับ วันที่จะเป็น "InDate = Now()"
29
ห้อง MS Access / : สอบถามการตั้งค่าให้ Access รับค่าจาก Port (COM01) จาก Scanner
« เมื่อ: 15 ธ.ค. 63 , 11:46:24 »
มันไม่ขึ้นครับ ถ้าไม่ผูกด้วย Port แสกนได้ครับ
30
ห้อง MS Access / : สอบถามการตั้งค่าให้ Access รับค่าจาก Port (COM01) จาก Scanner
« เมื่อ: 15 ธ.ค. 63 , 11:31:46 »
คือประมาณว่า Scan แล้วมันไม่ขึ้นตัวเลขให้ครับ
31
ห้อง MS Access / : สอบถามวิธีสร้างฟอร์มสุ่มรายชื่อครับ
« เมื่อ: 15 ธ.ค. 63 , 08:46:30 »
ขอแจก โปรแกรมด้วยได้ไหมครับ
32
ห้อง MS Access / : สอบถามการตั้งค่าให้ Access รับค่าจาก Port (COM01) จาก Scanner
« เมื่อ: 15 ธ.ค. 63 , 08:03:15 »
ขอบคุณมากครับ สำหรับคำตอบครับ
แต่ที่จริงแล้วจะเป็นการเขียนโค้ดมากกว่าครับ สมมุติว่า กล่องข้อความ ชื่อ QRCode จะต้องทำการรับค่าที่แสกนได้จาก Scanner ด้วย port [Com1] ครับ
ถ้าไม่ฟิค port นั้นแสกนเข้าครับ แต่โจทย์มาให้ Config Port Com1
มือใหม่ไม่ถนัดโค้ด แต่ถนัดสร้างครับ
แต่ที่จริงแล้วจะเป็นการเขียนโค้ดมากกว่าครับ สมมุติว่า กล่องข้อความ ชื่อ QRCode จะต้องทำการรับค่าที่แสกนได้จาก Scanner ด้วย port [Com1] ครับ
ถ้าไม่ฟิค port นั้นแสกนเข้าครับ แต่โจทย์มาให้ Config Port Com1
มือใหม่ไม่ถนัดโค้ด แต่ถนัดสร้างครับ
33
ห้อง MS Access / : สอบถามการตั้งค่าให้ Access รับค่าจาก Port (COM01) จาก Scanner
« เมื่อ: 12 ธ.ค. 63 , 16:04:58 »
ลองเปิดใช้งาน Code error หมดครับ เชื่อมต่อไม่ได้ครับ
34
ห้อง MS Access / : สอบถามการใส่เสียง Beep ตอนขึ้น Massess Box ครับ
« เมื่อ: 10 ธ.ค. 63 , 08:08:28 »
ได้แล้วครับ ขอบคุณมากครับ
35
ห้อง MS Access / : สอบถามการใส่เสียง Beep ตอนขึ้น Massess Box ครับ
« เมื่อ: 09 ธ.ค. 63 , 08:58:07 »
สุดท้ายครับ เจอปัญหาการปิด MsgBox ครับ คือเสียงไม่ยอมปิดตามครับ ดังตลอดจนกว่าความยาวของเพลงจะหมดครับ
36
ห้อง 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
