1
ห้อง MS Access / : หาสูตรว่าใครขายของได้จำนวนเท่าไหร่ครับ
« เมื่อ: 19 พ.ค. 64 , 09:11:29 »
DSum("ชื่อฟิวด์เก็บจำนวนเงิน","ชื่อตารางหรือคิวรี่","[ชื่อฟิวด์หมู่]=forms!ชื่อฟอร์ม!ชื่อ TextBox(หมู่)")
แสดงกระทู้
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.
หน้า: [1] 2
3
ห้อง MS Access / : เช็คข้อมูลซ้ำในตารางอย่างไร
« เมื่อ: 23 มี.ค. 64 , 22:14:18 »
ใช้ BeforeUpdate event หลัง texbox อันที่2 ดีกว่าครับ
If (not isnull(me. textbox_id) or me.textbox_id<>"") and (not isnull(textbox_disease) or me. textbox_disease<>"") then
If dcount("*", "table_name", "id=forms! Formname!textbox_id and disease =forms! Formname!textbox_disease" ) >0
then
Msgbox "ข้อมูลซ้ำ"
Cancel=true
End if
Else
Msgbox "ใส่ข้อมูลไม่ครบ"
End if
ลองประยุกต์ดูครับ
If (not isnull(me. textbox_id) or me.textbox_id<>"") and (not isnull(textbox_disease) or me. textbox_disease<>"") then
If dcount("*", "table_name", "id=forms! Formname!textbox_id and disease =forms! Formname!textbox_disease" ) >0
then
Msgbox "ข้อมูลซ้ำ"
Cancel=true
End if
Else
Msgbox "ใส่ข้อมูลไม่ครบ"
End if
ลองประยุกต์ดูครับ
4
ห้อง MS Access / : transection table สอบถามค่ะ
« เมื่อ: 12 มี.ค. 64 , 09:16:59 »
ขอเสนอไอเดียครับ
1.แบบไม่ต้องสร้างตาราง
*สร้างฟังก์ชั่นหาราคาล่าสุดของสินค้านั้นๆ( เช่น getLastPrice(รหัสสินค้า) ให้ return ราคาล่าสุด) จากตารางเสนอ เมื่อเลือกสินค้า ให้ set ราคาสินค้าล่าสุดใน TextField และสามารถแก้ไขได้ ก่อนบันทึก
ข้อดี การทำงานไม่ซับซ้อน แค่เรียกฟังก์ชั่นให้ทำงาน
ข้อเสีย อาจทำงานช้าลงเมื่อข้อมูลตารางเสนอ มากขึ้น
2.แบบสร้างตาราง
*ในตารางสินค้า ให้เพิ่มฟิวด์ที่เก็บราคาล่าสุดไว้ ในแบบฟอร์มเสนอ เมื่อเลือกสินค้า ให้ set ราคาสินค้าล่าสุดใน TextField จากฟิวด์ราคาล่าสุด (DLookup()) และสามารถแก้ไขได้ เมื่อกดบันทึกก็ให้ update ราคาล่าสุดไว้ในตารางสินค้า
ข้อดี ทำงานเร็วกว่าแบบ 1 เพราะค้นหาในตารางที่จำนวน record น้อยกว่า
ข้อเสีย การทำงานซับซ้อนขึ้นอีกนิดนึง
ข้อเสีย ต้อง update ทุกครั้ง
1.แบบไม่ต้องสร้างตาราง
*สร้างฟังก์ชั่นหาราคาล่าสุดของสินค้านั้นๆ( เช่น getLastPrice(รหัสสินค้า) ให้ return ราคาล่าสุด) จากตารางเสนอ เมื่อเลือกสินค้า ให้ set ราคาสินค้าล่าสุดใน TextField และสามารถแก้ไขได้ ก่อนบันทึก
ข้อดี การทำงานไม่ซับซ้อน แค่เรียกฟังก์ชั่นให้ทำงาน
ข้อเสีย อาจทำงานช้าลงเมื่อข้อมูลตารางเสนอ มากขึ้น
2.แบบสร้างตาราง
*ในตารางสินค้า ให้เพิ่มฟิวด์ที่เก็บราคาล่าสุดไว้ ในแบบฟอร์มเสนอ เมื่อเลือกสินค้า ให้ set ราคาสินค้าล่าสุดใน TextField จากฟิวด์ราคาล่าสุด (DLookup()) และสามารถแก้ไขได้ เมื่อกดบันทึกก็ให้ update ราคาล่าสุดไว้ในตารางสินค้า
ข้อดี ทำงานเร็วกว่าแบบ 1 เพราะค้นหาในตารางที่จำนวน record น้อยกว่า
ข้อเสีย การทำงานซับซ้อนขึ้นอีกนิดนึง
ข้อเสีย ต้อง update ทุกครั้ง
โพสต์นี้ได้รับคำขอบคุณจาก: Jiw Jewel
5
ห้อง MS Access / : ต้องการ Update ข้อมูลในฟิวส์ของฟอร์มย่อยตามฟิวส์ฟอร์มหลัก
« เมื่อ: 16 ก.พ. 64 , 09:50:44 »
1.ฟอร์มย่อยสร้างจากคิวรี่ ที่ใส่เงื่อนไข type_job =forms!ชื่อฟอร์มหลัก!ชื่อTextฟิวด์ type_job
2.ฟอร์มหลัก ที่ช่องใส่ข้อมูลTextฟิวด์ type_job เขียน event after update ให้ฟอร์มย่อย requery
ยังมีอีกหลายวิธี รอท่านอื่นตอบนะครับ
2.ฟอร์มหลัก ที่ช่องใส่ข้อมูลTextฟิวด์ type_job เขียน event after update ให้ฟอร์มย่อย requery
ยังมีอีกหลายวิธี รอท่านอื่นตอบนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Witthaya Soree
6
ห้อง MS Access / : สร้างรายงานแบบ Blank Report จะดึง Field จาก Query มาได้อย่างไรคะ
« เมื่อ: 25 ก.ย. 63 , 09:12:23 »
ในขั้นตอนการสร้างรายงานก็มีให้แท็บเลือกก่อนนะครับ ว่าจะเลือกใช้ข้อมูลจากตารางหรือคิวรี่
โพสต์นี้ได้รับคำขอบคุณจาก: oraaoi
7
ห้องโฆษณาฟรี / : POS Member Live Pro เขียนจาก Access ล้วนๆ รบกวนทดสอบด้วยครับผม
« เมื่อ: 24 ก.ค. 63 , 09:13:01 »
ออกแบบ UI สวยงามครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ittiphol
8
ห้อง MS Access / : หากไม่ต้องการให้จำนวนของ ติดลบ -1 ผมควรเขียนแบบไหนครับ อาจารย์
« เมื่อ: 22 เม.ย. 63 , 12:22:17 »
สมมุติ TextBox ที่คำนวณคงเหลือ ชื่อ Text_remain และ TextBox ที่คีย์จำนวนเบิกชื่อ TextAmt
if TextAmt> Text_remain then
msgbox "คงเหลือไม่พอให้เบิก"
else
// ทำการเบิก
end if
if TextAmt> Text_remain then
msgbox "คงเหลือไม่พอให้เบิก"
else
// ทำการเบิก
end if
โพสต์นี้ได้รับคำขอบคุณจาก: Eakaluk Sansila
9
ห้อง MS Access / : หากไม่ต้องการให้จำนวนของ ติดลบ -1 ผมควรเขียนแบบไหนครับ อาจารย์
« เมื่อ: 22 เม.ย. 63 , 09:11:09 »
คำถามไม่เคลียร์ก็ทำให้คนตอบ ตอบยากนะครับ ควรอธิบายที่มาให้ซักหน่อย ว่าคุณทำอะไร ปัญหาคืออะไร อยากได้คำตอบอะไร รูปประกอบ, code ก็สำคัญนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Eakaluk Sansila
10
ห้อง MS Access / : ตรวจสอบการรัน SQL สำเร็จหรือไม่
« เมื่อ: 22 เม.ย. 63 , 08:54:47 »
ขอบคุณมากครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
11
ห้อง MS Access / ตรวจสอบการรัน SQL สำเร็จหรือไม่
« เมื่อ: 21 เม.ย. 63 , 09:06:09 »
สอบถามครับว่าเราจะตรวจสอบได้อย่างไรว่าเมื่อเราใช้คำสั่ง docmd.Runsql "" ทั้ง Update Insert Delete เมื่อทำงานสำเร็จ ให้ Message บอกว่าได้ดำเนินการแล้ว มีการ insert update delete ในฐานข้อมูลเกิดขึ้นจริงๆ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
12
ห้อง MS Access / : สอบถามเขาทำกันยังไงครับกรณีเวลาเราเปิดฟอร์มแล้ว subform ยังไม่ขึ้นมาทันที่
« เมื่อ: 15 เม.ย. 63 , 08:35:21 »
event on main form open
set subform visible false
event on combox after update
set subform visible true
set subform visible false
event on combox after update
set subform visible true
โพสต์นี้ได้รับคำขอบคุณจาก: Niky@cm5
13
ห้อง MS Access / : รบกวนทุกท่านเช็ค VBA DoCmd.RunSQL ให้ผมหน่อยครับ
« เมื่อ: 13 เม.ย. 63 , 10:05:22 »
ไม่เว้นวรรค เวลาต่อประโยคบางช่วง ทีเหลือให้ท่านอื่นคอมเมนต์ต่อครับ ยิ่งดูยิ่งผิดปกติ
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin
14
ห้อง MS Access / : รบกวนทุกท่านเช็ค VBA DoCmd.RunSQL ให้ผมหน่อยครับ
« เมื่อ: 13 เม.ย. 63 , 09:55:21 »
ต่อประโยคผิด คอมมา(,) ใส่ไม่ครบ
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin
15
ห้อง MS Access / : ทุกวันนี้ ทุกคนยังใช้งาน ms access เวอร์ชั่นอะไรอยู่ครับ และใช้ฐานข้อมูลเป็น????
« เมื่อ: 22 ม.ค. 63 , 11:31:10 »16
กระดานข่าว / : เริ่มเทศกาลขายสินค้า หาเงินช่วยเว็บ
« เมื่อ: 11 ธ.ค. 62 , 10:54:40 »
ขอมีส่วนร่วมตอบแทนเว็บดีๆ ที่ให้ความรู้กับผมมาตลอดหลายปี และอยากให้เว็บอยู่ตลอดไป ขอประสงค์บริจาค แจ้งเลขบัญชีมาเลยครับ
หน้า: [1] 2
