ทองจุล ขันขาว

ปัญหา MS Access 2007/2010 เมื่อ compile โดยจัดทำเป็น accde แล้วมีปัญหาเมื่อนำไปใช้กับ Windows ที่ต่างรุ่นกัน เช่นทำจาก Vista / Office 2010 เมื่อนำไปใช้กับ Windows 7 / Office 2010 หรือ Windows XP / Office 2010 มีปัญหา เปิดไม่ได้ บอกว่าไม่รู้จัก ทั้ง ๆ ที่เป็น Office 2010 ด้วยกันเอง การแก้ไข ไม่ต้อง compile เป็น accde แต่ ยังคงใช้เป็น accdb เหมือนเดิม แต่ใส่รหัสที่โค้ด เพื่อไม่ให้เปิดดูได้ เพราะถ้าเปิดได้ และแก้ไขโค้ด ก็จะทำให้โปรแกรมที่เขียน ทำงานไม่ได้ตามที่ต้องการ หรืออาจจะไม่ทำงานเลย วิธีการใส่รหัสเพื่อไม่ให้เปิดดูโค้ด ทำดังนี้ เปิดหน้าจอ VBA (กด Atl + F11) ไปที่ Tools > Database Properties ...จะเปิดหน้าจอข้างล่าง คลิกที่แถบ Protection พิมพ์รหัสตามต้องการ เมื่อปิดและจะเข้าไปแก้ไขโค้ด ต้องใส่รหัส

Stroke มีชื่อเรียกต่าง ๆ กัน เช่น โรคหลอดเลือดสมอง อัมพาต อัมพฤกษ์ เส้นเลือดอุดตัน เป็นต้น Stroke เป็นโรคพบได้บ่อยโรคหนึ่ง ในประเทศที่เจริญแล้ว โรคนี้เป็นสาเหตุการเสียชีวิตเป็นอันดับสองรองจากโรคหัวใจ เป็นโรคพบได้บ่อยในอายุตั้งแต่ 45 ปีขึ้นไป (95%ของผู้ป่วยทั้งหมด) โดยประมาณสองในสามของผู้ป่วยมีอายุมากกว่า 65 ปี ทั้งนี้ พบในผู้ชายบ่อยกว่าในผู้หญิงประมาณ 1.5 เท่า Stroke เกิดจากอะไร? Stroke มีสาเหตุเกิดจาก สมองขาดเลือดทันทีภายในระยะ เวลาเป็นนาทีหรือ ชั่วโมง ซึ่งเกิดได้จาก 2 สาเหตุสำคัญ คือ หลอดเลือดแดงสมองอุดตัน (ischemic stroke) หลอดเลือดแดงสมองแตก (hemorrhagic stroke) โรคอัมพาต โรคอัมพฤกษ์มีอาการอย่างไร? อาการจากโรคอัมพาต โรคอัมพฤกษ์เป็นอาการที่เกิดทันที เป็น นาที หรือ ชั่วโมง โดยอาการขึ้นกับตำแหน่งสมองส่วนที่ขาดเลือด ซึ่งที่พบบ่อย ได้แก่ แขน ขา ด้านเดียวกันอ่อนแรงทันที แขน ขาด้านเดียวกัน ใบหน้า ชา สับสน พูดไม่ชัด หรือ พูดไม่ได้ อาจมีตาพร่า มองเห็นภาพไม่ชัด หรือ เห็นภาพเพียงบางส่วน หรือ เห็นภาพได้แคบลง อาจหายใจเหนื่อยหอบ ติดขัด มึนงง วิงเวียน ทรงตัวไม่ได้ ปวดศีรษ...

การย้ายแถวใน Excel ของง่าย ๆ แต่บางทีนึกไม่ถึงเหมือนกัน จากภาพข้างล่าง ต้องการย้ายแถวที่ 3 ไปตำแหน่งอื่น ขั้นแรกลองเลือกทั้งแถว และไปที่เส้นขอบ จากนั้นลากไปไว้ที่อื่น พอปล่อยเมาส์ Excel ตั้งคำถามว่า จะให้ลบของเดิมหรือไม่ ถ้าต้องการลบของเดิม แล้วใช้ของใหม่แทนที่คงไม่ยาก แต่ถ้าต้องการแทรก โดยเลื่อนข้อมูลเดิมลงไปอีก 1 แถว จะทำอย่างไร วิธีการ เลือกทั้งแถว คลิกขวาที่เส้น ลากไปวางในตำแหน่งแถวที่ต้องการ ปล่อยเมาส์ จะมีคำถาม ให้เลือก Shift Down and Move จะได้ข้อมูลใหม่ ดังภาพ ซึ่งจะเห็นว่า แถวที่ 3 มาแทรกอยู่ระหว่างแถวที่ 9 และ แถวที่ 10 โดยที่ข้อมูลเดิมยังอยู่ครบ

