แสดงกระทู้

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.


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

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

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

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

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

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



4
สอบถามการใส่เสียง Beep ตอนขึ้น Massess Box ครับ
ให้เสียงดังจนกว่าจะกดปิด Massess Box ครับ

Private Sub QRCode_AfterUpdate()
 Dim wisroot As String
  Dim str1 As String
  wisroot = Me.[QRCode].Value
  str1 = "[QRCodePCB]=" & "'" & wisroot & "'"
 
  If Me.[QRCode] = DLookup("[QRCodePCB]", "dbo_AOI40241CA", str1) Then
  MsgBox "ข้อมูลซ้ำกัน กรุณาตรวจสอบ"
  Me.Undo
  Else


ขอบคุณครับ

5
สอบถามการตั้งค่าให้ Access รับค่าจาก Port (COM01) จาก Scanner
สามารถทำได้หรือไม่ครับ
รบกวนด้วยครับ
 
ขอบคุณมากครับ

6
สอบถามว่าการใช้โค้ด การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตารางแล้วจะได้ 100 ตาราง ตามจำนวนที่กรอกเข้าไป และการสั่งเพิ่มครั้งต่อไปจะใส่ค่าเดิมไม่ได้ เพื่อนำไปประยุกต์ในการปริ้น Label ครับเช่น

7
การเปรียบเทียบค่า 2 ตาราง 2 ข้อมูล ให้ตรงกันบน Form หลังจากการกรอกข้อมูล


ถ้าเช็ตแค่ 1 ข้อมูลทำได้ แต่ถ้า 2 ข้อมูลครับ รบกวนช่วยแก้ไขโค้ดด้วยครับ

Private Sub Text97_AfterUpdate()
 Dim chk As Variant
chk = DLookup("[Barcode PCB]", "[In Process oki]", "[Barcode PCB] = '" & Me.Text97 & "'")
    If IsNull(chk) Then
       MsgBox "ไม่มีข้อมูล In Process กรุณาตรวจสอบ"
       Me.Undo
        Exit Sub
    End If
    End Sub

ขอบคุณครับ

8
ใช้ DataBase SQL Server 2008 "Access Runtime 2013 ไม่สามารถเปิดใช้งานได้" แต่ Microsoft Access 2016 เปิดได้ปกติครับ



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


หน้า: [1]