@ ประกาศใช้งานเว็บบอร์ดใหม่คลิกลิ้งได้ที่โลโก้ ไท.Access หรือกด --> บอร์ดเรียนรู้ Access สำหรับคนไทย 
โพสต์ถาม,ตอบที่บอร์ดใหม่ แล้วจะใส่ลิ้งอ้างมาที่บอร์ดนี้หรือไม่ก็ตามสะดวกครับ


Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย


Back to Board : Thai Access Webboard
แปลงตัวเลขเป็นตัวอักษร

Topic by Message Posted : on : 4/8/2553 7:54:20
สำนึกดี  สร้าง function ตามนี้ครับ

Public Function BahtText(A As Variant)
On Error Resume Next
BahtText = "( " & Excel.WorksheetFunction.BahtText(A) & " )"
End Function

ประมาณนี้ครับผม

39 Reply in this Topic. Dispaly 2 pages and you are on page number 1

Reply by Message on : 4/8/2553 8:10:06
สำนึกดี
(R06266)

อย่าลืม

tool--> References

                            --> Microsoft Excel 11.0 Object Library
Back to Top
Reply by Message on : 4/9/2553 16:07:18
เด็กใหม่
(R06528)
ทำแล้วขึ้น #name? ครับ ไม่ทราบว่าเกิดอะไรขึ้นครับ
Back to Top
Reply by Message on : 4/9/2553 16:32:41
เด็กใหม่
(R06529)
พอเอา function Bahttext ไปใช้ใน Report (ป้ายผนึก) มันฟ้องขึ้นกรอบว่า ใส่ค่าพารามิเตอร์ "ฺBahttext"
Back to Top
Reply by Message on : 4/9/2553 21:00:37
yeadram
(R06530)
แจ้งคุณ เด็กใหม่ เพิ่มเติมครับ
1 ฟังก์ชั่นที่คุณ สำนึกดี ให้มา คุณต้องเอาไปวางในโมดูลเท่านั้นนะ ห้ามวางในฟอร์มหรือรายงาน
2 โมดูลที่ว่านี้ จะสร้างขึ้นมาใหม่หรือ แค่เอาฟังก์ชั่นนี้ไปฝากวางกับโมดูลอื่นๆ ก็ได้ แต่ต้องเป็น Module เท่านั้น
3 ในไฟล์ Access ของคุณ 1 ไฟล์ อนุญาตให้วางฟังก์ชั่นนี้ได้แค่ ที่เดียวเท่านั้น (จะวางในโมดูลใดๆ ก็ได้ แต่ต้อง .. วางแล้ววางเลย ห้ามวางซ้ำในโมดูลอื่นๆ อีก)
4 ห้ามตั้งชื่อ object อื่นๆ (ชื่อตาราง ชื่อคิวรี่ ชื่อฟอร์ม ชื่อรายงาน ชื่อแมคโคร ชื่อโมดูล) ว่า BahtText
5 อย่าลืมอ้างอิงไลบรารี่ ตามที่คุณสำนึกดีแนะนำในความเห็นที่ R06266
Back to Top
Reply by Message on : 5/9/2553 21:22:39
Doraemon
(R06540)
กำลังอยากได้เหมือนกันครับ โค๊ด วีบีเอ ที่ใช้แปลงเป็นตัวอักษรภาษาอังกฤษนะครับ
ลองค้นในบอร์ดแล้วเอาไปใส่มันฟ้องว่า โค็ดผิดครับ ไม่รู้จะแก้ยังไง มีแบบที่ใช้ได้แน่ๆบ้างไหมครับ ต้องการด่วนมากเลย ทำโปรแกรมอยู่เกี่ยวกับการออกเอกสารบัญชีครับ
Back to Top
Reply by Message on : 5/9/2553 21:45:08
เด็กใหม่
(R06542)
ผมลองทำตามข้อ 1-5 แล้วครับ แต่ยังไม่ได้เลยครับ ไม่รู้ว่าจะเช็คที่ตรงไหนได้อีกครับ
ผมจะใช้อ้างอิง Function นี้ใน ฟอร์มใบส่งของ และใช้ในป้ายผนึกติดที่สินค้าที่จะส่ง
ผมมีโมดูลเดียวครับ BahtText
Access ที่ใช้เป็น 2007

รบกวนอีกทีครับ
ขอบคุณครับ :)
Back to Top
Reply by Message on : 5/9/2553 22:03:57
เด็กใหม่
(R06543)
ชื่อโมดูลผมตั้งว่า M-BahtText ภายในผม copy ตามคุณสำนึกดี ข้างต้นครับ
Back to Top
Reply by Message on : 6/9/2553 1:24:40
สันติสุข
(R06545)
ลองอันนี้ http://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=162
Back to Top
Reply by Message on : 6/9/2553 9:38:55
Doraemon
(R06547)
ขอบคุณครับ ท่านอาจารย์สันติสุข

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


