19
แสดงกระทู้
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.
20
ห้อง MS Access / : ตรวจสอบข้อมูลตาราง ถ้าไม่ตรงกันให้ลบออก
« เมื่อ: 14 ต.ค. 64 , 15:04:14 »
docmd.runsql "Delete from BB where รหัส not in (select รหัส from AA)"
หรือ สร้าง Delete คิวรี่ จากตาราง BB ตรงฟิวด์รหัส ใส่ criteria not in (select รหัส from AA)
หรือ สร้าง Delete คิวรี่ จากตาราง BB ตรงฟิวด์รหัส ใส่ criteria not in (select รหัส from AA)
21
ห้อง MS Access / : ต้องการ Running sum ไปเรื่อยๆครับ โดยมี 00 นำหน้า
« เมื่อ: 07 ต.ค. 64 , 11:55:47 »
สร้าง อีก TextBox นึง แล้วต่อ String ="00" & [Text30] จากนั้นซ่อน visible Text30 Running Sum เลือก Over All
ถ้าข้อมูลมีหลาย record จะแสดง 001,002,...,0010,...
ถ้าข้อมูลมีหลาย record จะแสดง 001,002,...,0010,...
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
22
ห้อง MS Access / : กำหนดตำแหน่งของฟอร์มบนหน้าจอ
« เมื่อ: 28 ก.ย. 64 , 10:26:09 »23
ห้อง MS Access / : บังคับไม่ให้ เคอร์เซอร์ เลื่อนไปใน box อืน
« เมื่อ: 23 ก.ย. 64 , 09:37:42 »
ลองตามนี้
วิธีที่1 control ตัวอื่นทั้งหมด กำหนด properties tabStop เป็น No
วิธีที่ 2 ใช้ setFocus ที่ control ที่ต้องการ
วิธีที่1 control ตัวอื่นทั้งหมด กำหนด properties tabStop เป็น No
วิธีที่ 2 ใช้ setFocus ที่ control ที่ต้องการ
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit
24
ห้อง MS Access / : ถ้าเขียนโปรแกรมเสร็จแล้ว ต้อง Export หรืออะไรก่อนไหมครับ
« เมื่อ: 06 ส.ค. 64 , 08:45:12 »
เปิดใช้งานได้เลย ถ้ามี microsoft office access
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit
25
ห้อง MS Access / : Error Varible not defined โค้ดทับกันตรงไหนหรือเปล่าครับ
« เมื่อ: 23 ก.ค. 64 , 10:38:55 »
ยังไม่ได้ประกาศตัวแปร
26
ห้อง MS Access / : หาสูตรว่าใครขายของได้จำนวนเท่าไหร่ครับ
« เมื่อ: 19 พ.ค. 64 , 09:11:29 »
DSum("ชื่อฟิวด์เก็บจำนวนเงิน","ชื่อตารางหรือคิวรี่","[ชื่อฟิวด์หมู่]=forms!ชื่อฟอร์ม!ชื่อ TextBox(หมู่)")
28
ห้อง 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
ลองประยุกต์ดูครับ
29
ห้อง 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
30
ห้อง 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
31
ห้อง MS Access / : สร้างรายงานแบบ Blank Report จะดึง Field จาก Query มาได้อย่างไรคะ
« เมื่อ: 25 ก.ย. 63 , 09:12:23 »
ในขั้นตอนการสร้างรายงานก็มีให้แท็บเลือกก่อนนะครับ ว่าจะเลือกใช้ข้อมูลจากตารางหรือคิวรี่
โพสต์นี้ได้รับคำขอบคุณจาก: oraaoi
32
ห้องโฆษณาฟรี / : POS Member Live Pro เขียนจาก Access ล้วนๆ รบกวนทดสอบด้วยครับผม
« เมื่อ: 24 ก.ค. 63 , 09:13:01 »
ออกแบบ UI สวยงามครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ittiphol
33
ห้อง 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
34
ห้อง MS Access / : หากไม่ต้องการให้จำนวนของ ติดลบ -1 ผมควรเขียนแบบไหนครับ อาจารย์
« เมื่อ: 22 เม.ย. 63 , 09:11:09 »
คำถามไม่เคลียร์ก็ทำให้คนตอบ ตอบยากนะครับ ควรอธิบายที่มาให้ซักหน่อย ว่าคุณทำอะไร ปัญหาคืออะไร อยากได้คำตอบอะไร รูปประกอบ, code ก็สำคัญนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Eakaluk Sansila
35
ห้อง MS Access / : ตรวจสอบการรัน SQL สำเร็จหรือไม่
« เมื่อ: 22 เม.ย. 63 , 08:54:47 »
ขอบคุณมากครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
36
ห้อง MS Access / ตรวจสอบการรัน SQL สำเร็จหรือไม่
« เมื่อ: 21 เม.ย. 63 , 09:06:09 »
สอบถามครับว่าเราจะตรวจสอบได้อย่างไรว่าเมื่อเราใช้คำสั่ง docmd.Runsql "" ทั้ง Update Insert Delete เมื่อทำงานสำเร็จ ให้ Message บอกว่าได้ดำเนินการแล้ว มีการ insert update delete ในฐานข้อมูลเกิดขึ้นจริงๆ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
