วันเสาร์ที่ 4 กุมภาพันธ์ พ.ศ. 2555

เทคนิค Access VBA

เทคนิค เกร็ด การใช้ VBA กับ Microsoft Access
  1. การสั่งไม่ให้ใช้ คลิกขวา ที่ฟอร์ม หรือ รายงาน
    • เปิดฟอร์มหรือรายงานแบบ มุมมองออกแบบ หรือ Design View
    • ที่ on load เขียนคำสั่งเพิ่ม ดังนี้
      Forms("ชื่อฟอร์ม หรือชื่อรายงาน").ShortcutMenu = False
    • เมื่อเปิดฟอร์ม จะไม่สามารถใช้คลิกขวาได้
  2. การใช้ 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 เพราะต้องเอาข้อมูลมาจาก ตาราง เนื่องจากชื่อจังหวัด ชื่ออำเภอ มีมาก
      - ที่ after update ของ cboProvince เขียนโค้ด ดังนี้

      Private Sub cboProvince_AfterUpdate()
          Me.cboAmphur.RowSource = "SELECT tblAmpur.ampname, tblAmpur.provid  FROM tblAmpur WHERE (((tblAmpur.provid)= '" & Me.cboProvince.Column(0) & "'))"
          Me.cboAmphur = "เลือกอำเภอ"
          Me.cboAmphur.Requery   
      End Sub

      -สังเกตว่า มีการสั่งให้แสดง ข้อความ เลือกอำเภอ และต้องมีคำสั่ง Requery เพื่อให้นำข้อมูลที่สั่งใน row source มาแสดง ถ้าไม่สั่ง Requery จะยังไม่แสดง
  3. การหาค่าในตาราง โดยระบุชื่อฟิลด์ ที่ต้องการ ให้นำค่าใน Record นั้น ๆ มาแสดง มีประโยชน์ในการจัดเรียงข้อมูลแบบ Excel แล้วนำมาเข้าโปรแกรม Access เช่น หัวคอลัมน์เป็นชื่อวิชา และมีรายชื่อนักเรียนอยู่ในคอลัมน์แรก เช่น
    thisSubj = "วิทยาศาสตร์"
    Set rst = dbs.OpenRecordset("SELECT * FROM " & dataTableName)  '
    If Not rst.EOF Then
        With rst
            Do While Not rst.EOF
                thisStudentScore = rst(thisSubj) 
                rst.MoveNext
            Loop
        End With
    rst.Close
    ความจริง ใช้  
    thisStudentScore = rst!วิทยาศาสตร์  
    ก็ได้ แต่ในกรณีที่ไม่รู้ว่าจะเป็นวิชาอะไร จำเป็นต้องใช้ตัวแปร โค้ดข้างต้นจะมีประโยชน์
  4. การตรวจสอบค่า ว่ามีอยู่ใน Listbox หรือไม่ สร้างฟังก์ชันข้างล่างนี้ ตรวจสอบ

    Function isValidSubject(subjName As String) As Boolean
    Dim i As Integer
    For i = 0 To Me.lstSubNames.ListCount - 1
       If Me.lstSubNames.Column(0, i) = subjName Then
         isValidSubject = True
             Exit Function
       End If
    Next i
         isValidSubject = False
    End Function
  5. การเปิดฟอร์มแบบ ตาราง (DataSheet) ทำให้สะดวกในการแก้ไขข้อมูล ถ้าใช้ VBA สั่งให้เปิดฟอร์มแบบตาราง  ต้องระบุไปด้วยว่า ให้เปิดแบบตาราง(DataSheet)  มิฉะนั้น จะไม่เปิดแบบตาราง แม้ว่าจะไปตั้งค่า Default ของฟอร์มให้เป็นตารางก็ตาม เช่น ถ้าเป็นคำสั่งใน ButtonCallback คลิกจากริบบิ้นให้เปิดฟอร์มแบบ DataSheet ให้เขียนดังนี้

    Sub buttonCallback(control As IRibbonControl)
     Select Case control.ID
         Case "showAll"
            DoCmd.OpenForm "frmShowAll_by_Level", acNormal
         Case ...
  6. การค้นหาค่าในตารางที่ 1 ที่ไม่มีในตารางที่ 2 เช่น มีรายชื่อจังหวัดในตาราง tblProvince และ อีกตารางหนึ่งคือ tblPrintLabelData เป็นการส่งงานของจังหวัด อยากทราบว่า จังหวัดที่ยังไม่ส่งงานมีจังหวัดอะไรบ้าง

    วิธีการ ให้เขียน VBA ดังนี้

    SELECT tblProvince.provname FROM tblProvince WHERE ((Exists (SELECT * FROM tblPrintLabelData WHERE tblProvince.provname = tblPrintLabelData.prvName)=False);

    ตัวอย่างข้างบน tblProvince.provname และ tblPrintLabeldata.prvName เป็นชื่อจังหวัดเหมือนกัน ความจริง เงื่อนไขถ้าใช้ id ของจังหวัด กำหนดให้เท่ากัน ก็จะขจัดปัญหาเริื่องการเขียนสะกดการันต์ แต่ ในของจริงที่ทำบังเอิญว่า id ของจังหวัด มาจาก 2 แหล่ง กลัวว่าจะไม่เท่ากัน เลยใช้ชื่อแทน

ไม่มีความคิดเห็น:

แสดงความคิดเห็น