ตามที่ผมพอทราบ ถ้าไม่เลือกใช้เครื่องมือ Option Group แต่ใช้ Option Button หรือ Check Box แทน ก็จะสามารถเลือกได้หลายๆรายการนะครับ ส่วนการ Export นั้น ผมอาจะทำ Query ขึ้นมาตัวหนึ่ง เลือกฟิวด์ที่ต้องการ แล้วทำ Criteria ที่ฟิวด์ Option หรือ Check Box นั้น (กรณีใช้ Check Box และกำหนด DataType เป็น Yes/No ก็เขียน Criteria เป็น Yes (หรือ -1) ครับ

ขอบคุณสำหรับชี้แนะครับ จะลองทำตามที่แนะนำครับ

ลองดูแล้วสงสัยจะยากส์...เพราะว่าการเลือกแต่ละครั้งถ้าเลือกไม่เหมือนกัน ผมจะทำ query รอยังไงครับ มีคำชี้แนะไหมครับ

โทษทีครับ พอดีผมดูโจทย์ไม่ละเอียด ไว้ขอไปลองคิดและทำข้อมูลสมมุติเล่นดูก่อนนะครับ ถ้าทำได้เมื่อไหร่จะมาแชร์ครับ แต่อาจารย์ท่านอื่นๆ ที่เก่งๆ น่าจะทำโจทย์ข้อนี้ได้ไม่ยากนะครับ

ทำ table ตาข้อเลยครับ
เราต้องเก็บข้อมูลเป็นข้อๆ ข้อไหนที่ไม่ได้เลือก ก็จะเป็น 0 ถ้าเลือกก็เป็น อะไรก็ได้ตามที่ออกแบบ
เวลาจะ Export ก็ส่งออกได้เลย ตามตาราง

ผมว่าแนวคิดน่าจะประมาณ สร้างคิวรี่ชั่วคราว รับชื่อฟิลด์ที่คุณเลือกใน Option แล้วค่อย Export

    Dim db As DAO.Database, mySql As String, TTT As String
    If Me.Option1 = True Then TTT = TTT & "Name" & ", "
    If Me.Option2 = True Then TTT = TTT & "Department" & ", "
    If Me.Option3 = True Then TTT = TTT & "Position" & ", "
    If Me.Option4 = True Then TTT = TTT & "Salary" & ", "
    If Me.Option5 = True Then TTT = TTT & "Age" & ", "
    If Me.Option6 = True Then TTT = TTT & "Sex" & ", "
    If TTT & "" = "" Then
        Msgbox "กรุณาเลือก Option 1 - 6"
        Exit Sub
    Else
        TTT = Left(TTT, Len(TTT) - 2)
    End If
    Msgbox TTT
    Set db = CurrentDb
    mySql = "SELECT " & TTT & " FROM Table1"
    db.CreateQueryDef "QTemp", mySql
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QTemp", "C:\Book1.xlsx", True
    db.QueryDefs.Delete "QTemp"
    db.Close
    Set db = Nothing

ประมาณนี้ครับ

ขอบคุณครับ จะลองนำไปสานต่อให้บรรลุเป้าหมาย ติดขัดยังไงจะแจ้งให้ทราบครับ

ตามที่คุณ TTT อธิบายมา แล้วในกรณีที่เครื่อง User ผมลง Access Runtime ไว้ โปรแกรมจะสามารถ Run และทำงานตามคำสั่งได้ไหมครับ