บทความ

การใช้ VBA สั่งเปิดรายงานแบบมีเงื่อนไข (MS Access)

รูปภาพ
รายงานที่นำข้อมูลมาจาก Query สามารถกำหนดเงื่อนไขในการแสดงข้อมูลได้ ดังนี้ กำหนดเงื่อนไขโดยตรงในช่อง Criteria ของ Query นั้น ๆ  เช่น ถ้าเราต้องการให้นำข้อมูลของอำเภอนครหลวงมาแสดง ให้พิมพ์ข้อความในเครื่องหมายคำพูดในช่อง Criteria ดังภาพ ถ้าเป็นการสั่งจากฟอร์ม เราสามารถกำหนดให้นำข้อความจาก กล่องข้อความ list box หรือ combo box มาเป็นเงื่อนไขได้ โดยการอ้างอิงถึง กล่องข้อความในช่องเงื่อนไข ในภาพ เป็นการอ้างอิงข้อความชื่อวิชา ที่อยู่ใน กล่องข้อความ ในแบบฟอร์มชื่อ frmShowAll_by_Subject (อ่านวิธีการอ้างอิงถึง Object  คลิกที่นี่ ) ใช้ stLinkcriteria เพื่อกำหนดเงื่อนไขในการเปิดฟอร์ม  วิธีนี้เหมาะสำหรับการกำหนดเงื่อนไขที่มีการใช้สูตร เช่น ถ้าต้องการให้แสดงชื่อวิชาทั้งหมด หรือให้เลือกเฉพาะวิชาใดวิชาหนึ่งที่ต้องการ เราสามารถกำหนดเงื่อนไข ใน stLinkCriteria ได้ ตัวอย่างนี้ เป็นการกำหนดเงื่อนไข ให้นำข้อความใน list box ชื่อ lstSubNames มาเป็นเงื่อนไขในการเปิดรายงาน ตามที่ระบุ แต่ถ้าหาก ข้อความใน lstSubNames เป็นเครื่องหมายดอกจัน (*) ก็ให้นำข้อมูลทุกวิชามาแสดง         If Me.lstSubNames.Valu

การสร้าง QAT บนริบบิ้น ของ Access 2010

รูปภาพ
เมื่อมี การสร้างริบบิ้นขึ้นใช้เอง โดยสร้างตาราง USysRibbons และเขียน XML กำหนดค่า ต่าง ๆ จะไม่พบว่ามี Quick Access Toolbar (QAT) ที่ทำให้เข้าถึงคำสั่งต่าง ๆ ที่ใช้บ่อย ๆ ได้ ถ้าต้องการให้มี QAT ต้องเขียนเพิ่มเข้าไปใน XML ดังนี้ <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" > <ribbon startFromScratch="true"> <qat> <documentControls> <button idMso="FileSave"/> <control idMso="Undo" /> <control idMso="Redo" /> <button idMso="Paste"/> <button idMso="PrintDialogAccess"/> </documentControls> </qat> <tabs> <tab idMso="TabHomeAccess" visible="true" /> ... ภาพที่ได้ จะเป็นดังนี้ มีข้อสังเกตคือ FileSave เป็นปุ่ม (Button) ส่วน Redo และ Undo เป็น Control

ไม่สามารถคัดลอก และวาง จาก Excel มาที่ Access

รูปภาพ
โดยปกติ โปรแกรม MS Access และ MS Excel สามารถถ่ายโยงกันได้ เช่น ลากดำ และกดปุ่ม คัดลอก หรือ Copy จากโปรแกรม MS Excel และมาวาง ในโปรแกรม MS Access ได้ทันที ไม่มีปัญหา แต่บางทีสิ่งที่ไม่คาดคิดก็เกิดขึ้น นั้นคือ ไม่สามารถวางสิ่งที่คัดลอกจาก Excel มาไว้ใน Access ได้ โดยมีข้อความแจ้งให้ทราบว่า ข้อมูลที่คัดลอกไปที่คลิปบอร์ดเสียหาย ไม่สามารถวางได้ ลองปิดโปรแกรม แล้วเปิดใหม่ ปิดเครื่องแล้วเปิดใหม่ ก็ไม่หาย สาเหตุหลักเกิดมาจากการ update ของไมโครซอฟท์ ทำให้เกิดปัญหาด้านความปลอดภัยของ Excel เลยทำให้ไม่สามารถคัดลอก และวาง ใน Access ได้  อ่าน KB958437  และ KB967699 การแก้ไข วิธีที่ 1 คัดลอกแล้วปิดโปรแกรม Excel คัดลอกจาก Excel แล้วปิดโปรแกรม Excel เมื่อเขาถามว่า จะเอาสิ่งที่คัดลอกไว้ในคลิปบอร์ดเก็บไว้เพื่อให้สามารถเอาไปใช้กับโปรแกรมแกรมอื่น หรือไม่ ต้องตอบว่าใช่ คลิกที่ Access และกดปุ่ม วาง หรือ Paste เท่านี้ก็สามารถวางได้ วิธีที่ 2 คัดลอกจาก Excel แล้วมาที่ Access และ Paste จาก คลิกปบอร์ด คัดลอกจาก Excel มาที่ Access คลิกเพื่อเปิด คลิปบอร์ด จะเห็นสิ่งที่คัดลอกจาก Excel ค

