แสดงกระทู้

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 - TTT

หน้า: 1 [2] 3 4 5
19
ผมเคยลองเขียนแบบการใส่เป็นรหัสผ่านด้วยหน้าจอทัชสกรีน ลองดูเป็นไอเดียได้นะครับ
วีดีโอตัวอย่างหน้าจอทัชสกรีน
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

20
ทำคลิปให้ดูนะครับ เผื่อช่วยได้

Youtube
โพสต์นี้ได้รับคำขอบคุณจาก: apirak, sirirat-ploy

21
ลองคำสั่งแบบ 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
โพสต์นี้ได้รับคำขอบคุณจาก: Un

22
เป็นกับทุกไฟล์หรือเปล่าครับ
หากเป็นกับทุกไฟล์ แสดงว่าเป็นที่ตัวโปรแกรม ให้ลองลง Service pack ใหม่สุด ของตัว office 2007 น่าจะเป็น Pack 3 ลองหาใน Google ดูครับ
หากเป็นแค่ไฟล์นั้นไฟล์เดียว แล้ว Decompile ไม่หาย ลองสร้งไฟล์ใหม่เปล่าๆ แล้วค่อยๆก๊อปปี้ Object ต่างๆ ของไฟล์เก่ามาใส่ไฟล์ใหม่ให้ครบดู
เป็นไอเดียประมาณนี้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan

23
ลองทำ Decompile ดูครับว่าหายไม๊
https://youtu.be/knFHRm-bwos
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan

24
อื่ม! มันบอกยากนะครับ เพราะมีหลายอย่างเหมือนกัน แนะนำให้ลองไปรันบน 32bit ทดสอบดูก่อนเลยครับ แล้วถ้ามันมีปัญหาอะไรมันก็ฟ้องเอง แล้วค่อยมาแก้กัน บางทีอาจใช้ได้เลยก็ได้ เพราะถ้าจะเขียนให้ใช้ประสิทธิภาพแบบ 64bit จริงๆ ต้องตั้งใจเขียนเหมือนกันครับ โค้ดที่เราใช้กันหรือหาได้ทั่วไปส่วนใหญ่ก็รัน 32bit แทบทั้งนั้น
โพสต์นี้ได้รับคำขอบคุณจาก: PooPae

25
แนะนำช่องใน YouTube ที่ผมดูนะครับ

ช่อง: prasertcbs
สอน Excel เบื้องต้น
สอนเทคนิคการใช้งาน Excel
Excel เสริม

ช่อง: Duangporn Toy
List Excel

ช่อง: Saralee Pruksaritanon
List Excel

ช่อง: เทพเอ็กเซล : Thep Excel

ช่อง: Somkiat Foongkiat

ลองค่อยดูนะครับ เข้าใจไม่เข้าใจบ้าง ให้ผ่านหูผ่านตาก่อน ฝึกทำโจทย์บ่อยๆช่วยได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Un, poufoo

26
ถ้าเป็นในรายงานเราสามารถทำ 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 แทน ก็น่าจะใช้ได้แล้วครับ
ไฟล์ตัวอย่างแก้ไข
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan, PNR, mtaccess

27
เรื่องการทำเส้นให้เต็มในรายงานลองอ่านกระทู้นี้ดูนะครับ
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

28
ผมลองทำคลิปให้ดูเผื่อช่วยได้ ลองดูนะครับ
https://youtu.be/xwmDJDzKY8g
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

29
อื่ม! ผมว่าส่วนสำคัญคือ scorebar Vertical ที่หายไป ทำไมหายไป กำหนด Property แล้วไม่ขึ้น? ต้องแก้ไขให้มันแสดงขึ้นมาดีกว่าครับ เพราะมันเป็นส่วนสำคัญของซับฟอร์มเลย ถ้าไม่มีจะใช้งานยาก
โพสต์นี้ได้รับคำขอบคุณจาก: สันติสุข

