ผมออกแบบฟอร์มจากรูปนะครับ โดยให้ User สามารถเลือกรายการได้ตามใจชอบ แล้วถ้าผมต้องการให้ Append ข้อมูลลงใน Table จาก Code ด้านล่างนี้ผมต้องเขียด Code ประมาณไหนครับ ขอคำชี้แนะด้วยครับ
Option Compare Database
Option Explicit
Private Sub process_Click()
Dim qdfTemp As DAO.QueryDef
Dim db As DAO.Database, mySql As String, TTT, PPP, Province As String
    If Me.Option1 = True Then TTT = TTT & "Emp_ID" & ", "
    If Me.Option2 = True Then TTT = TTT & "Th_Title" & ", "
    If Me.Option3 = True Then TTT = TTT & "Th_Name" & ", "
    If Me.Option4 = True Then TTT = TTT & "Th_SurName" & ", "
    If Me.Option5 = True Then TTT = TTT & "Eng_Title" & ", "
    If Me.Option6 = True Then TTT = TTT & "Eng_Name" & ", "
     If Me.Option7 = True Then TTT = TTT & "Eng_SurName" & ", "
     If Me.Option8 = True Then TTT = TTT & "Department_ID" & ", "
     If Me.Option9 = True Then TTT = TTT & "Section_ID" & ", "
     If Me.Option10 = True Then TTT = TTT & "Group_ID" & ", "
     If Me.Option11 = True Then TTT = TTT & "F_Level" & ", "
     If Me.Option12 = True Then TTT = TTT & "Start_Date" & ", "
     If Me.Option13 = True Then TTT = TTT & "Probation_Date" & ", "
    If Me.Cmb_Province.Value <> " " Then PPP = PPP & "Province_2"
    If TTT & "" = "" Then
            MsgBox "¡ÃسÒàÅ×Í¡ Option 1 - 13"
        Exit Sub
    Else
        TTT = Left(TTT, Len(TTT) - 2)
        PPP = PPP
    End If
        MsgBox TTT
        Province = Me.Cmb_Province.Value
        MsgBox Province
    Set db = CurrentDb
    mySql = "SELECT " & TTT & ", " & PPP & " FROM Tbl_Employee_Master Where " & PPP & " = '" & Province & "' "

    Set qdfTemp = Nothing
    Set qdfTemp = db.CreateQueryDef("QdfTemp", mySql)
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "QdfTemp", "C:\Book1.xls", True
        db.QueryDefs.Delete "QdfTemp"
        db.Close
    Set db = Nothing
    Set qdfTemp = Nothing

End Sub