เทคนิค Access VBA

รูปภาพ
เทคนิค เกร็ด การใช้ VBA กับ Microsoft Access การสั่งไม่ให้ใช้ คลิกขวา ที่ฟอร์ม หรือ รายงาน เปิดฟอร์มหรือรายงานแบบ มุมมองออกแบบ หรือ Design View ที่ on load เขียนคำสั่งเพิ่ม ดังนี้ Forms("ชื่อฟอร์ม หรือชื่อรายงาน").ShortcutMenu = False เมื่อเปิดฟอร์ม จะไม่สามารถใช้คลิกขวาได้ การใช้ Combo box กำหนด Row Source Type เป็น Table/Query เมื่อต้องการนำข้อมูลจากตารางหรือ Query มาแสดง ถ้าจะใส่ข้อมูลเอง ให้กำหนด Row Source Type เป็น Value list ถ้าจะเคลียข้อมูลใน Combo box ให้ใช้คำสั่ง me.ชื่อ combo box. RowSource = "" ในกรณีที่ต้องการสร้าง Comob box 2 อัน เมื่อเลือกอันที่หนึ่งแล้ว ให้เป็นเงื่อนไขที่จะนำตัวเลือกมาแสดงใน combo box อันที่ 2 เช่น เมื่อเลือกจังหวัดแล้ว ให้นำชื่ออำเภอของจังหวัดที่เลือก มาให้เลือกใน Combo box อันที่ 2 ทำดังนี้ - สร้างตาราง 2 ตาราง สำหรับเป็นข้อมูลจังหวัด และ อำเภอ ตารางจังหวัด ตารางอำเภอ - สร้าง combo box 2 อัน สมมุติชื่อ cboProvince และ cboAmphur -กำหนด Row Source Type ทั้งสอง เป็น Table/Query เพราะต้องเอาข้อมูลมาจาก ตาราง เนื่

พื้นที่ฟรี บนอินเทอร์เน็ต (cloud) กับ skydrive

รูปภาพ
หลายคนพูดเรื่อง Cloud (ก้อนเมฆบนฟ้า) หรือ พื้นที่เก็บไฟล์บน อินเทอร์เน็ต เพราะ นอกจากจะสะดวกที่ไปอยู่ที่ไหน ๆ ที่เข้าอินเทอร์เน็ตได้ ก็เรียกไฟล์มาใช้งานได้ และยังใช้เป็นที่เก็บสำรองไฟล์ได้ด้วย เผื่อว่า เครื่องคอมพิวเตอร์ที่ใช้อยู่ มีปัญหา ก็ยังมีไฟล์สำรอง ไม่หายไปพร้อมกับฮาร์ดดิสก์ ที่ถูกไวรัสโจมตีได้ บางคนเขาบอกว่า เขาเก็บไฟล์โดยใช้บริการ Cloud ทั้งหมดเลย ยกเว้นข้อมูลที่เกี่ยวกับการเงินเท่านั้น นี่ก็แสดงให้เห็นแล้วว่า บริการนี้ กำลังได้รับความนิยมกันมากทีเดียวนะครับ เพราะ ประหยัดและปลอดภัย (ระดับหนึ่ง ในกรณีใช้เป็นการ สำรองไฟล์) ด้วยนะครับ ผม เคยพูดเรื่องการเก็บไฟล์ บนเว็บ ของ Dropbox แล้วครั้งหนึ่ง Dropbox ก็เป็น Cloud ที่เก็บไฟล์แนวหน้าเว็บหนึ่ง วันนี้ จะมีทางเลือก คือ ใช้ SkyDrive ของ Hotmail นี่ก็ฟรีเหมือนกัน ของฟรีอื่น ๆ ที่เก็บข้อมูลบน Cloud ก็มีอีกหลายตัว เช่น ของ Google ก็มี  Google Docs นอกจากนี้ ก็มีอีกเยอะ เช่น  Evernote   CloudApp   SpiderOak , Box , Wuala  และ SugarSync  เป็นต้น SkyDrive ให้พื้นที่ฟรี 25 GB เยอะมากเหมือนกัน ข้อดีอย่างหนึ่ง ก็คือ เนื่องจากว่า เป็

