บทความ

การลบข้อมูลที่มีข้อมูลซ้ำกับตารางอื่น และนำข้อมูลเข้าตาราง

รูปภาพ
การลบข้อมูลในตาราง เราใช้การสร้างแบบสอบถามประเภทลบ และระบุในเงื่อนไขว่า ต้องการลบฟิลด์ที่มีข้อมูลชื่ออะไร เช่น ต้องการลบข้อมูลของ สมศักดิ์ ออกจากตาราง Table1 ทั้งหมด สร้างเป็นเงื่อนไข ในช่องเงื่อนไข ของแบบสอบถาม ได้ดังนี้ [Table1].[fname]="สมศักดิ์" แต่ในกรณีที่ต้องการลบข้อมูลในตารางหนึ่ง โดยให้ลบเฉพาะรายการที่ซ้ำกันกับตารางอีกตารางหนึ่ง ดังภาพ จะทำอย่างไร จากภาพ จะเห็นว่า ใน Table2 มีชื่อคนที่ซ้ำกับใน Table1 อยู่ จำนวน 2 คน คือ สมศักดิ์ รักชาติ และ สุดา อารยา เราต้องการลบข้อมูลของคนทั้งสอง ในตาราง Table2 โดยจะลบเฉพาะที่มีชื่อและนามสกุลซ้ำกับข้อมูลในตาราง Table1 จะทำอย่างไร หลักการ สร้างแบบสอบถาม ประเภทลบข้อมูล แล้วกำหนดในเงื่อนไข โดยในเงื่อนไขระบุให้ไปเลือกข้อมูลในอีกตารางหนึ่งที่มีเงื่อนไขข้อมูลที่ซ้ำกัน วิธีการ สร้างแบบสอบถามชนิดลบข้อมูล ไปที่ เมนูสร้าง กลุ่มแบบสอบถาม เลือกออกแบบแบบสอบถาม นำเข้าตาราง Table2 และกำหนดชนิดแบบสอบถามเป็นชนิด ลบ เลือกฟิลด์ชื่อและนามสกุล เพื่อจะได้ใช้เป็นเงื่อนไข ที่ช่องเกณฑ์ ในเขตข้อมูล ชื่อ ให้คลิกขวา และเลือก ย่อ/ขยาย เพื่

การหาข้อมูลที่ซ้ำกันในตาราง 2 ตาราง ของ Access2010

รูปภาพ
การหาข้อมูลใน Field ที่ซ้ำกันในตารางเดียวกัน เป็นเรื่องไม่ยาก เพราะมี แบบสอบถาม หรือ Query ที่ใช้สำหรับค้นหาข้อมูลที่ซ้ำกันอยู่แล้ว คือ ตัวช่วยสร้างแบบสอบถามเพื่อค้นหารายการที่ซ้ำ (Find Duplicate Query Wizard) (ไปที่แถบสร้าง กลุ่มแบบสอบถาม เลือก ตัวช่วยสร้างแบบสอบถามเพื่อค้นหารายการที่ซ้ำ) และถ้าเป็นการหาข้อมูลที่ซ้ำกันใน 2 ตาราง แต่ต้องการหาเพียงฟิลด์เดียว ก็ไม่ยากเท่าไร เพราะสามารถใช้ ตัวช่วยสร้างแบบสอบถามการค้นหาข้อมูลที่ไม่ตรงกัน (Find Unmatched Query Wizard) ได้ เพียงเปลี่ยนเงื่อนไข จาก is Null เป็น Not is Null ก็ใช้ได้ แต่ ถ้าต้องการหาข้อมูลที่ซ้ำกัน โดยมีเงื่อนไขว่า ต้องซ้ำกันหลายฟิลด์ เช่น ชื่อซ้ำกัน และนามสกุลซ้ำกันด้วย จะทำอย่างไร จากภาพ จะเห็นว่า ในตารางที่ 1 และตารางที่ 2 มีข้อมูลที่ซ้ำกันคือ สมศักดิ์ รักชาติ และ สุดา อารยา ส่วนประสิทธิ์ ชื่อเหมือนกัน แต่นามสกุลต่างกัน จึงเป็นคนละคนกัน การค้นหารายชื่อที่ซ้ำกัน ใน 2 ตาราง โดยมีเงื่อนไขหลายฟิลด์ มีดังนี้ สร้างแบบสอบถามใหม่ โดยไปที่แถบสร้าง กลุ่มแบบสอบถาม เลือกออกแบบแบสอบถาม Query เลือกตารางที่มีข้อมูลที่ต้องการเป

การสร้างปุ่มบนริบบิ้น Access 2010 โดยใช้ภาพที่สร้างขึ้นเอง

