19
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.
20
ห้อง MS Access / : สอบถามการสร้าง Expression เพื่อนับอายุงานครับ
« เมื่อ: 12 พ.ย. 62 , 15:18:26 »
เราก็สามารถสร้างเงื่อนไขต่อไปได้ครับว่า ถ้าฟิลด์ TerminateDate มีค่าก็ให้เทียบค่าวันที่ฟิลด์นี้ แต่ถ้าไม่มีค่าก็เทียบค่าวัน ที่วันที่ปัจจุบัน
คำนวณวัน
CompanyHiringDate_Day:
IIf(isnull([TerminateDate]),
IIf(DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],Date()),[CompanyHiringDate]),Date())<0,DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],Date())-1,[CompanyHiringDate]),Date()),DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],Date()),[CompanyHiringDate]),Date())),
IIf(DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],[TerminateDate]),[CompanyHiringDate]),[TerminateDate])<0,DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],[TerminateDate])-1,[CompanyHiringDate]),[TerminateDate]),DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],[TerminateDate]),[CompanyHiringDate]),[TerminateDate])))
ทำในส่วนของ เดือน และ ปี ด้วย ประมาณนี้ครับ
คำนวณวัน
CompanyHiringDate_Day:
IIf(isnull([TerminateDate]),
IIf(DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],Date()),[CompanyHiringDate]),Date())<0,DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],Date())-1,[CompanyHiringDate]),Date()),DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],Date()),[CompanyHiringDate]),Date())),
IIf(DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],[TerminateDate]),[CompanyHiringDate]),[TerminateDate])<0,DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],[TerminateDate])-1,[CompanyHiringDate]),[TerminateDate]),DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],[TerminateDate]),[CompanyHiringDate]),[TerminateDate])))
ทำในส่วนของ เดือน และ ปี ด้วย ประมาณนี้ครับ
21
ห้อง MS Access / : ขอคำแนะนำเรื่องการสร้างตัวหนังสือวิ่งบนฟอร์ม
« เมื่อ: 02 พ.ย. 62 , 03:28:07 »
ลองใช้เว็บเบราเซอร์ดูไม๊ครับ
https://youtu.be/bEY-l75nGqM?t=1332
https://youtu.be/bEY-l75nGqM?t=1332
22
ห้อง MS Access / : ดึงรูปใน Folder มาแสดงบนฟอร์ม โดยไม่ save รูปใน database
« เมื่อ: 30 ต.ค. 62 , 23:41:20 »
ลองดูที่คลิปนี้นะครับ เผื่อช่วยได้
https://youtu.be/YGIhU4KJFDc?t=486
https://youtu.be/YGIhU4KJFDc?t=486
23
ห้องสนทนาทั่วไป / : Acess สามารถเขียนแล้วใจ้จอทัชสกรีนได้ไหมครับ
« เมื่อ: 11 ต.ค. 62 , 14:33:58 »
ผมเคยลองเขียนแบบการใส่เป็นรหัสผ่านด้วยหน้าจอทัชสกรีน ลองดูเป็นไอเดียได้นะครับ
วีดีโอตัวอย่างหน้าจอทัชสกรีน
วีดีโอตัวอย่างหน้าจอทัชสกรีน
24
ห้อง MS Access / : เราสามารถตั้งปุ่ม Button เปิด Attachment ใน Form ได้มั้ยคะ
« เมื่อ: 27 ก.ย. 62 , 19:23:12 »25
ห้อง MS Access / : มีคำสั่งไหนแทน Sendkey {Enter} ได้บ้าง
« เมื่อ: 27 ก.ย. 62 , 19:21:58 »
ลองคำสั่งแบบ API ดูไม๊ครับ เผื่อช่วยได้
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
การใช้งานแทน Sendkey
keybd_event &HD, 0, 0, 0
keybd_event &HD, 0, &H2, 0
จะเป็นการส่งคีย์ ENTER
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
การใช้งานแทน Sendkey
keybd_event &HD, 0, 0, 0
keybd_event &HD, 0, &H2, 0
จะเป็นการส่งคีย์ ENTER
26
ห้อง MS Access / : Access File ปิดตัวเองทุกครั้งที่เปิด VBA จากหน้า Form
« เมื่อ: 05 ก.ย. 62 , 16:51:49 »
เป็นกับทุกไฟล์หรือเปล่าครับ
หากเป็นกับทุกไฟล์ แสดงว่าเป็นที่ตัวโปรแกรม ให้ลองลง Service pack ใหม่สุด ของตัว office 2007 น่าจะเป็น Pack 3 ลองหาใน Google ดูครับ
หากเป็นแค่ไฟล์นั้นไฟล์เดียว แล้ว Decompile ไม่หาย ลองสร้งไฟล์ใหม่เปล่าๆ แล้วค่อยๆก๊อปปี้ Object ต่างๆ ของไฟล์เก่ามาใส่ไฟล์ใหม่ให้ครบดู
เป็นไอเดียประมาณนี้ครับ
หากเป็นกับทุกไฟล์ แสดงว่าเป็นที่ตัวโปรแกรม ให้ลองลง Service pack ใหม่สุด ของตัว office 2007 น่าจะเป็น Pack 3 ลองหาใน Google ดูครับ
หากเป็นแค่ไฟล์นั้นไฟล์เดียว แล้ว Decompile ไม่หาย ลองสร้งไฟล์ใหม่เปล่าๆ แล้วค่อยๆก๊อปปี้ Object ต่างๆ ของไฟล์เก่ามาใส่ไฟล์ใหม่ให้ครบดู
เป็นไอเดียประมาณนี้ครับ
27
ห้อง MS Access / : Access File ปิดตัวเองทุกครั้งที่เปิด VBA จากหน้า Form
« เมื่อ: 05 ก.ย. 62 , 15:27:11 »
ลองทำ Decompile ดูครับว่าหายไม๊
https://youtu.be/knFHRm-bwos
https://youtu.be/knFHRm-bwos
28
ห้อง MS Access / : [VBA] ขอความช่วยเหลือ เรื่อง การนำ MS Access 64 bit ไปรันบนเครื่อง 32 bit
« เมื่อ: 03 ก.ย. 62 , 17:36:32 »
อื่ม! มันบอกยากนะครับ เพราะมีหลายอย่างเหมือนกัน แนะนำให้ลองไปรันบน 32bit ทดสอบดูก่อนเลยครับ แล้วถ้ามันมีปัญหาอะไรมันก็ฟ้องเอง แล้วค่อยมาแก้กัน บางทีอาจใช้ได้เลยก็ได้ เพราะถ้าจะเขียนให้ใช้ประสิทธิภาพแบบ 64bit จริงๆ ต้องตั้งใจเขียนเหมือนกันครับ โค้ดที่เราใช้กันหรือหาได้ทั่วไปส่วนใหญ่ก็รัน 32bit แทบทั้งนั้น
29
ห้องสนทนาทั่วไป / : อยากได้เท็คนิคการใช้งาน excel ครับ
« เมื่อ: 12 ส.ค. 62 , 01:36:16 »
แนะนำช่องใน YouTube ที่ผมดูนะครับ
ช่อง: prasertcbs
สอน Excel เบื้องต้น
สอนเทคนิคการใช้งาน Excel
Excel เสริม
ช่อง: Duangporn Toy
List Excel
ช่อง: Saralee Pruksaritanon
List Excel
ช่อง: เทพเอ็กเซล : Thep Excel
ช่อง: Somkiat Foongkiat
ลองค่อยดูนะครับ เข้าใจไม่เข้าใจบ้าง ให้ผ่านหูผ่านตาก่อน ฝึกทำโจทย์บ่อยๆช่วยได้ครับ
ช่อง: prasertcbs
สอน Excel เบื้องต้น
สอนเทคนิคการใช้งาน Excel
Excel เสริม
ช่อง: Duangporn Toy
List Excel
ช่อง: Saralee Pruksaritanon
List Excel
ช่อง: เทพเอ็กเซล : Thep Excel
ช่อง: Somkiat Foongkiat
ลองค่อยดูนะครับ เข้าใจไม่เข้าใจบ้าง ให้ผ่านหูผ่านตาก่อน ฝึกทำโจทย์บ่อยๆช่วยได้ครับ
30
ห้อง MS Access / : รันหมายเลขลำดับใน Report ใน Access
« เมื่อ: 08 ส.ค. 62 , 14:30:18 »
ถ้าเป็นในรายงานเราสามารถทำ Running Sum ได้เลย โดยการสร้าง Text Box เปล่าๆ ขึ้นมาใหม่ สมมุติชื่อ txtrun แล้วกำหนด Control Source: =1 กำหนดตรง Running Sum: Over All (หรือ Over Group หากสร้าง Group)
เราจะได้เลยที่เรียงลำดับขึ้นมา จากนั้นก็เปลี่ยนเงื่อนไขใน Text Box ที่เรานับเลข 1-40 ใหม่เป็น
=IIf([txtrun] Mod 40=0,40,[txtRun] Mod 40)
อ้างที่ [txtrun] แทนการอ้างที่ [ID] ส่วนจะให้แสดงหรือไม่ก็กำหนดในส่วน Visible เอาว่าจะเป็น Yes หรือ No
ส่วนเรื่องอยากให้หน้าละ 20 เรคคอร์ดก็ปรับส่วนพื้นที่ Detail ของรายงานให้ความสูงได้ 20 เรคคอร์ดกับหน้ากระดาษที่กำหนดไว้ แล้วแก้โค้ดที่ Detail > Event > On Print:
Const Blank_Line = 20 'จากเดิม 40 เป็น 20 แทน ก็น่าจะใช้ได้แล้วครับ
ไฟล์ตัวอย่างแก้ไข
เราจะได้เลยที่เรียงลำดับขึ้นมา จากนั้นก็เปลี่ยนเงื่อนไขใน Text Box ที่เรานับเลข 1-40 ใหม่เป็น
=IIf([txtrun] Mod 40=0,40,[txtRun] Mod 40)
อ้างที่ [txtrun] แทนการอ้างที่ [ID] ส่วนจะให้แสดงหรือไม่ก็กำหนดในส่วน Visible เอาว่าจะเป็น Yes หรือ No
ส่วนเรื่องอยากให้หน้าละ 20 เรคคอร์ดก็ปรับส่วนพื้นที่ Detail ของรายงานให้ความสูงได้ 20 เรคคอร์ดกับหน้ากระดาษที่กำหนดไว้ แล้วแก้โค้ดที่ Detail > Event > On Print:
Const Blank_Line = 20 'จากเดิม 40 เป็น 20 แทน ก็น่าจะใช้ได้แล้วครับ
ไฟล์ตัวอย่างแก้ไข
31
ห้อง MS Access / : รันหมายเลขลำดับใน Report ใน Access
« เมื่อ: 07 ส.ค. 62 , 16:41:22 »
เรื่องการทำเส้นให้เต็มในรายงานลองอ่านกระทู้นี้ดูนะครับ
https://www.thai-access.com/yeadram_view.php?topic_id=3065&PagePosition=1
ส่วนเรื่องเลขที่ตัดทุก 40 ใช้การเขียนคำสั่งหารสั้นเอาแต่เศษด้วยทำสั่ง Mod ที่เลขลำดับของเรา โดยใช้เงื่อนไข
=IIf([ID] Mod 40=0,40,[ID] Mod 40)
คือหารสั้นเอาแต่เศษด้วย 40 แต่ถ้าเศษเป็น 0 ให้เท่ากัย 40 วิธีนี้ ID ต้องเรียงเลขกันห้ามข้ามนะครับ
ไฟล์ตัวอย่าง
https://www.thai-access.com/yeadram_view.php?topic_id=3065&PagePosition=1
ส่วนเรื่องเลขที่ตัดทุก 40 ใช้การเขียนคำสั่งหารสั้นเอาแต่เศษด้วยทำสั่ง Mod ที่เลขลำดับของเรา โดยใช้เงื่อนไข
=IIf([ID] Mod 40=0,40,[ID] Mod 40)
คือหารสั้นเอาแต่เศษด้วย 40 แต่ถ้าเศษเป็น 0 ให้เท่ากัย 40 วิธีนี้ ID ต้องเรียงเลขกันห้ามข้ามนะครับ
ไฟล์ตัวอย่าง
32
ห้อง MS Access / : สอบถามวิธีเปลี่ยนลูกศรของเมาท์ไปเป็นรูปมือ เวลาเคลื่อนเมาท์ไปบนรูปภาพ
« เมื่อ: 04 ส.ค. 62 , 22:06:43 »
ผมลองทำคลิปให้ดูเผื่อช่วยได้ ลองดูนะครับ
https://youtu.be/xwmDJDzKY8g
https://youtu.be/xwmDJDzKY8g
33
ห้อง MS Access / : สร้างฟอร์มรับข้อมูล ทำยังไงคงส่วนบรรทัดใน detail คงที่ทุกฟอร์ม
« เมื่อ: 21 ก.ค. 62 , 23:49:09 »
อื่ม! ผมว่าส่วนสำคัญคือ scorebar Vertical ที่หายไป ทำไมหายไป กำหนด Property แล้วไม่ขึ้น? ต้องแก้ไขให้มันแสดงขึ้นมาดีกว่าครับ เพราะมันเป็นส่วนสำคัญของซับฟอร์มเลย ถ้าไม่มีจะใช้งานยาก
34
ห้อง MS Access / : การเชื่อมโยง text file ที่เปลี่ยนชื่อไปเรื่อยๆ
« เมื่อ: 04 ก.ค. 62 , 17:37:23 »
เสริมนิด เป็นทางเลือกนะครับ ถ้าเป็น VBA7 (ต่ำกว่านี้ไม่รู้ว่ามีป่าวนะ) ใช้คำสั่ง FileCopy("พาธชื่อไฟล์ต้นฉบับ", "พาธชื่อไฟล์ปลายทาง") ในการก๊อปปี้ไฟล์แบบง่ายๆ ได้เหมือนกัน
ข้อเสียคือ
1. ไม่มีตัวเลือกก๊อปปี้ทับไฟล์ชื่อซ้ำกันหรือไม่ จะเป็นการทับอย่างเดียว (หากเป็นงานที่ทับไฟล์เดิมอยู่แล้วก็ใช้ได้เลย)
2. ไม่รองรับอักษร Grave Accent เช่น è, à, Juné.jpg อย่างนี้คำสั่งจะไม่พบไฟล์
ข้อเสียคือ
1. ไม่มีตัวเลือกก๊อปปี้ทับไฟล์ชื่อซ้ำกันหรือไม่ จะเป็นการทับอย่างเดียว (หากเป็นงานที่ทับไฟล์เดิมอยู่แล้วก็ใช้ได้เลย)
2. ไม่รองรับอักษร Grave Accent เช่น è, à, Juné.jpg อย่างนี้คำสั่งจะไม่พบไฟล์
35
ห้อง MS Access / : กำหนดพื้นที่ส่วนdetailในรายงานให้เท่ากันทุกหน้า
« เมื่อ: 18 มิ.ย. 62 , 22:04:44 »
ลองอ่านและดูไฟล์ตัวอย่างนี้นะครับ เผื่อช่วยได้
Download ตัวอย่างไฟล์ Blank Line
Download ตัวอย่างไฟล์ Blank Line
36
ห้อง MS Access / : มีวิธีแก้หรือป่าวค่ะ Relationship
« เมื่อ: 18 มิ.ย. 62 , 18:01:08 »
ไม่เคยเจอเหมือนกัน คิดว่าอาจต้องสร้างไฟล์ MS Access เปล่าๆ ขึ้นมาใหม่ แล้วใช้การ Import ทุกอย่างจากไฟล์เดิมเข้ามา โปรแกรมมันจะปรับการจัดเรียงตาราง Relationships ให้ใหม่ ไม่รู้ว่ากรณีนี้จะหายไม๊ เป็นอีกวิธีให้ลองดูแล้วกันครับ
(น่าจะคล้ายการ Clear Layout ที่ อ.สันติสุข บอก 'ลืมดูว่า อาจารย์ตอบไปแล้ว')
(น่าจะคล้ายการ Clear Layout ที่ อ.สันติสุข บอก 'ลืมดูว่า อาจารย์ตอบไปแล้ว')