โทษของถั่วเหลือง

รูปภาพ
วันก่อน ฟังวิทยุ WDCF-AM 1350 TAMPA BAY รายการ  Sustainable Health ของ Lord Rudi C. Loehwing ได้ความรู้ใหม่ว่า อาหารที่ทำจากถั่ว (soy) เช่น ถั่วเหลือง โดยผ่านกระบวนการหมักดอง มีประโยชน์มากกว่าที่ไม่ผ่านกระบวนการหมักดอง อาหารจากถั่วที่ไม่ผ่านกระบวนการหมักดอง กินเข้าไปแล้ว สามารถเกิดโทษได้หมือนกัน เพราะ ถั่วเหลือง (soy) เป็น หนึ่งในแปดของกลุ่มอาหารที่มักเป็นสาเหตุก่อโรคภูมิแพ้ ( Allergens ) สามารถเกิดอาการแพ้ได้ทันที เช่น ไอ จาม น้ำมูกไหล ท้องร่วง ท้องเสีย เป็นต้น อาการแพ้อาจจะไม่แสดงผลในทันที แต่อาจจะแสดงหลังจากกินแล้ว หลายชั่วโมง หรือหลายวัน ก็ได้ ผมตรวจสอบกับเว็บของ สำนักงานมาตรฐานสินค้าเกษตรและอาหารแห่งชาติ พบว่า สินค้าสำคัญ 8 กลุ่ม ที่เป็นต้นเหตุของการก่อภูมิแพ้อาหาร 90% ได้แก่ นม ไข่ สัตว์น้ำ สัตว์ไม่มีกระดูกสันหลังที่มีเปลือก ถั่วประเภท tree nuts ถั่วลิสง แป้งข้าวสาลี และถั่วเหลือง ต้องยอมรับว่าเป็นความรู้ใหม่จริง ๆ ผมก็เลยต้อง Google ดู พบว่ามีการพูดถึงเรื่องนี้กันมาหลายปีแล้ว ข้อมูลเท่าที่ผมพบ มีตั้งแต่ปี 2004 (พ.ศ. 2547) Loehwing บอกว่า  เราเชื่อว่าอาหารที่มาจากถั่ว

เดินเท้าเปล่า เพื่อสุขภาพ

รูปภาพ
ร่างกายมนุษย์ เปรียบเสมือนเชือกเส้นใหญ่ที่ประกอบด้วยสปริงเป็นล้าน ๆ ตัว จึงทำให้ยืดหยุ่นได้ ในขณะเดิน หรือวิ่ง กลไกสปริงของมนุษย์ (human spring mechanism) ช่วยทำให้เราสามารถเดินหรือวิ่งไปไหนมาไหนได้ ถ้ากลไกนี้หย่อนประสิทธิภาพ จะทำให้เหนื่อยง่าย อ่อนเพลีย พลังการก้าวเดินทุกย่างก้าวของเรา มาจากกลไกสปริงของมนุษย์ ตั้งแต่ฝ่าเท้าจนถึงศรีษะ (พลังสปริงหลักอยู่ที่บริเวณส่วนโค้งของฝ่าเท้า) นั่นแหละที่เมื่อกลับจากการทำงานถึงบ้าน ถอดรองเท้าแล้วเดินเท้าเปล่าจึงมีความรู้สึกปลอดโปร่ง โล่งสบาย อะไรที่ทำให้กลไกสปริงของมนุษย์อ่อนล้า การเดิน การวิ่ง อย่างไม่เป็นธรรมชาติ ประมาณ 275 ล้านครั้ง ชั่วชีวิตของคน ทำให้กลไกเสื่อมถอย ความไม่เป็นธรรมชาติ การถูกพันธนาการ ความไม่เป็นอิสระในการเดิน ไม่ใช่อะไร รองเท้านั่นเอง มาปลดปล่อย ให้ร่างกายเคลื่อนไหวอย่างอิสระ ปลด ปลอดจากรองเท้า นายแพทย์ Dr James Stoxen DC   สรุปว่า การเดินและการวิ่งด้วยรองเท้า เป็นสาเหตุสำคัญที่เร่งกระบวนการเสื่อมถอยของระบบกล้ามเนื้อและกระดูก (musculoskeletal system) ตามหลักการแพทย์แผนโบราณของจีนกล่าวว่า เท้านั้นเป็นส่วนหนึ่งของร่างก