สมัครสมาชิก

แสดงกระทู้

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

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

3
แก้ไขได้แล้วครับ ขอบคุณทั้งสองท่านมากๆครับ

4
เจอ 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" จะต้องเขียนโค้ดอย่างไรครับ

5
โมดูลค่าคอมมิสชันเสร็จแล้วครับ ขอบคุณในความกรุณาของอาจารย์ครับ

6
ขอบคุณมากครับ ขอรบกวนอีกนิดนะครับ ทีนี้เวลาเขียนโค้ดเพื่อกรองข้อมูล โดยใช้ เดือน กับ ปี ซึ่งแยก combo box กัน แต่ใน subform มีฟิลล์ bill_date ซึ่งเป็นข้อมูลแบบ date/time โค้ดการกรองมันจะออกมาเป็นยังไงครับ

ในฟอร์มหัว frmviheclecomh
vihecle_no เป็น combo box โค้ดกรองทำตามคลิป มี row source เป็นคิวรี่
combo_month เป็น เดือน row source เป็น value list เลขเดือน กับชื่อเต็มของเดือน
combo_year เป็นปี ใช้โค้ด Me.combo_year.RowSource = Year(Date) & ";" & Year(Date) - 1

ใน sub form ใช้ฟอร์มชื่อ frmviheclecomd
มีคิวรี Qviheclereport  เป็น cross query
bill_date วันที่ เดือน ปี
vihecle_no รหัสประจำตัว

7
ขอบคุณมากครับ ผมเลยลองเอาไปใช้กับ combo box เดือนด้วย ผลออกมาเป็นตัวเลขเดือน ทำยังไงให้เป็นชื่อเดือนแบบเต็มครับ

8
กำลังทำโมดูล ค่าคอมมิสชั่นครับ โดยใช้ 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

9
ขอบคุณทั้งสองท่านมากๆครับที่ทำให้โมดูลค้นหานี้สำเร็จลงด้วยดี ผมเก็บโค้ดของทั้งสองท่านไว้ทั้งหมดเพราะเห็นแววแล้วว่าต้องใช้ในอนาคตแน่ๆ ขอบคุณมากครับ ^_^

10
ผมได้ศึกษาจากคลิป https://www.youtube.com/watch?v=0xMPyi4fQFI&t=790s link และต้องการจะประยุกต์โดยใช้ 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 แต่ไม่รู้จะใส่ตรงไหน ใส่ยังไงครับ

11
ขอบคุณมากครับ โมดูลนี้สำเร็จแล้วครับ _/|\_ งมอยู่กับเรื่องนี้ร่วมเดือน

12
ผมได้ทดลองทำดูแล้วมันขึ้น runtime error ครับ ผมไม่รู้ว่ามันเกี่ยวกับค่าที่ผมใส่ไปยังไง

 พอกด debug มันก็ชี้มาที่บรรทัดนี้


แบบนี้แก้ไขอย่างไรครับ

13
ใช่แบบนี้ไหมครับ
อ้างถึง
iif([prod_id]<>0,[order].[cus_id]=[deal].[cus_id],dlookup([deal_price],[deal]))
Else
    dlookup([deal_price],[deal])

pord_id คือ ไอดีสินค้า
cus_id คือ ไอดีลูกค้า
deal คือ ตารางส่วนลด
deal_price คือ ราคาในตารางส่วนลด
order คือ ตารางขาย เก็บ เลขที่การขาย วันที่ ไอดีลูกค้า มีอีกตารางนึงที่เกี่ยวข้องคือ order detail เก็บ เลขที่การขาย ไอดีสินค้า และจำนวนการขาย

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

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

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

หน้า: [1]