มะกี้ลองใหม่ได้แล้วค้า เรียกcomboboxจากหน้าฟอร์ม


ขอบคุณมากๆๆๆเลยนะคะ

ลองทำตามแล้วค่ะ เออเร่อตรงSub changefont() ค่ะ

แบบนี้ค่ะ

ถ้าที่อยู่ที่เราSAVE ไฟล์ กำหนดไว้แบบนี้
outputFileName = CurrentProject.Path & "\Stock" & Format(Date, "yyyyMMdd") & "_" & strReportName & ".xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Stockcard", outputFileName, True

*******************************************************

- เลยแก้ไขตรง*ระบุตำแหน่งของไฟล์ที่ export ไปไว้เพื่อเปิดมาแก้ไข เป็นoutputFileName แทน เหมือนข้างล่าง ต้องใส่ยังไงคะ ถึงไม่เออเร่อค่ะ
- ส่วนตรงฟร้อน เราสามารถระบุชื่อฟร้อนไปเลยได้ไหมคะ ขนาดด้วย ดังโค้ดด้านล่างค่ะ


Sub changefont()
Dim XLapp As Object, sheet As Object
Set XLapp = CreateObject("Excel.Application")
outputFileName = CurrentProject.Path & "\Stock" & Format(Date, "yyyyMMdd") & "_" & strReportName & ".xls"
XLapp.Workbooks.Open outputFileName 'ระบุตำแหน่งของไฟล์ที่ export ไปไว้เพื่อเปิดมาแก้ไข
Set sheet = XLapp.ActiveWorkbook.Sheets(1)
With sheet.Cells.Font
     .Name = "Angsana New" 'ระบุไปเลยได้ไหมคะ
     .FontStyle = "Regular" 
     .Strikethrough = False
          End With
  XLapp.TransitionNavigKeys = False
  XLapp.ActiveWorkbook.Close True
End Sub

ตอนนี้ทำได้แล้วค่ะ ต้องโค้ดเปิดรายงาน เปลี่ยนNull เป็น"All" แทน

ใช้เว้นว่างไว้ออกตารางทั้งหมดก็ได้ค่ะ
แต่ว่าพอจะเลือกอีกครั้ง comboboxที่เป็นค่าว่างหายไปไม่มีให้เลือกค่ะ

ส่วนกรณีคำว่า All ไม่มีฟิกไว้ในตารางค่ะ


ตอนนี้เลยอยากทราบว่ามีวิธีเพิ่มคำว่าAll เป็นเป็นค่าเริ่มต้น แล้วกรองทั้งหมดมีวิธีไหนบ้างคะ

อยากทราบวิธีกรองข้อมูลจากตารางในQueryค่ะ
Query จะแสดงIDและ TYPE

ในหน้าฟอร์มได้สร้างCombobox ของTYPE เพื่อให้เลือกออกรายงานตามTYPEค่ะ
อยากทราบว่า มีวิธีไหนที่เลือกTypeของ Comobboxในหน้าฟอร์ม
แล้วไปกรองTYPEใน Queryที่สร้างไว้ >>เพื่อกดปุ่มแสดงรายงานแล้วจะแสดง IDที่กรองเฉพาะTYPEที่เลือกบ้างคะ

อยากทราบว่ามีวิธีเขียนโค้ดimport ข้อมูลจากExcel(บางคอลัมน์) มาใส่ในตารางAccessไหมคะ
ตัวอย่างรูปตารางด้านล่างค่ะ ต้องการimport ตั้งแต่คอลัมน์Material




ปล เคยทำแต่importมาตั้งแต่แถวแรก ไม่ทราบวิธีไหนบ้างคะ
ขอบคุณล่วงหน้าค่ะ