รูปภาพ
วันก่อน เคยพูดเรื่อง การสร้างปุ่มบนริบบิ้น ของ MS Access 2007 แต่ยังติดขัดที่ต้องใช้ภาพที่เป็น idMso ของ Access ภาพที่สร้างขึ้นเอง มีปัญหาเรื่อง Transparency วันนี้ ไปพบเรื่องเดียวกัน ที่ http://www.accessribbon.de/en/  แต่สามารถใช้ภาพ png ที่เป็น Transparent และนำมาใช้งาน ได้ และมี Transparency เหมือนกับการใช้ภาพจาก idMso ดังตัวอย่างข้างล่างนี้ การสร้าง ใช้การนำภาพเข้าตาราง และเรียกใช้งานฟังก์ชัน AddBinFile() ของ Sascha Trowitzsch ในโมดูล "basBlob" และ "basGDIPlus" ภาพที่ใช้สร้างเอง โดยใช้โปรแกรมสร้างภาพกราฟฟิก เช่น Gimp Photoshop หรือ Illustrator ก็ได้ และบันทึกเป็นไฟล์ png โดยให้มี Trasparent ด้วย วิธีการ สร้างไฟล์ ขนาด 200 X 200 pixels สำหรับเป็นภาพ icon ที่ต้องการ โดยสร้างเป็นไฟล์ png และให้มี Transparent บันทึกไว้ในห้องเดียวกับไฟล์ Access ในตัวอย่างนี้ ไฟล์ภาพ ชื่อ abc_nfe.png อยู่ในห้อง E:\socialMedia สร้างไฟล์ใหม่ ด้วย Access 2010 และบันทึกไว้ในห้องเดียวกับภาพ คือ E:\socialMedia นำเข้าโมดุล  "basBlob" โดยไปที่ ข้อมูลภายนอก > Acc

การลบ Cookies ใน Internet Explorer

รูปภาพ
Cookies คือ ไฟล์ข้อมูลที่เว็บไซต์บันทึกเก็บไว้ในเครื่องคอมพิวเตอร์ของผู้ใช้ เพื่อวัตถุประสงค์บางอย่าง เช่น จำรหัสสำหรับ login หรือ Password เพื่อให้ความสะดวก เมื่อผู้ใช้เข้ามาในเว็บแล้ว จะได้ไม่ต้องกรอกรหัสอีก ตัวอย่างเช่น Gmail เมื่อเวลา Sign in เข้าใช้งาน จะมีข้อความให้เลือกว่าต้องการ "อยู่ในสถานะลงชื่อเข้าใช้" หรือไม่ ถ้าคลิกเลือก เหมือนในตัวอย่างข้างบน เว็บของ Gmail จะเขียน Cookie ลงในเครื่อง เพื่อว่า เมื่อเข้ามาอีกครั้ง จะได้ไม่ต้องกรอก   เว็บของสถาบัน กศน.ภาคกลาง ก็มีการเก็บ Cookie ในลักษณะนี้ เช่นเดียวกัน ถ้าคลิกเลือก "จำชื่อและรหัสไว้" เมื่อเข้ามาอีกครั้ง ก็ไม่ต้องลงทะเบียนเข้าสู่ระบบ แต่จะสามารถเข้าเลือกวิชาเรียนในระบบได้ทันที   โดยปกติ เว็บที่เขียน Cookie ลงในเครื่องผู้ใช้ จะกำหนดอายุว่า ให้อยู่ได้กี่วัน แล้วจะลบทิ้งไปเอง จำนวนวันจะไม่เท่ากัน แล้วแต่ละเว็บจะกำหนด   ถ้าเราต้องการล้าง Cookies ทั้งหมดที่อยู่เครื่อง ก็สามารถทำได้ โดยใช้โปรแกรม เช่น CCleaner ลบ Cookies ออกทั้งหมด หรือจะทำเอง ก็ได้   วิธีการล้าง Cookies ด้วยตัวเอง ทำดังนี้

การดาวน์โหลดไฟล์จาก อินเทอร์เน็ต ด้วย Access 2010 VBA

รูปภาพ
ก่อนการใช้ MS Access 2010 ดาวน์โหลดไฟล์จากอินเทอร์เน็ต ต้องตรวจสอบเสียก่อนว่า ขณะนี้สามารถเข้าอินเทอร์เน็ตได้หรือไม่ โดยใช้ฟังก์ชันต่อไปนี้ Function checkInternetConnection() As Integer 'code to check for internet connection 'by Daniel Isoje On Error Resume Next  checkInternetConnection = False  Dim objSvrHTTP As ServerXMLHTTP  Dim varProjectID, varCatID, strT As String  Set objSvrHTTP = New ServerXMLHTTP  objSvrHTTP.Open "GET", " http://www.google.com "  objSvrHTTP.setRequestHeader "Accept", "application/xml"  objSvrHTTP.setRequestHeader "Content-Type", "application/xml"  objSvrHTTP.send strT  If Err = 0 Then  checkInternetConnection = True  Else   MsgBox "Internet connection not estableshed: " & Err.Description & "", 64, "Additt !"  End If End Function ฟังก์ชันนี้ ต้องอ้างอิงถึง Microsoft XML, v6.0 เสียก่อน จึงจะใช้งานได้ โดยที่หน้าจอเขียนโค้ด ไปที่ Tool >

