แสดงกระทู้

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.


Messages - ชวลิต เสนะสุทธิ

หน้า: [1] 2 3
1
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

2
มาเจอปัญหาหลังจากใช้โค้ดครับ คือ โปรแกรมสามารถเปิดใช้งานได้เครื่องเดียวครับ ไม่สามารถเปิดมากกว่า 1 ได้ครับ

3
ขอบคุณมากครับ ทำได้แล้วครับ

4
จากที่ดู VDO ต้องสร้างปุ่มครับ แต่ผมลองไปทำแล้วก่ไม่ได้ครับ อยากได้แบบไม่ต้องสร้างปุ่มครับ

5
มีวิธีอย่างไรครับ หรือ โค้ดในการรันครับ

6
สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม

เช่น กล่องข้อความเราวางข้อมูลลงไปแล้ว หลังจากอัพเดทให้นำข้อความนั้นมาวางลงอีกครั้งอัตโนมัติ

7
สอบถามเรื่องการแก้ไขไฟล์ Access ขณะที่อีกเครื่องเปิดใช้งานอยู่ ไม่ทราบว่าสามารถทำได้หรือไม่ หรือเราต้องให้อีกเครื่องปิดโปรแกรมก่อนถึงจะสามารถแก้ไขได้ครับ
ระบบนี้วางไว้ที่ Server สามารถใช้ได้หลายเครื่องพร้อมกัน

8
ได้แล้วครับ ขอบคุณครับ

9
สอบถามเรื่อง Dsum ของวันที่ปัจจุบัน
 ไม่ทราบว่าแบบนี้ถูกหรือเปล่าครับ ที่ผมทำมันขึ้นผลรวมทั้งหมดครับไม่แยกวันที่ปัจจุบัน
=DSum("[Quanlity]","dbo_Panasonic ","Date()")

รูปข้อมูลในตารางครับ วันที่จะเป็น "InDate = Now()"



10
มันไม่ขึ้นครับ ถ้าไม่ผูกด้วย Port แสกนได้ครับ

11
คือประมาณว่า Scan แล้วมันไม่ขึ้นตัวเลขให้ครับ

12
ขอแจก โปรแกรมด้วยได้ไหมครับ

13
ขอบคุณมากครับ สำหรับคำตอบครับ
แต่ที่จริงแล้วจะเป็นการเขียนโค้ดมากกว่าครับ สมมุติว่า กล่องข้อความ ชื่อ QRCode จะต้องทำการรับค่าที่แสกนได้จาก Scanner ด้วย port [Com1] ครับ
ถ้าไม่ฟิค port นั้นแสกนเข้าครับ แต่โจทย์มาให้ Config Port Com1

มือใหม่ไม่ถนัดโค้ด แต่ถนัดสร้างครับ

14
ลองเปิดใช้งาน Code error หมดครับ เชื่อมต่อไม่ได้ครับ

15
ได้แล้วครับ ขอบคุณมากครับ
 :cry: :cry: :cry:

16
สุดท้ายครับ เจอปัญหาการปิด MsgBox ครับ คือเสียงไม่ยอมปิดตามครับ ดังตลอดจนกว่าความยาวของเพลงจะหมดครับ

หน้า: [1] 2 3