สมัครสมาชิก

แสดงกระทู้

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.


Messages - OddyWriter

หน้า: [1]
1
บอร์ดเรียนรู้ Access สำหรับคนไทย ก็โพสวาดเส้น,ตาราง,กล่องข้อความได้นะ :meaw:

ปกติ
แต่งโค๊ด
หมายเหตุ
 table  table border=1 ทำให้กล่องข้อความมีเส้น(เลขกำหนดขนาดเส้นขอบนอก)
 table border=1 style="border: 2px inset red;" ใส่สีเส้น(border 1.ทำให้มีเส้นทั้งตาราง,2.ขนาดขอบ&สี)
 td td colspan=2 รวมคอลัมน์(ตามตัวเลข)ให้เหลือคอลัมน์เดียว
 ฯลฯ อื่นๆอีกมากปรับใช้งานตามสะดวกเลยครับ  :shout:

ตัวอย่างโค๊ดสี
 Name hexadecimal  ........ 
 aqua #00ffff
 black #000000
 blue #0000ff
 fuchsia #ff00ff
 gray #808080
 green #008000
 lime #00ff00
 maroon #800000
 navy #000080
 olive #808000
 orange #ffa500
 purple #800080
 red #ff0000
 silver #c0c0c0
 teal #008080
 white #ffffff
 yellow #ffff00

EXAMPLE
โค๊ด: [Select]
[table border=1 style="border: 3px inset #ffa500;"]
[tr][td colspan=2][center][b]1+2[/b][/center][/td][td]  [b]3[/b][/td][/tr]
[tr][td]  abc [/td][td]  xxxxxx  [/td][td]  yyy [/td][/tr]
[/table]
1+2
  3
  abc   xxxxxx    yyy



credit SMF Mod Site : BBCode with style link
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

2
ปรับเปลี่ยนรูปแบบการแสดงไฟล์แนบ(Attachment) ให้มีการแสดงผลที่ชัดเจนยิ่งขึ้น  :shout:
โดยสามารถคลิกที่รูปหรือชื่อไฟล์เพื่อดาวน์โหลดครับ  ตัวอย่างด้านล่าง
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

3
การนำข้อมูลที่มี Data Type เป็น Date จาก Recordset ไปใส่ลงในเอ็กซ์เซลชีทในเซลที่ถูกกำหนดรูปแบบการแสดงเป็น Custom (รูปแบบที่ผู้ใช้กำหนดเอง เช่นอาจต้องการให้แสดงวันที่ 1 มกราคาม 2561 เป็น "จันทร์ 1 ม.ค. 61") ด้วยคำสั่ง CopyFromRecordset method สำหรับ Range object (เป็น Excel object) จะทำให้เซลนั้นจะถูกเซ็ท format กลับมาเป็นชื่อ Date เสมอ ต้องกำหนดรูปแบบของเซลอีกครั้งด้วย NumberFormat property  แต่ถ้าใส่ค่าลงไปตรงๆด้วย Value property จะไม่เกิดเหตุการณ์แบบนี้

โค้ดตัวอย่างที่ทำให้เกิดเหตุการณ์
โค๊ด: [Select]
    Dim xlApp   As Object
   
    Dim DB      As DAO.Database
    Dim RS      As DAO.Recordset
   
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Open "C:\Temp\Example.xlsx"
   
    Set DB = CurrentDb
    Set RS = DB.OpenRecordset("select PMU2_StartDT from PMU2")
    xlApp.ActiveSheet.Range("C3").CopyFromRecordset RS
    RS.Close

ภาพเซลที่มีรูปแบบตามที่ผู้ใช้กำหนดเอง
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

4
เวลาเราดีบักโปรแกรม โค้ดจะหยุดรันเมื่อถึงบรรทัดที่ตั้ง break point ไว้ ปกติเมื่อกดคีย์ F8 โค้ดก็จะทำงานต่อไปหนึ่งบรรทัดและหยุดรอเราว่าจะให้ทำอะไรต่อไป แต่บางกรณีที่โค้ดนั้นเขียนเพื่อโปรแกรมการทำงานของ Excel เช่น

1410              xlSheet.Cells(wR, wxlOut_ColIDLine) = wRS!PMU2_ID
1420              xlSheet.Cells(wR, wxlOut_ColStartDT) = wRS!PMU2_StartDT
1430              xlSheet.Cells(wR, wxlOut_ColMatCD) = wRS!PMU2_MATCD