ต้นไม้มีสารชนิดหนึ่งที่เรียกว่า ไฟโตนิวเทรียนท์ (phytonutrients) ช่วยปกป้องพืชให้พ้นจากภัยรอบด้าน เช่น จากเชื้อโรคต่าง ๆ จากการบาดเจ็บ จากแมลง จากความร้อนของดวงอาทิตย์ จากรังสีอุลตร้าไวโอเล็ต จากสารพิษ ตลอดจนมลพิษต่าง ๆ ทั้ง ในน้ำ ในดิน และในอากาศ ว่าง่าย ๆ คือ ไฟโตนิวเทรียนท์ เป็นภูมิคุ้มกันของพืช ก็ว่าได้ เมื่อเรากินพืชผักจึงได้รับ ไฟโตนิวเทรียนท์ ด้วย ไฟโตนิวเทรียนท์ ในร่างกายของเรา เป็นสิ่งจำเป็นนอกเหนือไปจากสารอาหารทั้ง 5 หมู่ ที่รู้จักกันดีอยู่แล้ว ไฟโตนิวเทรียนท์ ช่วยซ่อมแซมเซลล์ ช่วยลดคอเลสเตอรอล ช่วยเสริมสร้างความต้านทาน และเป็นตัวต้านอนุมูลอิสระ นอกจากนี้ยังช่วยป้องกัน รักษาโรคสำคัญ เช่น มะเร็ง เบาหวาน และโรคเกี่ยวกับหัวใจและหลอดเลือด (cardiovascular disease) ไฟโตนิวเทรียนท์ เป็นสารที่ทำให้พืชผัก ผลไม้มีสีต่าง ๆ พืชผัก ผลไม้ต่างสีกัน มีไฟโตนิวเทรียนท์ ชนิดต่างกัน ซึ่งแต่ละชนิดก็จะทำหน้าที่แตกต่างกันไปด้วย เพราะฉะนั้น การกินผักผลไม้เพียงอย่างใดอย่างหนึ่งจึงยังไม่พอ ต้องกินให้ครบทุกสี ผักและผลไม้สีต่างกัน ให้ประโยชน์ต่างกัน อาหารที่มีไฟโตนิวเทรียนท์ และตัวต้านอนุมูลอิสระ ...

