แสดงกระทู้

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 - chaoclub

หน้า: [1]
1
https://drive.google.com/drive/folders/1J_P2DCrnDaQJDw5PHaddbtAX52xJCO4E?usp=sharing

sadsadeekabchoeng@hotmail.com
nk_0813kjmn@hotmail.co.th

โหลดใน Google drive ตาม link ได้เลยครับ.....
เป็น Zip ไฟล์   มี สอง ไฟล์ครับ  เป้นไฟล์ Setup.exe ของ Awara Thai Smart card reader และ ไฟล์ MS ACCESS ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: chaoclub

2
ผมมีตัวอย่าง 2 แบบให้ดูตัวอย่างนะครับ
แบบที่1 คือแบบเดิมเวลาเราใส่ข้อมูลแล้ว เมื่อกดบันทึกข้อมูลทั้งหมดก็จะแสดงในตารางทันทีใช้วิธีง่าย คือ เซ็ท Dirty = false
แล้วสั่งขึ้น record ใหม่




แบบที่2 คือเมื่อบันทึกข้อมูลก็ให้แสดงข้อมูลในตารางบนฟอร์มด้วยครับ



สิ่งที่เพิ่มเติมคือ
1.ใช้คำสั่งในการเพิ่ม Record ใหม่ DoCmd.GoToRecord , , acNewRec
2.ใช้การ Requery เพื่อให้โปรแกรมอ่านข้อมูลใหม่ที่เราเพิ่มหรือแก้ไขไปเพื่อให้แสดงข้อมูลปัจจุบันที่มี
3.ใช้การ Dirty = false ใช้คำสั่งนี้เมื่อเราเพิ่มข้อมูลเสร็จก็สั่งให้เป็น False เพื่อให้ข้อมูลบนฟอร์ม save ไปในตาราง
4.DropDown ใช้ในการแสดงรายการแบบ Dropdown เมื่อ Cursor ถูก Focus ครับ

ลองโหลดตัวอย่างทั้ง 2 แบบไปลองปรับใช้ดูนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: chaoclub

3
   ช่วยกรุณาดูความช่วยเหลือในกระทู้ "ช่วยแนะนำการเขียนคำสั่ง VBA ใน Acess" ให้ด้วยครับ มีปัญหาบางอย่างในการบันทึกข้อมูลลงตารางจากการใช้แบบฟอร์มครับ :question:
โพสต์นี้ได้รับคำขอบคุณจาก: chaoclub

4
คือหากจะใช้ QR ในการแสดงรายละเอียดแทนก็ได้ครับ เช่นในการส่งซ่อมเราก็เขียนรายละเอียดแบบไม่ต้องมากนะครับ เพราะ qr จะใหญ่ เสร็จแล้วก็ Gen เป็น QR Code
ส่วนการอ่านรับของซ่อม ก็ใช้เครื่องยิ่งบาร์โค้ดที่เป็นรุ่นที่อ่าน qr ได้ ส่วนใหญ่จะเป็นแบบ ccd ซึ่งราคาแพงกว่าเครื่องธรรมดา หลักหลายพันขึ้น เราก็สามารถอ่าน qr code ได้ทั้งจากกระดาษ และ หน้าจอมือถือก็ได้ แค่คนส่งซ่อมนำมือถือถ่ายภาพ qr code มา เรา Scan จากมือถือก็รู้รายละเอียดได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: chaoclub

5
ผมเคยทำคลิปตอบคำถามแนวๆนี้ ไม่รู้ว่าพอช่วยเป็นแนวทางได้หรือไม่นะครับ ลองดูแล้วกัน
โพสต์นี้ได้รับคำขอบคุณจาก: chaoclub

6
ที่ช่อง Discount ของ Main Form กำหนด AfterUpdate event ประมาณนี้

Private Sub Discount_AfterUpdate()

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE PODetails SET PODetails.Discount = [Quantity] * [Unit Price] * " & Me.Discount / 100 & " WHERE PODetails.[PO Number] = '" & Me.[PO Number] & "';"
DoCmd.SetWarnings True

Me.ชื่อSubForm.Refresh

End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: chaoclub

7
ลองเอาไฟล์นี้ไปศึกษาดูครับ
https://www.dropbox.com/s/7hgsv69xig5mlnd/FindRecord.accdb?dl=0
โพสต์นี้ได้รับคำขอบคุณจาก: chaoclub

หน้า: [1]