แสดงกระทู้

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 / สอบถามเรื่องโค้ดอยากให้เลือกตรง Dropdown แล้วให้ข้อมูลโชว์ค่าตาราง Qurey
« เมื่อ: 19 ก.ค. 64 , 09:05:08 »
สอบถามเรื่องโค้ดครับ ถ้าทำเป็นที่ละ Model สามารถทำได้ครับไม่มีปัญหา แต่มันเยอะขึ้นเรื่อย ไฟล์ก็ใหญ่ตามครับ เลยอยากลองทำเป็นแบบค้นหาครับ
ทำเป็นตัวอย่างสักอันก็ได้ครับ เพราะสิ่งที่จะทำ Model มันมีเป็น 100 Model เลยครับ
1. Dropdown แล้วให้ข้อมูลโชว์ค่าตาราง Qurey

2. ตรงช่องค้นหาให้ค้นหาค่าที่แสดงขึ้นมา
3. ตรง Print and export ให้ทำได้ โดยได้ทำ Report แล้ว

ขอบคุณมากครับ

ได้แนบไฟล์ฐานข้อมูลด้วยครับ แก้ไขแล้วครับ

2
ห้อง MS Access / สอบการทำค่าว่างผลรวม ใน Query ให้เป็น 0 ครับ
« เมื่อ: 02 มิ.ย. 64 , 09:20:29 »
สอบการทำค่าว่างผลรวม ใน Query ให้เป็น 0 ครับ
ผมลองใส่ ค่าแล้วก่ไม่ได้
Nz([StockPart QOut]![SumOfQuanlity],0)
Val([StockPart QOut]![SumOfQuanlity],0))

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


3
ห้อง MS Access / สอบถามเราจะสร้างให้ Access รับค่าจาก Port RS232 ที่เป็น COMPORT ได้หรือไม่
« เมื่อ: 23 เม.ย. 64 , 15:26:45 »
สอบถามเราจะสร้างให้ Access รับค่าจาก Port RS232 ที่เป็น COMPORT ได้หรือไม่ครับ
เป็นตัว Scanner TOHKEN ของเครื่องจักรครับ





4
ห้อง MS Access / สอบถามการเพิ่มตัวเลขลงท้ายอัตโนมัติ
« เมื่อ: 05 เม.ย. 64 , 16:02:56 »
สอบถามการเพิ่มตัวเลขลงท้ายอัตโนมัติ
เช่น Taxbox ชื่อ QRCode สแกน แล้วได้ค่า AAABBB100
สิ่งที่ต้องการคือ เมื่อสแกนแล้วค่าที่บันทึกก่จะได้
AAABBB100
AAABBB200
AAABBB300
AAABBB400
AAABBB500
AAABBB600

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

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

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

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

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

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



8
ห้อง 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


ขอบคุณครับ

9
ห้อง MS Access / สอบถามการตั้งค่าให้ Access รับค่าจาก Port (COM01) จาก Scanner
« เมื่อ: 30 พ.ย. 63 , 16:31:21 »
สอบถามการตั้งค่าให้ Access รับค่าจาก Port (COM01) จาก Scanner
สามารถทำได้หรือไม่ครับ
รบกวนด้วยครับ
 
ขอบคุณมากครับ

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

11
ห้อง 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

ขอบคุณครับ

12
ห้อง MS Access / ใช้ DataBase SQL Server "Access Runtime 2013 ไม่สามารถเปิดใช้งานได้"
« เมื่อ: 04 ก.ย. 63 , 11:01:37 »
ใช้ DataBase SQL Server 2008 "Access Runtime 2013 ไม่สามารถเปิดใช้งานได้" แต่ Microsoft Access 2016 เปิดได้ปกติครับ



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


หน้า: [1]