แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
วิธีทำต้องมีฟิลล์ในตาราง เช่น TimeStamp ชนิดข้อมูล date/time
ตรง Date ผมใช้ Date() และ Time ใช้ Time() ปรากฏว่าเวลาเพิ่ม Row ไปใหม่ มันจะให้ทุก Row เป็นเวลาตอนนี้เลย
ถ้าอยากให้มันเป็นวัน,เวลา บอกเฉพาะ Row ไปว่าเพิ่มมาวันไหนเวลาไหน ไม่ทราบว่าต้องทำอย่างไรครับ
และมีเมื่อการอัพเดทข้อมูล ในฟอร์มกำหนดให้อัพเดทฟิลล์ timestamp = NOW() มันจะได้ทั้งวันที่และเวลา มาเลยครับ
เราจะได้ไม่ต้องสร้าง 2 ฟิลล์
หมายเหตุถ้าเมื่อมีการเพิ่มฟิลล์ใหม่กำหนดให้บันทึกเวลาด้วย
ให้กำหนด default Value ของฟิลล์นี้ในตาราง = Now() ไว้ได้เลย
ได้แล้วครับ ใช้ cross แทบเป็น row นับครั้งที่ user กดครับมัน Error ตรงนี้ครับ ผมพยายามแก้ชื่ออะไรแล้วแต่ยังไม่ได้ซักทีครับเกิดจาก system locate ไม่ได้รับรองภาษาไทย แต่แก้ไขให้แล้วครับ
Private Sub Check_AfterUpdate()
Me.Dirty = False
Forms!form1![ฟอร์มย่อย QueryCheck].Form.Requery
End Sub
ส่งฟอร์มตัวอย่างนี้มา เดี่ยวผมเพิ่มให้
ตรงแก้ไขชื่อฟิวล์ ทำก่อนเลยในคิวรี่แบบที่คุณ UnKnown บอกครับแถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]
ปกติถ้า export จากคิวรี่สามารถสร้าง ชื่อฟิลล์ที่ต้องการได้ตามที่คุณบอกมา
แต่บางกรณีจะ export Table ผมเลยยกตัวอย่างในกรณีนี้ครับเพื่อเป็นแนวทางต่อไปถ้าเจอกรณีที่จะแก้ไขปรับปรุงข้อมูลที่ export ออกไปยัง excel
ใช้วิธีการเดี่ยวกับการกำหนดจัดกึ่งกลางนะครับ แต่เพิ่มโค๊ดเข้าไปอีกนิดเช่น
Dim objExcelApp As Excel.Application
Dim wb As Excel.Workbook
Dim sht As Object
Dim sFilename As String
sFilename = "E:\ExportedResults1.xls"
DoCmd.OutputTo acOutputQuery, "ชื่อตาราง", acFormatXLS, sFilename
Set objExcelApp = Excel.Application
Set wb = objExcelApp.Workbooks.Open(sFilename)
Set sht = wb.Worksheets(1)
objExcelApp.Visible = True
sht.Columns("A:W").HorizontalAlignment = xlCenter
sht.Columns("A:W").EntireColumn.AutoFit
sht.Range("A1").Value = "ไอดี" 'A1,B1,C1 คือหัวของคอลัมน์
sht.Range("B1").Value = "ชื่อ"
sht.Range("C1").Value = "สกุล"
wb.Save
wb.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End Sub
คิวรี่ไม่สามารถจัดกึ่งกลางเวลา export ได้ครับ
แต่เราสามารถใช้ การเขียนโค๊ดเปิดไฟล์ที่ Export ไปแล้ว มาแก้ไขเช่นจัดกึ่งกลาง ทำให้เนื้อหาพอดีกับคอลั่มน์ได้ครับเช่น
Private Sub export_Click()
Dim objExcelApp As Excel.Application
Dim wb As Excel.Workbook
Dim sht As Object
Dim sFilename As String
sFilename = "E:\ExportedResults1.xls" 'เลือกตำแหน่งของไฟล์ที่ต้องการ Export และ เปิดมาแก้ไข
DoCmd.OutputTo acOutputQuery, "ชื่อคิวรี่", acFormatXLS, sFilename 'โค้ดสั่ง Export ตามโค๊ดเดิมของท่านได้เลย
Set objExcelApp = Excel.Application
Set wb = objExcelApp.Workbooks.Open(sFilename)
Set sht = wb.Worksheets(1)
objExcelApp.Visible = True
sht.Columns("A:W").HorizontalAlignment = xlCenter 'กำหนดให้ column A ถึง W ของ Sheet จัดกึ่งกลาง จะเอาถึงคอลั่มน์ไหนก็กำหนดเอาได้เลย
sht.Columns("A:W").EntireColumn.AutoFit 'กำหนดให้คอลัมน์พอดีกับข้อมูล
wb.Save 'สั่งบันทึก
wb.Close 'สั่งปิดไฟล์
objExcelApp.Quit 'สั่งจบการทำงาน
Set objExcelApp = Nothing
End Sub
คิวรี่แสดงสีไม่ได้
แต่ใช้การเช็คค่าจากคิวรี่ไปแสดงลองดูตัวอย่าง
https://www.thai-access.com/index.php?topic=438.msg1952#msg1952
