ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

19 ส.ค. 64 , 14:16:10
อ่าน 178 ครั้ง

001Jetnipit



อยากเปลี่ยนชื่อพวกนี้ให้เป็นภาษาไทยสามารถทำได้ไหมครับ ใช้ในกรณีที่ User export ไปบางทีเขาอาจไม่เข้าใจฟิลที่มาจาก Table ตรงๆ ครับ

 

19 ส.ค. 64 , 14:57:19
ตอบกลับ #1

PNR

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #1 เมื่อ: 19 ส.ค. 64 , 14:57:19 »
ใช้วิธีการเดี่ยวกับการกำหนดจัดกึ่งกลางนะครับ แต่เพิ่มโค๊ดเข้าไปอีกนิดเช่น

    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
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

19 ส.ค. 64 , 15:09:33
ตอบกลับ #2

UnKnown

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #2 เมื่อ: 19 ส.ค. 64 , 15:09:33 »
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

19 ส.ค. 64 , 15:25:06
ตอบกลับ #3

001Jetnipit

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #3 เมื่อ: 19 ส.ค. 64 , 15:25:06 »
ขอบคุณครับ แต่เหมือนมันเอาไปเรียกใช้บน Form ไม่ได้ใช่ไหมครับ


 

19 ส.ค. 64 , 15:27:13
ตอบกลับ #4

001Jetnipit

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #4 เมื่อ: 19 ส.ค. 64 , 15:27:13 »
ใช้วิธีการเดี่ยวกับการกำหนดจัดกึ่งกลางนะครับ แต่เพิ่มโค๊ดเข้าไปอีกนิดเช่น

    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



Error แบบเดิมเลยครับตรงนี้


 

19 ส.ค. 64 , 15:31:44
ตอบกลับ #5

UnKnown

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #5 เมื่อ: 19 ส.ค. 64 , 15:31:44 »

ถ้าเกี่ยวข้องกับวิธีแก้ชื่อฟิลด์ของผมมันดันมีผลกับทุกอย่างที่เรียกใช้คิวรี่นี้ก็ต้องไปแก้ชื่อฟิลด์ที่เรียกไปใช้เป็นชื่อที่ตั้งใหม่ด้วยอ่ะนะ :sweat:
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 
โพสต์นี้ได้รับคำขอบคุณจาก: PNR, 001Jetnipit

19 ส.ค. 64 , 15:33:04
ตอบกลับ #6

PNR

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #6 เมื่อ: 19 ส.ค. 64 , 15:33:04 »
ไปที่ VBA Editor ไปที่ TOOL > References
ไปกดติ๊กเลือก Microsoft Excel xx.x Object Library  มาด้วยครับ

Time to stop for me  :dizzy:
 

19 ส.ค. 64 , 15:36:33
ตอบกลับ #7

PNR

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #7 เมื่อ: 19 ส.ค. 64 , 15:36:33 »
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

ปกติถ้า export จากคิวรี่สามารถสร้าง ชื่อฟิลล์ที่ต้องการได้ตามที่คุณ UnKnown แนะนำมาครับ
« แก้ไขครั้งสุดท้าย: 19 ส.ค. 64 , 15:42:32 โดย PNR »
Time to stop for me  :dizzy:
 

19 ส.ค. 64 , 15:38:34
ตอบกลับ #8

001Jetnipit

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #8 เมื่อ: 19 ส.ค. 64 , 15:38:34 »
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

ปกติถ้า export จากคิวรี่สามารถสร้าง ชื่อฟิลล์ที่ต้องการได้ตามที่คุณบอกมา
แต่บางกรณีจะ export Table ผมเลยยกตัวอย่างในกรณีนี้ครับเพื่อเป็นแนวทางต่อไปถ้าเจอกรณีที่จะแก้ไขปรับปรุงข้อมูลที่ export ออกไปยัง excel

ขึ้นแบบนี้ครับ




#ถ้าหากจะเอาไฟล์ให้คอมอื่นใช้ต้องไปติ๊ก Microsoft excel object ให้เขาในเครื่องด้วยไหมครับ


 

19 ส.ค. 64 , 15:40:32
ตอบกลับ #9

PNR

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #9 เมื่อ: 19 ส.ค. 64 , 15:40:32 »
check นามสกุลที่คุณกำหนดจะ export ดีๆนะครับ

ถ้าจะ export เป็น XLSX 
ตรงกับสั่ง EXport ต้องเป็น AcFormatXLSX ครับ

sFilename = "E:\ExportedResults1.xls"
    DoCmd.OutputTo acOutputQuery, "ชื่อตาราง", acFormatXLS, sFilename

ถ้า XLSX

sFilename = "E:\ExportedResults1.xlsx"
    DoCmd.OutputTo acOutputQuery, "ชื่อตาราง", acFormatXLSX, sFilename
Time to stop for me  :dizzy:
 

19 ส.ค. 64 , 15:44:33
ตอบกลับ #10

001Jetnipit

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #10 เมื่อ: 19 ส.ค. 64 , 15:44:33 »
อ๋อไม่ตรงกัน ตอนแรกอ่านยัง งงๆอยู่แต่พอมีตัวอย่างเข้าใจเลยครับ

Excel เป็นภาษาต่างด่าวครับ อันนี้ต้องไปแก้ที่ Excel ด้วยไหมครับ แต่โค้ดตรงกลางใช้งานได้แล้วครับขอบคุณครับ
« แก้ไขครั้งสุดท้าย: 19 ส.ค. 64 , 15:49:46 โดย 001Jetnipit »

 

19 ส.ค. 64 , 16:13:29
ตอบกลับ #11

PNR

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #11 เมื่อ: 19 ส.ค. 64 , 16:13:29 »
ตรงแก้ไขชื่อฟิวล์ ทำก่อนเลยในคิวรี่แบบที่คุณ UnKnown บอกครับ เนื่องจากเครื่องคุณไม่ได้ตั้งค่าให้รองรับภาษาไทย


แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]
« แก้ไขครั้งสุดท้าย: 20 ส.ค. 64 , 12:35:33 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

19 ส.ค. 64 , 16:18:47
ตอบกลับ #12

001Jetnipit

: ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« ตอบกลับ #12 เมื่อ: 19 ส.ค. 64 , 16:18:47 »
ตรงแก้ไขชื่อฟิวล์ ทำก่อนเลยในคิวรี่แบบที่คุณ UnKnown บอกครับ

แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

ขอบคุณครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย