อย่าลืม

tool--> References

                            --> Microsoft Excel 11.0 Object Library

ทำแล้วขึ้น #name? ครับ ไม่ทราบว่าเกิดอะไรขึ้นครับ

พอเอา function Bahttext ไปใช้ใน Report (ป้ายผนึก) มันฟ้องขึ้นกรอบว่า ใส่ค่าพารามิเตอร์ "ฺBahttext"

แจ้งคุณ เด็กใหม่ เพิ่มเติมครับ
1 ฟังก์ชั่นที่คุณ สำนึกดี ให้มา คุณต้องเอาไปวางในโมดูลเท่านั้นนะ ห้ามวางในฟอร์มหรือรายงาน
2 โมดูลที่ว่านี้ จะสร้างขึ้นมาใหม่หรือ แค่เอาฟังก์ชั่นนี้ไปฝากวางกับโมดูลอื่นๆ ก็ได้ แต่ต้องเป็น Module เท่านั้น
3 ในไฟล์ Access ของคุณ 1 ไฟล์ อนุญาตให้วางฟังก์ชั่นนี้ได้แค่ ที่เดียวเท่านั้น (จะวางในโมดูลใดๆ ก็ได้ แต่ต้อง .. วางแล้ววางเลย ห้ามวางซ้ำในโมดูลอื่นๆ อีก)
4 ห้ามตั้งชื่อ object อื่นๆ (ชื่อตาราง ชื่อคิวรี่ ชื่อฟอร์ม ชื่อรายงาน ชื่อแมคโคร ชื่อโมดูล) ว่า BahtText
5 อย่าลืมอ้างอิงไลบรารี่ ตามที่คุณสำนึกดีแนะนำในความเห็นที่ R06266

กำลังอยากได้เหมือนกันครับ โค๊ด วีบีเอ ที่ใช้แปลงเป็นตัวอักษรภาษาอังกฤษนะครับ
ลองค้นในบอร์ดแล้วเอาไปใส่มันฟ้องว่า โค็ดผิดครับ ไม่รู้จะแก้ยังไง มีแบบที่ใช้ได้แน่ๆบ้างไหมครับ ต้องการด่วนมากเลย ทำโปรแกรมอยู่เกี่ยวกับการออกเอกสารบัญชีครับ

ผมลองทำตามข้อ 1-5 แล้วครับ แต่ยังไม่ได้เลยครับ ไม่รู้ว่าจะเช็คที่ตรงไหนได้อีกครับ
ผมจะใช้อ้างอิง Function นี้ใน ฟอร์มใบส่งของ และใช้ในป้ายผนึกติดที่สินค้าที่จะส่ง
ผมมีโมดูลเดียวครับ BahtText
Access ที่ใช้เป็น 2007

รบกวนอีกทีครับ
ขอบคุณครับ :)

ชื่อโมดูลผมตั้งว่า M-BahtText ภายในผม copy ตามคุณสำนึกดี ข้างต้นครับ

ลองอันนี้ http://www.thai-access.com/yeadram_view.php?topic_id=162

ขอบคุณครับ ท่านอาจารย์สันติสุข

ฟังก์ชั่นนี้แหละครับที่ผมก็อปปี้ไปใช้ มันขึ้นแบบนี้ล่ะครับ แต่เอาไปเรียกใช แต่เวลาเอาไปไว้ที่โมดูล คอมไพล์ผ่านครับ ไม่ทราบว่าเป็นเพราะอะไร

แน่ใจนะครับว่า คอมไพล์แล้วผ่าน ถ้าเป็นอย่างนั้น ให้ลองทำ Compact and Repaor Database ก่อน แล้วดูว่ายังเกิดปัญหาอีกหรือไม่ ถ้ายังเกิด ให้ทำ Decompile อีกที http://www.thai-access.com/yeadram_view.php?topic_id=128 ถ้ายังเกิด ลองสร้างฐานข้อมูลเปล่าตัวใหม่แล้วลองเอาฟังก์ชั่นแปลงตัวเลขไปใช้ในฐานข้อมูลใหม่ดู ผมว่ามันน่าจะใช้ได้นะ

ผลลองใช้ Function ตามคุณสันติสุข (R06545) แล้วครับ แต่ได้ผลเหมือนเดิมครับ
ไม่รู้ผลทำอะไรผิดไปหรือเปล่า
รบกวนอีกทีครับ
ขอบคุณครับ :)

คุณเด็กใหม่ทำอะไรไปแล้วบ้าง ทั้งในโมดูลและในตัว Report กำหนดอะไร ค่าอะไร เล่ารายละเอียดมาหน่อยครับ

ตอนนี้โมดูล มี 1 อัน M-Bahttext โดย copy จาก R00784

ผมใช้ Function Bahttext ใน Form ใบส่งของ
ใบส่งของทำจาก 2 Form
form หลักเป็นหัวใบส่งของ
form ย่อยเป็นรายละเอียดสินค้า ราคา ยอดรวม
ผมรวมยอดรวมต่อ order ไว้ ตั้งชื่อ "nnum"
ผมใช้ Function ว่า =bahttext([nnum]) กำหนดไว้ใน Form ย่อย

อีกอันผมใช้ function bahttext ใน Report ป้ายผนึกสินค้า ที่ดึงข้อมูลจาก Query อีกอัน

ยอดรวมในกรอบ "nnum" ผมกำหนดไว้ในส่วนท้ายของ form ย่อย
ื[nnum] รวมข้อมูลจาก =[AmountTotal]+[VatTotal]

มันยังขึ้น #name? ใช่ไหม ถ้าใช่ ให้ลองเติมคำว่า Public หน้าฟังก์ชั่น BahtText ในโมดูล ก็จะได้เป็น

Public Function BahtText(InputCurrency As Currency) As String

ถ้าเติมแล้ว ยังขึ้น #name? อีก ให้คุณลองเปลี่ยนจาก =bahttext([nnum]) ไปเป็น =[nnum] เฉยๆดู ถ้ายังไม่ได้ ก็แปลว่า อาจไม่ใช่ชื่อ nnum แล้วหล่ะครับ ลองเช็คชื่อดีๆ

ผมได้ลองใส่ Public ในโมดูลแล้ว ก็ยังขึ้น #Name?
และผมลองเปลี่ยนจาก =BahtText([nnum]) เป็น =[nnum] ขึ้นค่าตัวเลขครับ

ให้ลองคอมไพล์ดูครับ เผื่อจะมีอะไรผิดพลาดในโค้ด ถ้าคอมไพล์ผ่านให้กด Ctrl-G มันจะแสดง Immediate Window ให้ป้อน ? BahtText(100) ดูว่ามันจะแสดงผลหรือไม่ ถ้าไม่แสดง แปลว่าชื่อ BahtText นี่ต้องสะกดอะไรผิดสักที่

รบกวนสอนวิธีคอมไพล์หน่อยได้ไหมครับ คือผมไม่ค่อยมีความรู้เรื่องนี้มากนัก :)
ขอบคุณครับ
แต่ผลลองกด Ctrl+G แล้ว พิมพ์?BahtText(100) แล้ว Enter
มันขึ้นฟ้องว่า
"The Macros in this project are disabled ..."

ผมลองคอมไพล์แล้วผ่านครับ ไม่มีอะไรเกิดขึ้น
และได้ลอง Ctrl+G แล้วพิมพ์ ?BahtText(100) มันฟ้องเหมือนเดิมข้างต้น