การแนบไฟล์ ใน Access 2010

รูปภาพ
เริ่มตั้งแต่ Access 2007 เราสามารถแนบไฟล์ เช่น ไฟล์ Word Excel ไฟล์ภาพ หรือแม้แต่ไฟล์ วิดีโอ ในฟิลด์ตารางของ Access ได้ เพราะมีการกำหนด ประเภทของข้อมูล (data type) เพิ่มเติม เป็นชนิด Attachment ซึ่งดีกว่าการใช้ OLE ในรุ่นก่อน ๆ มาก เพราะสะดวกมากกว่า ไฟล์เล็กกว่า ไฟล์ที่เก็บเป็น Attachment เป็นไฟล์ต้นฉบับ เวลาเปิด จะใช้โปรแกรมภายนอกเปิด เช่น ถ้าเก็บไฟล์ docx เวลาเปิดไฟล์ จะเรียกโปรแกรม MS Word มาเปิด ซึ่งสามารถแก้ไข เพิ่มเติมได้ (แต่มีข้อแม้ว่า เมื่อแก้ไขแล้ว เวลากลับมาที่ MS Access ต้องบันทึกอีกครั้งหนึ่ง มิฉะนั้น สิ่งที่แก้ก็จะยังไม่ถูกจัดเก็บใน MS Access) ไฟล์แนบ หรือ Attachment ช่วยให้เราสามารถเก็บเอกสาร หรือ ไฟล์ที่เกี่ยวข้องกับเรื่องนั้น ๆ ได้ เช่น มีข้อมูลรายการของพนักงานในตาราง พนักงาน เราสามารถแนบเอกสารที่เกี่ยวข้องกับพนักงานแต่ละคน เช่น ไฟล์สัญญาจ้าง ภาพถ่ายลายนิ้วมือ วิดีโอที่เกี่ยวกับพนักงานคนนั้น ๆ เป็นต้น ไฟล์แนบสามารถมีได้ไม่จำกัดจำนวน จำกัดอยู่ที่ขนาดของไฟล์ แต่ละไฟล์ต้องมีขนาดไม่เกิน 256 Mb  รวมกันทั้งหมดแล้ว ไม่เกิน 2 GB (เท่ากับขนาดของ Access) ไฟล์แนบสามารถจัด

การใช้ File Dialog ค้นหาภาพ และเปิดด้วย Paint ด้วย Access VBA

รูปภาพ
ในตัวอย่างนี้ จะเป็นการสร้างปุ่มเพื่อเปิดหน้าจอค้นหาไฟล์ (Browse Dialogue) เพื่อค้นหาไฟล์ภาพ แล้วมีปุ่มเพื่อให้เปิดดูด้วย โปรแกรม Paint เพื่อให้ผู้ใช้สามารถจัดการกับภาพ และสั่งพิมพ์นอกโปรแกรม Access ได้ จุดประสงค์สุดท้ายคือการเรียกไฟล์ Paint มาเปิดภาพ ดังนั้น เราต้องมีการกรอง หรือตรวจเชคว่า ไฟล์ที่เลือกนั้นเป็นไฟล์ภาพหรือไม่ ในตัวอย่างนี้ กำหนดให้เป็นไฟล์ ประเภท jpg หรือ gif เท่านั้น วิธีการ สร้างปุ่ม ชื่อ Command0 เขียนข้อความที่ปุ่มเป็น ค้นหาไฟล์ สร้าง กล่องข้อความ (Textbox) ชื่อ Text3 สร้างปุ่ม ชื่อ cmdViewFile กำหนดค่าเริ่มต้นให้มองไม่เห็น (ที่แถบ Format ตั้งค่า Visible เป็น No)  เขียนข้อความที่ปุ่มเป็น เปิดดูภาพ ที่ปุ่ม ค้นหาไฟล์ (Command0) ให้เขียนโค้ดข้างล่างนี้ Private Sub Command0_Click()     Dim f As Object     Dim fileAddress As String     Dim fileExt As String     Dim strFile As String     Dim strFolder As String     Dim varItem As Variant         Me.Text3.Value = ""     Me.cmdViewFile.Visible = False         Set f = Application.FileDialog(3)     f.A