แสดงกระทู้

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
ห้อง MS Access / สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม
« เมื่อ: 06 ก.พ. 64 , 08:44:31 »
สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม

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

2
ห้อง MS Access / สอบถามเรื่องการแก้ไขไฟล์ Access ขณะที่อีกเครื่องเปิดใช้งานอยู่
« เมื่อ: 05 ก.พ. 64 , 08:35:44 »
สอบถามเรื่องการแก้ไขไฟล์ Access ขณะที่อีกเครื่องเปิดใช้งานอยู่ ไม่ทราบว่าสามารถทำได้หรือไม่ หรือเราต้องให้อีกเครื่องปิดโปรแกรมก่อนถึงจะสามารถแก้ไขได้ครับ
ระบบนี้วางไว้ที่ Server สามารถใช้ได้หลายเครื่องพร้อมกัน

3
ห้อง MS Access / สอบถามเรื่อง Dsum ของวันที่ปัจจุบัน
« เมื่อ: 14 ม.ค. 64 , 16:55:31 »
สอบถามเรื่อง Dsum ของวันที่ปัจจุบัน
 ไม่ทราบว่าแบบนี้ถูกหรือเปล่าครับ ที่ผมทำมันขึ้นผลรวมทั้งหมดครับไม่แยกวันที่ปัจจุบัน
=DSum("[Quanlity]","dbo_Panasonic ","Date()")

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



4
ห้อง MS Access / สอบถามการใส่เสียง Beep ตอนขึ้น Massess Box ครับ
« เมื่อ: 03 ธ.ค. 63 , 16:07:18 »
สอบถามการใส่เสียง 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
ห้อง MS Access / สอบถามการตั้งค่าให้ Access รับค่าจาก Port (COM01) จาก Scanner
« เมื่อ: 30 พ.ย. 63 , 16:31:21 »
สอบถามการตั้งค่าให้ Access รับค่าจาก Port (COM01) จาก Scanner
สามารถทำได้หรือไม่ครับ
รบกวนด้วยครับ
 
ขอบคุณมากครับ

6
ห้อง MS Access / การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« เมื่อ: 09 ต.ค. 63 , 15:21:06 »
สอบถามว่าการใช้โค้ด การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตารางแล้วจะได้ 100 ตาราง ตามจำนวนที่กรอกเข้าไป และการสั่งเพิ่มครั้งต่อไปจะใส่ค่าเดิมไม่ได้ เพื่อนำไปประยุกต์ในการปริ้น Label ครับเช่น

7
ห้อง MS Access / การเปรียบเทียบค่า 2 ตาราง 2 ข้อมูล ให้ตรงกันบน Form หลังจากการกรอกข้อมูล
« เมื่อ: 10 ก.ย. 63 , 10:18:38 »
การเปรียบเทียบค่า 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
ห้อง MS Access / ใช้ DataBase SQL Server "Access Runtime 2013 ไม่สามารถเปิดใช้งานได้"
« เมื่อ: 04 ก.ย. 63 , 11:01:37 »
ใช้ DataBase SQL Server 2008 "Access Runtime 2013 ไม่สามารถเปิดใช้งานได้" แต่ Microsoft Access 2016 เปิดได้ปกติครับ



9
ห้อง MS Access / สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« เมื่อ: 20 ส.ค. 63 , 15:50:24 »
สอบถามได้ทำการสร้างฟอร์มขึ้นมาเพื่อเพิ่มข้อมูล แต่อยากให้ก่อนเพิ่มข้อมูลต้องตรวจสอบว่า อีกตารางมีข้อมูลที่กำหนดแล้วหรือไม่ ถ้ามีให้ทำต่อไป ถ้าไม่มีให้มีข้อความแจ้งเตือน
ตามรูปครับ


หน้า: [1]