30
เสริมนิด เป็นทางเลือกนะครับ ถ้าเป็น VBA7 (ต่ำกว่านี้ไม่รู้ว่ามีป่าวนะ) ใช้คำสั่ง FileCopy("พาธชื่อไฟล์ต้นฉบับ", "พาธชื่อไฟล์ปลายทาง") ในการก๊อปปี้ไฟล์แบบง่ายๆ ได้เหมือนกัน
ข้อเสียคือ
1. ไม่มีตัวเลือกก๊อปปี้ทับไฟล์ชื่อซ้ำกันหรือไม่ จะเป็นการทับอย่างเดียว (หากเป็นงานที่ทับไฟล์เดิมอยู่แล้วก็ใช้ได้เลย)
2. ไม่รองรับอักษร Grave Accent เช่น è, à, Juné.jpg อย่างนี้คำสั่งจะไม่พบไฟล์
โพสต์นี้ได้รับคำขอบคุณจาก: Un, สันติสุข

31
ลองอ่านและดูไฟล์ตัวอย่างนี้นะครับ เผื่อช่วยได้
Download ตัวอย่างไฟล์ Blank Line
โพสต์นี้ได้รับคำขอบคุณจาก: PJ

32
ไม่เคยเจอเหมือนกัน คิดว่าอาจต้องสร้างไฟล์ MS Access เปล่าๆ ขึ้นมาใหม่ แล้วใช้การ Import ทุกอย่างจากไฟล์เดิมเข้ามา โปรแกรมมันจะปรับการจัดเรียงตาราง Relationships ให้ใหม่ ไม่รู้ว่ากรณีนี้จะหายไม๊ เป็นอีกวิธีให้ลองดูแล้วกันครับ
(น่าจะคล้ายการ Clear Layout ที่ อ.สันติสุข บอก 'ลืมดูว่า อาจารย์ตอบไปแล้ว')
โพสต์นี้ได้รับคำขอบคุณจาก: MiKu, O_o

33
การที่ใส่ช่องรวมยอดไว้ที่ page footer มันจะทำให้ช่องนี้ออกทุกหน้า ซึ่งช่องรวมยอดน่าจะออกที่หน้าสุดท้ายของบิลมากกว่าหรือป่าว?
จึงควรใส่ช่องรวมยอดไว้ที่ Report footer มากกว่า แต่ก็จะเจอปัญหาช่องรวมยอดจะขึ้นลงตามเรคคอร์ดสุดท้ายของบิล ก็ต้องไปแก้ไขแบบที่ผมทิ้งลิ้งค์ไว้ให้โดยการทำ Blank line
แต่ถ้ารับได้แบบที่คุณแก้ปัญหาก็ถือว่าทำแบบนี้ก็ OK ครับ
ส่วนเรื่อง Error นั้น ถ้าอยากให้ช่องรวมยอดทุกหน้าแสดงค่ารวมเหมือนกันหมดก็เขียนโค้ดถูกแล้วนะครับ แต่ที่สงสัยว่ามัน Error อาจเกิดจากค่าใน txtsumSdnet ที่สร้างเงื่อนไข ไม่รู้ว่าเป็นค่าว่างแบบ Null หรือ "" ยังไงลองแก้โค้ดเป็นอย่างนี้ดูนะครับ
ของเดิม
=IIf(IsNull([txtsumSdnet]),"","(" & BahtText([txtsumSdnet]) & ")")
แก้เป็น
=IIf(IsNull([txtsumSdnet]) OR [txtsumSdnet] = "","","(" & BahtText([txtsumSdnet]) & ")")
โพสต์นี้ได้รับคำขอบคุณจาก: PJ

34
ไม่ทราบว่าลักษณะที่ต้องการแบบเดียวกับกระทู้นี้หรือป่าวครับ ลองศึกษาดูครับ
https://www.thai-access.com/yeadram_view.php?topic_id=3065&PagePosition=1
โพสต์นี้ได้รับคำขอบคุณจาก: PJ

35
กดปุ่ม [CTRL] + ['] จะเป็นการเรียกข้อมูลก่อนหน้ามาใส่ (ไม่รู้ว่าช่วยแก้ปัญหาได้ป่าวนะครับ)
โพสต์นี้ได้รับคำขอบคุณจาก: sjs, สันติสุข

36
มีแบบส่งรายบุคคลมั้ยครับพี่

คือถ้าจะส่งไปคนไหน คนนั้นก็จะต้อง Generate token แล้วนำรหัส token มาให้เรา เราถึงจะส่งให้คนนั้นได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown, sjs

หน้า: 1 [2] 3 4 5