สมมุติว่าตั้ง break point ไว้ที่บรรทัด 1410  พอโค้ดหยุดแล้ว และเรากดคีย์ F8  แทนที่โค้ดจะหยุดที่บรรทัด 1420  ปรากฏว่าโค้ดจะไม่หยุด และทำงานต่อไปตามปกติ ถ้าอยากให้หยุดที่บรรทัด 1420 ก็ต้องตั้ง break point ไว้ที่นั่นอีกบรรทัด แต่จะไม่เกิดปัญหานี้ในโค้ดที่ควบคุมการทำงานของ Access เอง สาเหตุเป็นปัญหาทางเทคนิคของตัว VBA เอง วิธีแก้ก็คือให้แก้ไข Registry ในระบบวินโดว์ตามลิงค์นี้ครับ http://www.contextures.com/excelvbatips.html#f8 link (ดูในส่วน F8 Key Stops Working)

หมายเหตุ : ปัญหานี้สามารถเกิดได้เมื่อเขียน VBA ภายในตัวโปรแกรม Excel เองโดยตรงด้วย
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

5
ใช่เลยครับอาจารย์ ผมก็ไม่เก่งภาษาหมือนกัน เวลาจะตั้งชื่อที่นึง ก็เปิด Dic ใน Google กันเลยทีเดียว
ทำไปนานๆ ภาษากลายเป็นสัญลักษณ์ คือมันจำได้เองโดยอัตโนมัติ มันใช้ซ้ำๆ กันไปเรื่อยๆ ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

6
> เพิ่มปุ่ม "เก็บกระทู้นี้" (add bookmarks) ให้สามารถติดตาม,เก็บกระทู้ใว้อ่าน,ตอบ ได้ง่ายขึ้น



โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

8
ประกาศสำคัญ & ข่าวสารต่างๆของบอร์ดเรียนรู้ Access สำหรับคนไทยแห่งนี้ครับ

• กฎกติกาบอร์ดเรียนรู้ Access สำหรับคนไทย •
-> เว็บบอร์ดใหม่มีอะไรบ้าง <-
-> แจ้งปัญหาหรือพูดคุยเกี่ยวกับเว็บบอร์ดแห่งนี้ โพสที่นี้ครับ <-


การใช้งานเว็บบอร์ดเบื้องต้น  :nice day:
-> ข้อควรระวังในการพิมพ์ข้อความ,โค้ดหรือสคริปต่างๆ
-> วิธีการอัพรูป / วิธีการแนบไฟล์

 *ทุกไฟล์แนบเว็บบอร์ดขอไม่รับผิดชอบใดๆเลยนะครับ (ไวรัส,ลิขสิทธิ์,ฯลฯ เป็นต้น)

โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

9
บอร์ดเรียนรู้ Access สำหรับคนไทย
เราเป็นเว็บสีขาว ดังนั้นอะไรที่คิดว่าทำแล้วสังคมในบอร์ดจะเสียหาย อย่าทำ!


กฎกติกา
เว้นจากสิ่งต่อไปนี้
X การเมือง
> ขอแบน User ที่ Post เรื่องการเมืองทุกกรณี

X เว็บหมิ่น
> งดโพสหรือนำเว็บหมิ่นสถาบันมาโพสต์นะครับ

X สิ่งผิดกฎหมาย เช่น อนาจาร, การพนัน, การระดมทุน, ฯลฯ เป็นต้น
> ไม่อนุญาตให้โพสหรือทำ Link ออกไปยังเว็บเหล่านี้ (ลบโพส & แบนทันที)

X Spam
> สมัคร user ใหม่ เพื่อมา spam จะขอลบ user ทิ้งทันทีครับ
> ปัมพ์โพสต์ตอบแต่ emoticon ต่อเนื่อง รับสิทธิ์โดนแบนนะครับ
> งดตั้งกระทู้เพื่อชักจูงแบบคลุมเครือ หรือ spam ทาง pm

X งดหาDownline ธุรกิจเครือข่าย

X ลายเซ็นต์ที่เกินกำหนด
> ห้ามติดพวกแนว sign-profit
> ไม่ขัดกับกฎหลักฉบับนี้

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


เครดิต ThaiSEOBoard link
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

หน้า: [1]