การใช้ฟังก์ชัน If ของ Excel ตรวจสอบหลายเงื่อนไข  มีรูปแบบ ดังนี้            If( condition, value_if_true, value_if_false ) เราสามารถตรวจสอบหลายเงื่อนไข โดยการเพิ่ม if เข้าในส่วนที่ไม่เป็นไปตามเงื่อนไข เช่น             If( condition, value_if_true, If( condition, value_if_true, value_if_false ) ) ตัวอย่าง             =IF(MID(A1,1,3)="นาย","นาย",IF(MID(A1,1,3)="นาง","นาง","")) ถ้ามีการตรวจสอบหลายครั้ง การใช้ฟังก์ชัน if จะไม่ค่อยสะดวก เพราะตรวจสอบยากมาก เนื่องจากข้อความที่เขียนจะยาวมาก ต้องตรวจสอบหลายครั้งกว่าที่จะทำได้ถูกต้อง ทางออกอย่างหนึ่งที่ง่ายกว่า คือการใช้ VBA ช่วย โดยสร้างฟังก์ชันขึ้นใช้เอง และใช้ if หรือ Select caseตรวจสอบเงื่อนไข จะทำให้สะดวกกว่า เช่น     if (เงื่อนไขที่ 1) then         ..............................     elseif (เงื่อนไ...

ใน Excel ถ้าต้องการแยกคำนำหน้าชื่อ ชื่อจริง และนามสกุล ออกจากกัน ถ้าจะใช้สูตรที่มีในแผ่นงานของ Excel ก็ต้องสร้างเงื่อนไขจำนวนมาก ซึ่งไม่สะดวก เพราะคำนำหน้าชื่อของไทยมีจำนวนมาก เช่น นาย นาง ด.ช., ม.ล., ดร. เป็นต้น และถ้ายิ่งมีการใช้ยศทหาร ตำรวจด้วยแล้ว การตรวจสอบด้วยเงื่อนไขจากสูตร จะทำได้ไม่สะดวกเลย อย่างนี้ จำเป็นต้องใช้ VBA ช่วย จะสามารถทำได้สะดวกมากกว่า อย่างไรก็ตาม ต้องมีเงื่อนไขว่า ชื่อและนามสกุลต้องเขียนแยกกัน โดยมีช่องว่าง เพราะใน VBA ข้างล่างนี้ ใช้ช่องว่างเป็นหลักในการแยกชื่อ และนามสกุล ตัวอย่าง ให้ท่านแยกคำนำหน้าชื่อ ชื่อ และนามสกุล จากข้อมูลข้างล่างนี้ ออกเป็นคนละเซลล์กัน วิธีการ มีดังนี้ เปิดหน้าต่าง VBA ของ Excel โดยกดปุ่ม Alt + F11 ไปที่เมนู Insert > Module (แทรก > โมดูล) คลิกที่ Module1 และพิมพ์โค้ดข้างล่างนี้ Function getTitle(thisFullName As String) As String Dim Titles As Variant Dim myCount As Integer ' สร้างตัวแปร Array ชื่อ Titles เพื่อเก็บคำนำหน้าชื่อ สามารถเพิ่มได้อีกไม่จำกัด ' ต้องให้ นางสาว มาก่อน นาง มิฉะนั้นจะต...

INDEX ใช้สำหรับแสดงข้อมูล ในช่วงที่ระบุ MATCH ใช้ค้นหาตำแหน่ง ในช่วงข้อมูลที่ระบุ ตามเงื่อนไขที่กำหนด รูปแบบการใช้ INDEX( array, row_num, [ column_num ] )      array  คือช่วงข้อมูลที่กำหนด      row_num คือ ตำแหน่งเริ่มต้นลงมากี่แถว ในช่วงที่กำหนด      column_num คือ ตำแหน่งถัดเข้าไปกี่คอลัมน์ ในช่วงที่กำหนด MATCH( lookup_value, lookup_array, match_type )      lookup_value คือ ข้อมูลที่ต้องการค้นหา      lookup_array คือ ช่วงข้อมูลที่กำหนดให้ค้นหาภายในนี้      match_type คือ ลักษณะการค้นหา มีค่าได้ 3 ค่า คือ 0, +1 และ -1           ถ้าเป็น 0 หมายถึงต้องเหมือนกับข้อมูลที่ต้องการค้นหา           ถ้าเป็น +1 หมายถึง ให้หาข้อมูลที่มากที่สุด ซี่งน้อยกว่าหรือเท่ากับข้อมูลที่กำหนด และต้องเรียงข้อมูลจากน้อยไปหามาก เช่น -2 -1 0 1 2 3 หรือ ก - ฮ หรือ A-Z    ...

OFFSET ใช้กำหนดช่วงข้อมูล โดยใช้ร่วมกับสูตรอื่น ๆ ที่ต้องการช่วงของข้อมูล จะมีประโยชน์มากในกรณีที่ข้อมูลมีการเปลี่ยนแปลง และไม่ทราบว่ามีความยาวเท่าไร รูปแบบ OFFSET( reference,rows,cols,height,width) reference: คือตำแหน่งที่ใช้อ้างอิง เสมือนหนึ่งปักหมุดแล้วใช้อ้างอิงจากจุดนี้ไป rows: คือตำแหน่งเริ่มต้นช่วงข้อมูลว่า จะอยู่เหนือ หรือต่ำกว่าจุดอ้างอิง จำนวนกี่แถว ถ้าเป็น + คือต่ำกว่า และค่าเป็น - คือตำแหน่งที่อยู่เหนือขึ้นไป cols คือตำแหน่งเริ่มต้นช่วงข้อมูลว่าจะเริ่มห่างจากจุดอ้างอิงไปทางซ้าย หรือทางขวา กี่คอลัมน์ ถ้าเป็น + คือทางขวา และค่าเป็น - คือทางซ้าย height: ช่วงความสูง คือจำนวนแถวว่าจะให้มีความสูงในส่วนที่เลือกกี่แถว width: ช่วงความกว้างของบริเวณที่จะเลือกว่าจะให้กว้างกี่คอลัมน์ ตัวอย่าง ให้หาผลรวมของจำนวนข้างล่างนี้ โดยกำหนดให้สามารถเพิ่มข้อมูลได้อีก และให้ปรับผลรวมโดยอัตโนมัติ จากภาพ เซลล์ C2 คือผลรวมของตัวเลขในเซลล์ C4 ถึง C6 และถ้ามีการเพิ่มข้อมูลในเซลล์ C7 C8 หรือ C9 ก็ให้ปรับผลรวมโดยอัตโนมัติ วิธีการ ต้องใช้คำสั่ง OFFSET เพื่อกำหนดช่วงให้รวมข้อมูลด้วยค...

SUBSTITURE และ REPLACE ของ Excel ใช้แทนที่ข้อความเหมือนกัน ต่างกันที่ ถ้าเราทราบตำแหน่งของข้อความเดิมที่จะไปแทนที่ ให้ใช้ Replace แต่ถ้าเราไม่ทราบตำแหน่ง ให้ใช้ Substitute รูปแบบการใช้งาน SUBSTITUTE(text, "old_text", "new_text", instance_num)    text:  ตำแหน่งข้อความที่จะนำมาเปลี่ยน เช่น A1    old_text: ข้อความเดิมที่ต้องการจะเปลี่ยน    new_text:  ข้อความที่ต้องการให้เปลี่ยนเป็นข้อความนี้    instance_num:  ระบุจำนวนครั้งของข้อความที่เกิดขึ้นในข้อความที่จะนำมาเปลี่ยน ที่ต้องการเปลี่ยน (งง เหมือนกัน อ่านต่ออีกซักหน่อยนะครับ)  ถ้าไม่ระบุ Excel จะเปลี่ยนข้อความนั้น ๆ ทีมีอยู่ในข้อความทุกครั้ง เช่น ข้อความเดิมคือ 24122341225 ถ้าต้องการเปลี่ยนเลข 41 เป็น 55 จะมีการเปลี่ยน 2 ครั้ง เพราะหมายเลข 41 มีปรากฏในข้อความที่ระบุ 2 ครั้ง คือ ปราฏครั้งที่ 1 ตำแหน่งที่ 2 และ ปรากฏครั้งที่ 2 ตำแหน่งที่ 7 (ดังนี้ 2 41 223 41 225) ดังนั้น ถ้าไม่ระบุ instance_num โปรแกรม Excel จะระบุให้ทั้ง 2 แห่ง แต่ถ้าต้อง...

เมื่อต้องการหาผลรวมของรายการหลายรายการ โดยมีเงื่อนไขหลายเงื่อนไข ให้ใช้ สูตร SUMPRODUCT เช่น ต้องการหาผลรวมการขายของพนักงาน ตามข้อมูลข้างล่างนี้ จะเห็นว่า สุดาขายสินค้าหลายอย่าง แต่เราต้องการทราบเฉพาะจานเท่านั้น ดังนั้น ในกรณีนี้ จะมี 2 เงื่อนไข คือ ชื่อ และสินค้า แล้วให้นำเงินที่ขายได้มารวมกัน ในเซลล์ D12 ให้เขียนสูตร ดังนี้ =SUMPRODUCT(--(B2:B9="สุดา"),--(C2:C9="จาน"),D2:D9) ข้อความ --(B2:B9="สุดา") จะได้ผลเป็น 0 ถ้าช่วงที่กำหนดไม่มีคำว่า "สุดา" และ เป็น 1 ถ้ามีคำว่า "สุดา" ข้อความ --(C2:C9="จาน")จะได้ผลเป็น 0 ถ้าช่วงที่กำหนดไม่มีคำว่า "จาน" และ เป็น 1 ถ้ามีคำว่า "จาน" ส่วน D2:D9 คือค่าที่จะให้นำมารวมกัน ผลที่ออกมาจะได้ ดังภาพ ในกรณีที่มีการระบุจำนวนสินค้า และราคาสินค้าด้วย ดังภาพข้างล่างนี้ จะเห็นว่า สุดา ขายจานได้ 5 ใบวันที่ 1/4/2555 และ ขายได้อีก 8 ใบ เมื่อวันที่ 6/4/2555 จานราคาใบละ 20 บาท ดังนั้น การคำนวณ จึงต้องเอาจำนวนที่ขายได้ ไปคูณกับราคาแต่ละชิ้น แล้วจึงนำไปบวกกันอีกที ลัก...

ครูกับข้อสอบเป็นของคู่กัน ครูดีต้องรู้จักการวิเคราะห์ข้อสอบ เพื่อให้ได้ข้อสอบที่ดี และถ้าวิเคราะห์แล้วเก็บข้อสอบที่ดี ๆ ไว้ใช้งาน ก็จะทำให้ประหยัดได้ทั้งเวลา มีข้อสอบที่ดีให้เลือกใช้ได้อย่างรวดเร็ว การวิเคราะห์ข้อสอบ เป็นกระบวนการหาคุณภาพของข้อสอบ โดยการพิจารณาเป็นรายข้อ ว่า ข้อสอบแต่ละข้อที่ออกนั้นมีความยากง่าย และสามารถแยกแยะนักเรียนอ่อนออกจากนักเรียนเก่งได้มากเพียงใด ข้อสอบที่มีค่าความยากมาก ๆ หรือง่ายมาก ๆ เป็นข้อสอบที่ไม่ควรนำมาใช้งาน หรือข้อสอบที่เด็กอ่อนตอบถูกกันมาก แต่เด็กเก่งตอบผิดกันมาก เรียกว่าไม่มีค่าอำนาจจำแนก ข้อสอบประเภทนี้ก็ใช้ไม่ได้เหมือนกัน ส่วนคุณภาพของข้อสอบทั้งฉบับต้องพิจารณา ความเชื่อมั่น ( reliability ) ความเที่ยงตรง ( validity ) ความเทียงตรง ( validity ) เป็นการตรวจสอบว่า ข้อสอบมีความสมบูรณ์ถูกต้องตรงตามเนื้อหาหลักสูตร ครอบคลุมทุกจุดประสงค์หรือไม่ ซึ่งอาจจะใช้ผู้รู้ หรือครูที่สอนวิชานั้น ๆ มาช่วยกันวิเคราะห์เนื้อหา จัดทำเป็นผังข้อสอบ สำหรับการนำไปออกข้อสอบ และเมื่อได้ข้อสอบแล้วก็มาช่วยกันวิเคราะห์ว่า ข้อสอบนั้น ๆ เป็นไปตามจุดประสงค์หรือไม่อย่างไร ส่วนคว...

วันก่อน ต้องการคัดลอกชื่อไฟล์ใน directory เพื่อนำมาใช้เป็นชื่อสำหรับเรียกใน MP3 Flash Player วิธีการที่ง่ายที่สุด ก็คือการใช้คำสั่ง Dos ซึ่งมีมาช้านานแล้ว สำหรับ Windows 7 แม้ว่าจะไม่มีคำสั่ง MS-Dos ให้ใช้แล้วก็ตาม แต่มี Command line ให้ใช้ได้เหมือนกับคำสั่ง Dos เช่นเดียวกัน การเข้าใช้งาน ให้ไปที่ Start พิมพ์คำว่า cmd.exe แล้วกด Enter จะเข้าสูหน้าจอ Command Prompt คำสั่ง Dos/Command line ที่มีประโยชน์ cd\ ถอยหลังออกจาก Directory กลับไปที่ root cd ชื่อ Directory เข้าห้อง Directory ที่ระบุ dir แสดง Directory copy *.txt myText.txt คัดลอกข้อมูลในไฟล์ที่เป็น Text file (มีนามสกุล txt) ทุกไฟล์ ไปไว้ในไฟล์ myText.txt คำสั่งจะรวมข้อความในไฟล์ txt ทุกไฟล์ไปไว้ใน myText.txt สำหรับนามสกุลของ text file ที่จะคัดลอก จะเป็นนามสกุลอะไรก็ได้ แต่ขอให้เป็น Text file ก็แล้วกัน เช่น บางโปรแกรมอาจจะเก็บ text file โดยใช้นามสกุล dat เป็นต้น dir *.* > myDir.txt พิมพ์ชื่อไฟล์ รายละเอียดของไฟล์ และ ชื่อ Directory ทั้งหมดใน directory ปัจจุบัน ลงในไฟล์ ชื่อ myDir.txt สามารถให้พิมพ์เฉพาะชื่อไฟล์...

ก่อนอื่น มารู้จักเส้นใยอาหาร หรือ fiber กันก่อนนะครับ เส้นใยอาหาร มี 2 ชนิดคือ ละลายในน้ำได้(Soluble fiber) กับที่ละลายในน้ำไม่ได้ (Insoluble fiber) ละลายน้ำได้ แบ่งออกเป็น 2 ชนิดคือ ละลายแบบสมบูรณ์ (Completely soluble fiber) Viscous soluble fiber เส้นใยชนิดนี้ มีประโยชน์เพราะสามารถก่อตัวเป็นวุ้น(gel) และจับ/ขจัดของเสีย และคอเลสเตอรอลได้ นอกจากนั้นยังจับคาร์โบไฮเดรท และช่วยชะลอการดูดซึมน้ำตาลของร่างกายได้ ชนิดที่ละลายน้ำไม่ได้ เส้นใยอาหารประเภทนี้ มีความสามารถต่ำในการจับน้ำตาลและคอเรสเตอรอล ไม่ค่อยมีการแปรสภาพ(fermentation) เคลื่อนผ่านระบบการย่อยอาหารอย่างรวดเร็ว เพิ่มปริมาณเนื้ออุจจาระ จะเห็นว่า เส้นใยอาหารมีหลายชนิด แต่ละชนิดให้ประโยชน์ไม่เท่ากัน ดูเหมือนว่า ชนิด Viscous soluble fiber จะให้ประโยชน์มากกว่าชนิดอื่น อาหารอะไรที่มี Viscous soluble fiber สูง อาหารที่มี Viscous soluble fiber สูง ได้แก่ ถั่วแดง(kidney beans) ข้าวโอ๊ต(whole grain oats) และขนมปังที่ทำจากแป้งข้าวโอ๊ต (breads made with whole grain oat flour) นอกจากนี้ อาหารที่มี Viscous soluble fiber ค่อนข้างสูง ...

PRP ในที่นี้ หมายถึง Protein Rich Plasma หรือ Platelet Rich Plasma  เป็นกระบวนการที่กระตุ้นให้ร่างกายรักษาตนเองโดยวิธีธรรมชาติ เป็นทางเลือกหนึ่งโดยไม่ต้องใช้วิธีการผ่าตัด ต้องบอกก่อนว่า ผมไม่ใช่หมอ ที่จะเอามาเล่านี้เป็นจากการฟัง และการอ่าน ใครจะนำไปรักษาด้วยตัวเองไม่ได้นะครับ ต้องปรึกษาหมอเท่านั้น แนวคิดเบื้องหลังคือ มีข้อค้นพบใหม่ว่า เกล็ดเลือด (platelet) นอกจากจะทำหน้าที่ก่อตัวรวมกันเป็นก้อนเพื่อทำให้เลือดหยุดไหลแล้ว ยังทำหน้าที่อื่น ๆ ที่สำคัญอีกด้วย คือเป็นตัวช่วยกระตุ้นการสร้าง(growth factors) หรือ ที่เรียกว่าcytokines ซึ่งช่วยให้ร่างกายสร้างซ่อมแซมเนื้อเยื่อที่เสียหายหรือบาดเจ็บ วิธีการคือ ใช้เลือดของท่านประมาณ 20 ซี.ซี. แล้วนำมาปั่นในเครื่องปั่น ประมาณ 15 นาที จนมีลักษณะเป็นเจล และนำเจลเกล็ดเลือดฉีดกลับเข้าไปยังบริเวณที่บาดเจ็บ หรือบริเวณที่เอ็นอักเสบ จะช่วยให้ร่างกายสร้าง/ซ่อมส่วนที่เสียหาย และรักษาตัวเองได้ Dr. David Wang อาจารย์หมอ มหาวิทยาลัย Harvard (Harvard Medical School) บอกว่า วิธีการนี้ เป็นวิธีการรักษาโดยธรรมชาติ สามารถใช้รักษา กล้ามเนื้อ เส้นเอ็...

ถ้าไม่ต้องการให้ผู้ใช้แก้ไข VBA Code ของ Access 2010 สามารถทำได้ 2 วิธี คือ แปลงไฟล์ จาก .accdb  เป็น .accde หรือ .mde วิธีนี้ ผู้ใช้จะไม่สามารถแก้ไข VBA Code ตลอดจน ฟอร์ม และรายงาน ได้ อีกอย่าง คือ จะต้องเปิดด้วยโปรแกรม Access รุ่นเดียวกับที่ใช้ Compile เช่นสร้างด้วย Windows 7 ก็ต้องใช้ Office 2010 กับ Windows7 จะใช้บน Vista หรือ XP จะไม่สามารถเปิดไฟล์ .accde ได้ ป้องกันการเปิด VBA Code ด้วย Password วิธีนี้ ผู้ใช้สามารถปรับเปลี่ยน ฟอร์ม และรายงานได้ แต่ไม่สามารถเปิด VBA Code ได้ ถ้าไม่มีรหัสผ่าน วิธีนี้ ดูเหมือนจะยืดหยุ่นกว่าวิธีแรก การแปลงไฟล์ จาก .accdb เป็น accde มีวิธีการ ดังนี้ ไปที่ File > Save & Publish เลือก Make ACCDE จะเกิดแถบแสดงการเลือก คลิกปุ่ม Save As ระบุห้องที่จะจัดเก็บไฟล์ เป็นอันเสร็จ การสร้างรหัสป้องกัน VBA Code มีวิธีการ ดังนี้ เปิด Access 2010 แล้วกด ALT+F11 เพื่อเปิดหน้าจอของ VBA ไปที่เมนู Tools เลือก <ชื่อฐานข้อมูล>Properties... ไปที่แท็บ Protection คลิกเติมเครื่องหมายถูก หน้า Lock project for viewing ...

วันนี้เห็นคนเก็บดอกอัญชัน ถามเขาว่าเก็บเอาไปทำไม เขาบอกว่า เอาไปตากแดดและชงกินเหมือนน้ำชา ทำให้ตาที่เคยมืดมัว มองเห็นได้ดีขึ้น เอาไปหุงกับข้าวก็ได้ ได้ข้าวสีม่วง สวยดี ดอกอัญชันแห้ง ซื้อ-ขายกัน กิโลกรัมละ 200 บาท ก็เลยลองหาข้อมูลดู ดอกอัญชัน (Butterfly Pea, Blue Pea หรือ Clitoria ternatea) มีสารแอนโธไซยานิน ซึ่งมีคุณสมบัติเพิ่มการไหลเวียนของเลือดในหลอดเล็กๆ ทำให้เลือดไปเลี้ยงรากผมและนัยน์ตามากขึ้น สารแอนโทรไซยานินนี้จะพบในผลไม้และดอกไม้ที่มีสีน้ำเงิน สีแดง หรือสีม่วง มีคุณสมบัติเป็นสารต้านอนุมูลอิสระจากธรรมชาติ โดยที่พืชจะสร้างสารนี้ขึ้นมา เพื่อป้องกันดอกหรือผลตัวเอง จากอันตรายของแสงแดดหรือโรคภัย ดอกสด นำมาทาศีรษะเพื่อใช้เป็นยาปลูกผม ใช้รักษาอาการผมร่วง แก้ฟกช้ำบวม ใช้ผสมอาหารให้สีม่วง เช่น ข้าวดอกอัญชัน ขนมดอกอัญชัน เป็นต้น นอกจากนี้ยังมีสรรพคุณ บำรุงตา ลดอาการของโรคทางสายตา แก้ตาฟาง ตาแฉะ รากมีรสเย็นจืดใช้เป็นยาขับปัสสาวะพิการ เป็นยาระบาย รากใช้ถูฟันแก้ปวดฟันทำให้ฟันคงทนแข็งแรง เมล็ดใช้เป็นยาระบายแต่จะทำให้คลื่นไส้อาเจียน คุณค่าทางอาหาร สารอาหารให้สารสีฟ้า ซึ่งเป็นสารต้านอ...

วันนี้ขอเป็นเรื่องของผู้ชายโดยเฉพาะ นั่นคือ มะเร็งต่อมลูกหมาก ผู้ชายเป็นกันมาก ในอเมริกา ปีนี้ 2012 (2555) มีรายงาน ของ สถาบันมะเร็งแห่งชาติ (National Cancer Institute) ว่ามีคนเป็นโรคนี้กัน จำนวน 241,740 คน และเสียชีวิต จำนวน 28,170 คน อะไรที่เป็นสาเหตุของโรคนี้ ยังไม่มีใครรู้ว่าอะไรคือต้นเหตุของโรค แต่พอรู้ว่าโอกาสเสี่ยงที่จะเกิดเป็นโรคนี้ มีดังนี้ อายุเกิน 65 ปีขึ้นไป มีโอกาสเป็นโรคนี้สูง ยิ่งอายุมากขึ้นยิ่งมีโอกาสเป็นสง ในประเทศอเมริกา ผู้ที่เป็นโรคนี้ส่วนใหญ่อายุเกิน 65 ปี ผู้ที่อายุต่ำกว่า 45 ปี มีน้อยมาก เกือบไม่พบเลย ประวัติการเป็นโรคนี้ของคนในครอบครัว ถ้าท่านเคยมี พ่อ พี่ หรือ ลูก เคยเป็นโรคนี้ ท่านมีความเสี่ยงที่จะเป็นโรคนี้สูงกว่าผู้อื่น เชื้อชาติ คนผิวดำ (นิโกร) จะมีความเสี่ยงต่อโรคนี้ มากกว่าคนผิวขาว คนลาตินอเมริกา ยิ่งถ้าพวกเราชาวเอเซีย และหมู่เกาะแปซิฟิกแล้ว ความเสี่ยงต่อโรคนี้ น้อยกว่าพวกผิวขาวเสียอีก พวกอินเดียแดง และชาวพื้นเมืองรัฐอะลาสก้า ก็มีความเสี่ยงน้อย การที่มีความเสี่ยงต่อโรคสูง ไม่ได้แปลว่าจะต้องเป็นโรคนี้ ผู้ที่มีความเสี่ยงสูง แต่ไม่เป็นก็มีเยอะนะค...

Triclosan เป็นสารที่มีคุณสมบัติยับยั้งแบคทีเรีย (Antibacteria) จึงนิยมใช้เป็น ส่วนผสมในผลิตภัณฑ์เพื่อความสะอาดหลายชนิด เช่น สบู่ ครีมอาบน้ำ ผลิตภัณฑ์ระงับกลิ่นกาย ยาสีฟัน น้ำยาบ้วนปาก ตลอดจนน้ำยาล้างจานด้วย โดยพบว่ามีการใช้เพื่อวัตถุประสงค์ต่างๆ เช่น เป็นสารกันเสีย และเป็น สารยับยั้งแบคทีเรีย เป็นต้น มีข้อถกเถียงกันว่า สารนี้ อาจจะมีผลเสียต่อร่างกาย และสิ่งแวดล้อม เช่น อาจมีผลต่อการทำงานของต่อมไร้ท่อ อาจทำให้เชื้อแบคทีเรียดื้อต่อยาปฏิชีวนะ และ เป็นสารตกค้างในดินและน้ำ โดยเฉพาะในน้ำอาจเป็นผลเสียต่อพืชและจุลินชีพในน้ำ (aquatic organisms) EPA (Environmental Protection Agency) องค์กรสิ่งแวดล้อมของอเมริกา จัด สาร Triclosan อยู่ในกลุ่มยาฆ่าแมลง!!! FDA (the U.S. Food & Drug Administration) องค์กรอาหารและยา ระบุว่า ผลิตภัณฑ์สบู่ เครื่องสำอางที่มีสาร Triclosan ไม่มีผลต่างจากการใช้สบู่และน้ำธรรมดาในการกำจัดเชื้อแบคทีเรีย หนังสือพิมพ์ WashingtonPost รายงาน เมื่อ 8 เมษายน 2553 ว่ากำลังศึกษาถึงผลของสาร Tricolsan ขณะนี้ ยังไม่มีข้อสรุปที่ชัดเจน บริษัทที่ใช้ Triclosan เป็นส่วนผสมของผล...

ถ้ามีข้อมูลที่ซ้ำ ๆ กัน ดังนี้ ถ้าต้องการคัดลอกเอาเฉพาะที่ไม่ซ้ำกัน  สามารถทำได้ โดยการใช้ตัวกรอง หรือ Filter โดยมีวิธีการดังนี้ ลากดำคลุมพื้นที่ข้อมูลทั้งหมด ไปที่ ข้อมูล (Data) ตัวกรอง และเลือก ขั้นสูง เลือกคัดลอกไปยังที่อื่น และเลือก Unique Record Only พร้อมทั้งระบุช่วงที่จะวางข้อมูล จะได้ข้อมูลที่ไม่ซ้ำกัน ดังภาพ

ฟังรายการ Health Talk Radio ของ Melanie Cole วันนี้ เป็นเรื่องเกี่ยวกับอาหารบำรุงหัวใจ น่าสนใจมาก ในรายการได้สัมภาษณ์ Dr. James Beckerman ซึ่งเป็นผู้เชี่ยวชาญด้านหัวใจ (Cardiologist) ผู้เขียนหนังสือ The Flex Diet Dr. James Beckerman บอกว่า อาหารที่สำคัญคือ 4F ได้แก่ อาหารที่มีเส้นใยอาหาร(Fiber) ปลา(Fish)  ผลไม้ (Fruit) และไขมันที่มีประโยชน์ต่อสุขภาพ(healthy Fat) อาหารที่มีเส้นใย เช่น ผัก ธัญญพืช ธัญพืชที่ผ่านกระบวนการขัดสีน้อย(whole grain) ของเราคงได้แก่พวกข้าวกล้องนั่นแหละครับ อาหารเส้นใยอย่างน้อยควรได้รับวันละประมาณ 25 - 30 กรัม ปลา ให้ประโยชน์หลายอย่าง เช่น กรดไขมันโอเมก้า 3 ควรรับประทาน 1 - 2 ครั้งต่อสัปดาห์ (1-2 servings per week) ผลไม้ มีประโยชน์ Dr. James Beckerman บอกว่า ผลไม้ต่างจากน้ำผลไม้ น้ำผลไม้เป็นอาหารที่ผ่านกระบวนการแล้ว ถือเป็น processed food เพราะฉะนั้น การรับประทานผลไม้ดีกว่าดื่มน้ำผลไม้ เพราะ การรับประทานผลไม้จะได้ ทั้งน้ำ ทั้งเส้นใย ไขมันที่มีประโยชน์ต่อสุขภาพ ไขมันที่ควรหลีกเลี่ยง คือ ไขมัน Trans และนอกจากนี้ก็ควรหลีกเลี่ยงไขมันอิ่มตัว (satu...

เทคนิคการใช้ Recordset ของ MS Access ใช้ DAO หรือ ADO ทั้ง DAO และ ADO ต่างก็มีวัตถุ Recordset เหมือนกัน แต่มี method properties และ options ต่างกัน แต่ DAO เป็น native library ที่ของ ACCESS MS Access แต่ละรุ่นมีการตั้งค่า Default ของ Library ต่างกัน ดังนั้น ในการกำหนด Dim ต้องกำหนดให้ชัดเจน เช่น Dim rst as DAO.Recordset ไม่ใช่ Dim rst as Recordset ควรกำหนด Type ให้กับ Recordset เสมอ โดยปกติ Access จะกำหนด Type เป็นแบบ Dynaset (dbOpenDynaset) เมื่อเปิด Query หรือ ตารางเชื่อมโยง และกำหนด Type  เป็นแบบ Table (dbOpenTable)เมื่อเปิดตารางในฐานข้อมูลเดียวกัน ซึ่งทั้งสองประเภทนี้มี Method ที่ต่างกัน เช่น dbOpenTable มี Seek แต่ไม่มี FindFirst เป็นต้น ดังนั้น ถ้าไม่กำหนด Type และเมื่อมีการแยกตารางออกเพื่อให้มี Front End และ Back End จะทำให้เกิด Error ได้ - ควรกำหนด Type เป็นแบบ Dynaset จะครอบคลุมได้ทุกกรณี - dbOpenTable มี Seek method ที่ทำงานได้เร็วมาก แต่จะใช้กับ SQL Statement ไม่ได้ - ถ้าต้องการความเร็ว และไม่ต้องการแก้ไขข้อมูล ให้กำหนด Type เป็น dbOpenSnapshot ตัวอย่า...

ขึ้นต้นว่า ฟังก์ชัน like ของ Excel ก็ผิดเสียแล้ว เพราะ Excel ไม่มีฟังก์ชัน likeถ้าต้องการเปรียบเทียบ เหมือนกับการใช้ like ของ Excel จะทำอย่างไร วันก่อนผมต้องการนับอาชีพของคน จำนวน 24,000 คน จะนับทีละเซลล์คงไม่ไหว ปัญหาคือว่า บางคนเขียนอาชีพเดียวกัน ต่างกัน เช่น ลูกจ้าง รับจ้าง ลูกจ้างบริษัท ลูกจ้างชั่วคราว เป็นต้น อาชีพพวกนี้ ถือเป็นอาชีพรับจ้างทั้งหมด จึงต้องนับเป็นอาชีพเดียวกัน วิธีการ สร้างสูตร โดยใช้หน้าต่าง VBA เขียนโค้ดเหมือนกับสูตร like เพื่อนับว่า อาชีพดังกล่าว มีคำว่า จ้าง หรือไม่ ใช้ฟังก์ชัน Countif() เพื่อนับจำนวนที่เป็นจริง คือ มีคำว่า จ้าง การสร้าง ฟังก์ชัน like เพิ่ม Developer Tab บนริบบิ้น (Excel 2010 ไปที่ File > Option > Customize Ribbon > Developer) เปิดหน้าจอเขียนโค้ด (ไปที่ Developer Tab >  Visual Basic หรือกด Alt + F11) ถ้าไม่เห็นหน้าจอเขียนโค้ด ให้เลือกเมนู View > Code พิมพ์ฟังก์ชัน ดังภาพ Function isLike(myText As String, myWord As String) As Boolean       isLike = " " & myText & " " Like "*" ...

วันก่อนผมเขียนโปรแกรมสำหรับพิมพ์ใบปะหน้าซองข้อสอบ และต้องการคำนวณจำนวนกล่องที่ใช้ในการบรรจุข้อสอบ วิธีการคือ เอาจำนวนแผ่นกระดาษเป็นตัวตั้ง และหารด้วยจำนวนกระดาษในกล่องแต่ละขนาดที่สามารถบรรจุกระดาษได้ เช่น กล่องขนาดใหญ่ บรรจุกระดาษได้ 2,500 แผ่น ถ้ามีกระดาษ 5,000 แผ่น ก็ต้องใช้กล่อง 2 กล่อง ทีนี้ ถ้าในกรณีที่มีกระดาษ 2,600 แผ่น  ก็จะเหลือเศษไม่ถึงครึ่ง ถ้าใช้การปัดเศษธรรมดา ก็จะได้เป็น 2 กล่อง แต่ความจริงแม้จะเหลือเศษนิดหน่อยก็ต้องใช้กล่องอีกกล่องหนึ่ง ดังนั้นจึงต้องมีการปัดเศษขึ้นเป็นจำนวนเต็ม ไม่ว่าจะเหลือเศษเท่าไรก็ตาม Access ไม่มีฟังก์ชันการปัดเศษขึ้นเสมอ ถ้าจะใช้ฟังก์ชัน Round() ก็จะไม่ได้ผลที่ต้องการ อย่างนี้ต้องใช้ฟังก์ชัน int() แต่มีวิธีการเขียนเสียใหม่ เพื่อให้ได้เศษปัดขึ้นเสมอ เช่น 22 หารด้วย หารด้วย 3 จะได้ เท่ากับ 7.33 ปัดเศษ เป็น 8 สูตรมีดังนี้ -int(-ตัวตั้ง/ตัวหาร) ตัวอย่าง 22 หารด้วย 3 จะได้ค่าเป็น  7.33 ถ้าปัดเศษธรรมดา จะได้ 7 แต่ถ้าต้องการให้ได้ 8 ต้องเขียน -int(-22/3) ซึ่งถ้าพิมพ์ใน immediate window จะได้ผลดังภาพ ฟังก์ชัน Round() ...

VBA มี Scope ของค่าตัวแปร ที่จำกัดอยู่ใน Procedure หรือ Module ซึ่งเมื่อออกจาก scope นั้น ๆ ไปแล้ว ค่าของตัวแปรจะหมดไปด้วย ถ้าต้องการรักษาค่านั้นไว้ เพื่อนำไปใช้ใน procedure หรือที่อื่น ๆ ในฐานข้อมูล ต้องประกาศให้เป็นตัวแปรแบบ Global ซึ่งทำได้ ดังนี้ ไปที่แถบ Modules สร้างโมดุลใหม่ หรือจะใช้โมดุลที่มีอยู่แล้วก็ได้ เปิดโมดูล และประกาศค่าตัวแปรให้ใช้งานได้ทั้งฐานข้อมูล โดยใช้ว่า Public นำหน้า เรียกใช้งานตัวแปรนี้ ในที่ต่าง ๆ โดยไม่ต้องประกาศ Dimension (Dim) ของตัวแปรนั้น ๆ ถ้าต้องการกำหนดค่าของตัวแปรไปด้วย ก็สามารถทำได้ เช่น Public Const previousForm as String = "frmMain" มีข้อควรระวังคือ เมื่อเกิดมี Error ค่าของตัวแปรจะหมดไปด้วย ควรมีการ Trap Error ไว้เพื่อตรวจสอบในทุก procedure ด้วย