แสดงกระทู้

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

หน้า: [1]
1
ผมต้องการ disable subformไว้ และ เรียกใช้ subform เมื่อติ๊กถูกใน check box ใสฟอร์มหลัก และ record จากฟอร์มหลักที่ไม่ได้เรียกใช้ subform จะไม่มีบันทึกในตารางของ subform จะต้องทำยังไง โค้ดจะเป็นยังไงครับ

2
เจอ error 94 Invalid use of null ครับ

โค๊ด: [Select]
DateFrom = DateSerial(Me.combo_year, Me.combo_month, 1)
โค๊ด: [Select]
DateTo = DateSerial(Me.combo_year, Me.combo_month + 1, 0)
ที่อยากให้เกิดขึ้นคือ ถ้ามือลั่นไปกดปุ่ม สมมติชื่อ cmd_ok โดยยังไม่ได้ใส่ค่าใน combo_year หรือ combo_month (ซึ่งจะทำให้ DateFrom ว่างเปล่าและ error 94) ให้มีกล่องข้อความขึ้นมาว่า "Please select month and year" จะต้องเขียนโค้ดอย่างไรครับ

3
กำลังทำโมดูล ค่าคอมมิสชั่นครับ โดยใช้ combo box 2 อันคือ เดือน กับ ปี
ที่ผมทำตอนนี้คือ สร้าง
1. tblmonth เก็บ ชื่อเดือน และรหัสเดือน (1, 2, 3, ..., 12)
2. tblcomh เก็บ รหัสเดือน และค่าคอมมิสชั่น
3. Qprod_sell เป็น cross query เพื่อเอาข้อมูลการขายสินค้าออกมาแสดง และคำนวนค่าคอม
4. frmcomh เป็นฟอมร์มหัว มี combo box เดือน กับ ปี ใช้สำหรับค้นหา
5. frmcomd เป็นฟอร์มจาก Qprod_sell เป็นรายละเอียด ใช้เป็น subform

ผมคาดว่าจะทำเป็น search form และมี subform ของ การขายในเดือนนั้นๆด้วยน่ะครับ (กะว่าจะประยุกต์จากกระทู้ที่แล้วของผม https://www.thai-access.com/index.php?topic=949.0

ที่ติดไปต่อไม่ได้คือ
1. ปี จะทำอย่างไรให้มีการเพิ่มปีอัตโนมัติใน commbo
2. coding จะเป็นอย่างไร

สูตรคำนวนค่าคอมมิสชั่นคือ commission=unit_sale-4336

4
ผมได้ศึกษาจากคลิป https://www.youtube.com/watch?v=0xMPyi4fQFI&t=790s และต้องการจะประยุกต์โดยใช้ 1 combo box กับ 1 check box จะต้องปรับโค้ดอย่างไรครับ

โค้ดที่ผมทำไว้ตอนนี้เป็นแบบนี้ครับ
อ้างถึง
Option Compare Database

Private Sub Searchcombo()
 Dim sql As String
 sql = "select * FROM Qsaleh_cusprof WHERE [cus_name] ='" & Me.combonamesearch & "'"
 Forms!frmhistoryh!frmhistorylist.Form.RecordSource = sql
 Forms!frmhistoryh!frmhistorylist.Form.Requery
 
End Sub
Private Sub checkbox()
 Dim sql As String
 sql = "select * from Qsaleh_cusprof where [acculate] = " & Me.acculatesearch & ""
 Forms!frmhistoryh!frmhistorylist.Form.RecordSource = sql
 Forms!frmhistoryh!frmhistorylist.Form.Requery
   
End Sub

Private Sub acculatesearch_AfterUpdate()
checkbox
End Sub

Private Sub combonamesearch_AfterUpdate()
 Searchcombo
End Sub


ซึ่งมันทำงานแยกกัน ผมต้องการให้มันทำงานด้วยกัน เข้าใจว่าต้องมี AND แต่ไม่รู้จะใส่ตรงไหน ใส่ยังไงครับ

5
ผมกำลังทำโปรแกรม POS ให้กับโรงงานเล็กๆอยู่ครับ ซึ่งลูกค้าแต่รายจะได้ราคาสินค้าแตกต่างกันในสินค้าเดียวกัน เช่น สินค้า A ลูกค้าบางรายได้ราคา 100 บางราย 95 บางราย 90 บางราย 85 ผมมีรายการสินค้าอยู่ทั้งหมด 9 ชนิด จะต้องออกแบบตารางอย่างไรดีครับ

ที่ผมทำตอนนี้ก็ค่อนข้างจะพื้นฐาน คือ
ตารางโปรไฟล์ลูกค้า เก็บ ไอดีลูกค้า ชื่อ ที่อยู่ การติดต่อต่างๆ
ตารางสินค้า เก็บ ไอดีสินค้า ชื่อสินค้า รูป ราคา
ตารางการสั่งซื้อ เก็บ เลขที่ใบสั่งซื้อ วันที่ ไอดีลูกค้า
ตารางรายละเอียดการซื้อ เก็บ เลขที่ใบสั่งซื้อ ไอดีสินค้า จำนวนที่ซื้อ
ซึ่งการออกแบบตารางแบบนี้ไม่สามารถเก็บราคาสินค้ามากกว่าหนึ่งราคาในสินค้าชนิดเดียวกันได้ ผมได้ลองหาวิธีมาซักพักใหญ่แล้วยังไม่ได้ จึงต้องขอรบกวนทุกท่านที่นี่แนะนำหน่อยครับ

หน้า: [1]