แสดงกระทู้

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
สอบการทำค่าว่างผลรวม ใน Query ให้เป็น 0 ครับ
ผมลองใส่ ค่าแล้วก่ไม่ได้
Nz([StockPart QOut]![SumOfQuanlity],0)
Val([StockPart QOut]![SumOfQuanlity],0))

สิ่งที่ติดคือ ค่าว่างตรงช่อง StockPart QOut.SumOfQuanlity มันไม่เป็น 0 รวมค่าให้ไปที่ช่อง คงเหลือไม่ได้ครับ
รบกวนช่วยหาวิธีให้หน่อยครับ


2
สอบถามเราจะสร้างให้ Access รับค่าจาก Port RS232 ที่เป็น COMPORT ได้หรือไม่ครับ
เป็นตัว Scanner TOHKEN ของเครื่องจักรครับ





3
สอบถามการเพิ่มตัวเลขลงท้ายอัตโนมัติ
เช่น Taxbox ชื่อ QRCode สแกน แล้วได้ค่า AAABBB100
สิ่งที่ต้องการคือ เมื่อสแกนแล้วค่าที่บันทึกก่จะได้
AAABBB100
AAABBB200
AAABBB300
AAABBB400
AAABBB500
AAABBB600

ตัวอย่างนี้เราเป็นผู้กำหนดว่าแต่ละรุ่นจะบันทึกกี่ครั้ง ไม่มีปุ่มให้กดครับ สแกนแล้วเข้า Database เลย
ขอบคุณครับ

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

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

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

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

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



7
สอบถามการใส่เสียง 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


ขอบคุณครับ

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

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

10
การเปรียบเทียบค่า 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

ขอบคุณครับ

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



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


หน้า: [1]