Back to Top
Reply by Message on : 6/9/2553 13:00:15
สันติสุข
(R06548)
แน่ใจนะครับว่า คอมไพล์แล้วผ่าน ถ้าเป็นอย่างนั้น ให้ลองทำ Compact and Repaor Database ก่อน แล้วดูว่ายังเกิดปัญหาอีกหรือไม่ ถ้ายังเกิด ให้ทำ Decompile อีกที http://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=128 ถ้ายังเกิด ลองสร้างฐานข้อมูลเปล่าตัวใหม่แล้วลองเอาฟังก์ชั่นแปลงตัวเลขไปใช้ในฐานข้อมูลใหม่ดู ผมว่ามันน่าจะใช้ได้นะ
Back to Top
Reply by Message on : 6/9/2553 21:27:07
เด็กใหม่
(R06550)
ผลลองใช้ Function ตามคุณสันติสุข (R06545) แล้วครับ แต่ได้ผลเหมือนเดิมครับ
ไม่รู้ผลทำอะไรผิดไปหรือเปล่า
รบกวนอีกทีครับ
ขอบคุณครับ :)
Back to Top
Reply by Message on : 6/9/2553 21:36:29
สันติสุข
(R06551)
คุณเด็กใหม่ทำอะไรไปแล้วบ้าง ทั้งในโมดูลและในตัว Report กำหนดอะไร ค่าอะไร เล่ารายละเอียดมาหน่อยครับ
Back to Top
Reply by Message on : 6/9/2553 23:52:57
เด็กใหม่
(R06552)
ตอนนี้โมดูล มี 1 อัน M-Bahttext โดย copy จาก R00784

ผมใช้ Function Bahttext ใน Form ใบส่งของ
ใบส่งของทำจาก 2 Form
form หลักเป็นหัวใบส่งของ
form ย่อยเป็นรายละเอียดสินค้า ราคา ยอดรวม
ผมรวมยอดรวมต่อ order ไว้ ตั้งชื่อ "nnum"
ผมใช้ Function ว่า =bahttext([nnum]) กำหนดไว้ใน Form ย่อย
Back to Top
Reply by Message on : 6/9/2553 23:57:45
เด็กใหม่
(R06553)
อีกอันผมใช้ function bahttext ใน Report ป้ายผนึกสินค้า ที่ดึงข้อมูลจาก Query อีกอัน
Back to Top
Reply by Message on : 7/9/2553 0:21:06
เด็กใหม่
(R06554)
ยอดรวมในกรอบ "nnum" ผมกำหนดไว้ในส่วนท้ายของ form ย่อย
ื[nnum] รวมข้อมูลจาก =[AmountTotal]+[VatTotal]
Back to Top
Reply by Message on : 7/9/2553 1:42:42
สันติสุข
(R06555)
มันยังขึ้น #name? ใช่ไหม ถ้าใช่ ให้ลองเติมคำว่า Public หน้าฟังก์ชั่น BahtText ในโมดูล ก็จะได้เป็น

Public Function BahtText(InputCurrency As Currency) As String

ถ้าเติมแล้ว ยังขึ้น #name? อีก ให้คุณลองเปลี่ยนจาก =bahttext([nnum]) ไปเป็น =[nnum] เฉยๆดู ถ้ายังไม่ได้ ก็แปลว่า อาจไม่ใช่ชื่อ nnum แล้วหล่ะครับ ลองเช็คชื่อดีๆ
Back to Top
Reply by Message on : 7/9/2553 2:03:15
เด็กใหม่
(R06556)
ผมได้ลองใส่ Public ในโมดูลแล้ว ก็ยังขึ้น #Name?
และผมลองเปลี่ยนจาก =BahtText([nnum]) เป็น =[nnum] ขึ้นค่าตัวเลขครับ

Back to Top
Reply by Message on : 7/9/2553 2:15:00
สันติสุข
(R06557)
ให้ลองคอมไพล์ดูครับ เผื่อจะมีอะไรผิดพลาดในโค้ด ถ้าคอมไพล์ผ่านให้กด Ctrl-G มันจะแสดง Immediate Window ให้ป้อน ? BahtText(100) ดูว่ามันจะแสดงผลหรือไม่ ถ้าไม่แสดง แปลว่าชื่อ BahtText นี่ต้องสะกดอะไรผิดสักที่

Back to Top
Reply by Message on : 7/9/2553 2:26:25
เด็กใหม่
(R06558)
รบกวนสอนวิธีคอมไพล์หน่อยได้ไหมครับ คือผมไม่ค่อยมีความรู้เรื่องนี้มากนัก :)
ขอบคุณครับ
แต่ผลลองกด Ctrl+G แล้ว พิมพ์?BahtText(100) แล้ว Enter
มันขึ้นฟ้องว่า
"The Macros in this project are disabled ..."
Back to Top
Reply by Message on : 7/9/2553 2:47:43
เด็กใหม่
(R06559)
ผมลองคอมไพล์แล้วผ่านครับ ไม่มีอะไรเกิดขึ้น
และได้ลอง Ctrl+G แล้วพิมพ์ ?BahtText(100) มันฟ้องเหมือนเดิมข้างต้น
Back to Top
Page:   1 2 Next >>

                              @ ประกาศใช้งานเว็บบอร์ดใหม่คลิกลิ้งได้ที่โลโก้ ไท.Access หรือกด --> บอร์ดเรียนรู้ Access สำหรับคนไทย                              
โพสต์ถาม,ตอบที่บอร์ดใหม่ แล้วจะใส่ลิ้งอ้างมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ


Sorry, you can NOT post a reply.
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++