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 / : ดึงรูปใน Folder มาแสดงบนฟอร์ม โดยไม่ save รูปใน database
« เมื่อ: 30 ต.ค. 62 , 23:41:20 »
ลองดูที่คลิปนี้นะครับ เผื่อช่วยได้
https://youtu.be/YGIhU4KJFDc?t=486
https://youtu.be/YGIhU4KJFDc?t=486
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan
21
ห้องสนทนาทั่วไป / : Acess สามารถเขียนแล้วใจ้จอทัชสกรีนได้ไหมครับ
« เมื่อ: 11 ต.ค. 62 , 14:33:58 »
ผมเคยลองเขียนแบบการใส่เป็นรหัสผ่านด้วยหน้าจอทัชสกรีน ลองดูเป็นไอเดียได้นะครับ
วีดีโอตัวอย่างหน้าจอทัชสกรีน
วีดีโอตัวอย่างหน้าจอทัชสกรีน
โพสต์นี้ได้รับคำขอบคุณจาก: jee007
22
ห้อง MS Access / : เราสามารถตั้งปุ่ม Button เปิด Attachment ใน Form ได้มั้ยคะ
« เมื่อ: 27 ก.ย. 62 , 19:23:12 »23
ห้อง 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
โพสต์นี้ได้รับคำขอบคุณจาก: Un
24
ห้อง 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 ต่างๆ ของไฟล์เก่ามาใส่ไฟล์ใหม่ให้ครบดู
เป็นไอเดียประมาณนี้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan
25
ห้อง MS Access / : Access File ปิดตัวเองทุกครั้งที่เปิด VBA จากหน้า Form
« เมื่อ: 05 ก.ย. 62 , 15:27:11 »26
ห้อง MS Access / : [VBA] ขอความช่วยเหลือ เรื่อง การนำ MS Access 64 bit ไปรันบนเครื่อง 32 bit
« เมื่อ: 03 ก.ย. 62 , 17:36:32 »
อื่ม! มันบอกยากนะครับ เพราะมีหลายอย่างเหมือนกัน แนะนำให้ลองไปรันบน 32bit ทดสอบดูก่อนเลยครับ แล้วถ้ามันมีปัญหาอะไรมันก็ฟ้องเอง แล้วค่อยมาแก้กัน บางทีอาจใช้ได้เลยก็ได้ เพราะถ้าจะเขียนให้ใช้ประสิทธิภาพแบบ 64bit จริงๆ ต้องตั้งใจเขียนเหมือนกันครับ โค้ดที่เราใช้กันหรือหาได้ทั่วไปส่วนใหญ่ก็รัน 32bit แทบทั้งนั้น
โพสต์นี้ได้รับคำขอบคุณจาก: PooPae
27
ห้องสนทนาทั่วไป / : อยากได้เท็คนิคการใช้งาน 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
ลองค่อยดูนะครับ เข้าใจไม่เข้าใจบ้าง ให้ผ่านหูผ่านตาก่อน ฝึกทำโจทย์บ่อยๆช่วยได้ครับ
28
ห้อง 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 แทน ก็น่าจะใช้ได้แล้วครับ
ไฟล์ตัวอย่างแก้ไข
29
ห้อง 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 ต้องเรียงเลขกันห้ามข้ามนะครับ
ไฟล์ตัวอย่าง
โพสต์นี้ได้รับคำขอบคุณจาก: mtaccess
30
ห้อง MS Access / : สอบถามวิธีเปลี่ยนลูกศรของเมาท์ไปเป็นรูปมือ เวลาเคลื่อนเมาท์ไปบนรูปภาพ
« เมื่อ: 04 ส.ค. 62 , 22:06:43 »
ผมลองทำคลิปให้ดูเผื่อช่วยได้ ลองดูนะครับ
https://youtu.be/xwmDJDzKY8g
https://youtu.be/xwmDJDzKY8g
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy
31
ห้อง MS Access / : สร้างฟอร์มรับข้อมูล ทำยังไงคงส่วนบรรทัดใน detail คงที่ทุกฟอร์ม
« เมื่อ: 21 ก.ค. 62 , 23:49:09 »
อื่ม! ผมว่าส่วนสำคัญคือ scorebar Vertical ที่หายไป ทำไมหายไป กำหนด Property แล้วไม่ขึ้น? ต้องแก้ไขให้มันแสดงขึ้นมาดีกว่าครับ เพราะมันเป็นส่วนสำคัญของซับฟอร์มเลย ถ้าไม่มีจะใช้งานยาก
โพสต์นี้ได้รับคำขอบคุณจาก: สันติสุข
32
ห้อง MS Access / : การเชื่อมโยง text file ที่เปลี่ยนชื่อไปเรื่อยๆ
« เมื่อ: 04 ก.ค. 62 , 17:37:23 »
เสริมนิด เป็นทางเลือกนะครับ ถ้าเป็น VBA7 (ต่ำกว่านี้ไม่รู้ว่ามีป่าวนะ) ใช้คำสั่ง FileCopy("พาธชื่อไฟล์ต้นฉบับ", "พาธชื่อไฟล์ปลายทาง") ในการก๊อปปี้ไฟล์แบบง่ายๆ ได้เหมือนกัน
ข้อเสียคือ
1. ไม่มีตัวเลือกก๊อปปี้ทับไฟล์ชื่อซ้ำกันหรือไม่ จะเป็นการทับอย่างเดียว (หากเป็นงานที่ทับไฟล์เดิมอยู่แล้วก็ใช้ได้เลย)
2. ไม่รองรับอักษร Grave Accent เช่น è, à, Juné.jpg อย่างนี้คำสั่งจะไม่พบไฟล์
ข้อเสียคือ
1. ไม่มีตัวเลือกก๊อปปี้ทับไฟล์ชื่อซ้ำกันหรือไม่ จะเป็นการทับอย่างเดียว (หากเป็นงานที่ทับไฟล์เดิมอยู่แล้วก็ใช้ได้เลย)
2. ไม่รองรับอักษร Grave Accent เช่น è, à, Juné.jpg อย่างนี้คำสั่งจะไม่พบไฟล์
33
ห้อง MS Access / : กำหนดพื้นที่ส่วนdetailในรายงานให้เท่ากันทุกหน้า
« เมื่อ: 18 มิ.ย. 62 , 22:04:44 »
ลองอ่านและดูไฟล์ตัวอย่างนี้นะครับ เผื่อช่วยได้
Download ตัวอย่างไฟล์ Blank Line
Download ตัวอย่างไฟล์ Blank Line
โพสต์นี้ได้รับคำขอบคุณจาก: PJ
34
ห้อง MS Access / : มีวิธีแก้หรือป่าวค่ะ Relationship
« เมื่อ: 18 มิ.ย. 62 , 18:01:08 »
ไม่เคยเจอเหมือนกัน คิดว่าอาจต้องสร้างไฟล์ MS Access เปล่าๆ ขึ้นมาใหม่ แล้วใช้การ Import ทุกอย่างจากไฟล์เดิมเข้ามา โปรแกรมมันจะปรับการจัดเรียงตาราง Relationships ให้ใหม่ ไม่รู้ว่ากรณีนี้จะหายไม๊ เป็นอีกวิธีให้ลองดูแล้วกันครับ
(น่าจะคล้ายการ Clear Layout ที่ อ.สันติสุข บอก 'ลืมดูว่า อาจารย์ตอบไปแล้ว')
(น่าจะคล้ายการ Clear Layout ที่ อ.สันติสุข บอก 'ลืมดูว่า อาจารย์ตอบไปแล้ว')
35
ห้อง MS Access / : กำหนดพื้นที่ส่วนdetailในรายงานให้เท่ากันทุกหน้า
« เมื่อ: 18 มิ.ย. 62 , 17:48:31 »
การที่ใส่ช่องรวมยอดไว้ที่ page footer มันจะทำให้ช่องนี้ออกทุกหน้า ซึ่งช่องรวมยอดน่าจะออกที่หน้าสุดท้ายของบิลมากกว่าหรือป่าว?
จึงควรใส่ช่องรวมยอดไว้ที่ Report footer มากกว่า แต่ก็จะเจอปัญหาช่องรวมยอดจะขึ้นลงตามเรคคอร์ดสุดท้ายของบิล ก็ต้องไปแก้ไขแบบที่ผมทิ้งลิ้งค์ไว้ให้โดยการทำ Blank line
แต่ถ้ารับได้แบบที่คุณแก้ปัญหาก็ถือว่าทำแบบนี้ก็ OK ครับ
ส่วนเรื่อง Error นั้น ถ้าอยากให้ช่องรวมยอดทุกหน้าแสดงค่ารวมเหมือนกันหมดก็เขียนโค้ดถูกแล้วนะครับ แต่ที่สงสัยว่ามัน Error อาจเกิดจากค่าใน txtsumSdnet ที่สร้างเงื่อนไข ไม่รู้ว่าเป็นค่าว่างแบบ Null หรือ "" ยังไงลองแก้โค้ดเป็นอย่างนี้ดูนะครับ
ของเดิม
=IIf(IsNull([txtsumSdnet]),"","(" & BahtText([txtsumSdnet]) & ")")
แก้เป็น
=IIf(IsNull([txtsumSdnet]) OR [txtsumSdnet] = "","","(" & BahtText([txtsumSdnet]) & ")")
จึงควรใส่ช่องรวมยอดไว้ที่ Report footer มากกว่า แต่ก็จะเจอปัญหาช่องรวมยอดจะขึ้นลงตามเรคคอร์ดสุดท้ายของบิล ก็ต้องไปแก้ไขแบบที่ผมทิ้งลิ้งค์ไว้ให้โดยการทำ Blank line
แต่ถ้ารับได้แบบที่คุณแก้ปัญหาก็ถือว่าทำแบบนี้ก็ OK ครับ
ส่วนเรื่อง Error นั้น ถ้าอยากให้ช่องรวมยอดทุกหน้าแสดงค่ารวมเหมือนกันหมดก็เขียนโค้ดถูกแล้วนะครับ แต่ที่สงสัยว่ามัน Error อาจเกิดจากค่าใน txtsumSdnet ที่สร้างเงื่อนไข ไม่รู้ว่าเป็นค่าว่างแบบ Null หรือ "" ยังไงลองแก้โค้ดเป็นอย่างนี้ดูนะครับ
ของเดิม
=IIf(IsNull([txtsumSdnet]),"","(" & BahtText([txtsumSdnet]) & ")")
แก้เป็น
=IIf(IsNull([txtsumSdnet]) OR [txtsumSdnet] = "","","(" & BahtText([txtsumSdnet]) & ")")
โพสต์นี้ได้รับคำขอบคุณจาก: PJ
36
ห้อง MS Access / : กำหนดพื้นที่ส่วนdetailในรายงานให้เท่ากันทุกหน้า
« เมื่อ: 17 มิ.ย. 62 , 10:50:50 »
ไม่ทราบว่าลักษณะที่ต้องการแบบเดียวกับกระทู้นี้หรือป่าวครับ ลองศึกษาดูครับ
https://www.thai-access.com/yeadram_view.php?topic_id=3065&PagePosition=1
https://www.thai-access.com/yeadram_view.php?topic_id=3065&PagePosition=1
โพสต์นี้ได้รับคำขอบคุณจาก: PJ
