พยายามก็ยังไม่ได้ซักที ไม่รู้ว่าทำผิดตรงไหนค่ะ
เนื่องจาก ช่องผลรวมสุดท้ายได้ทำ แบบ Groub By
Format เป็นแบบ Standard
- ส่วนใน Text Box จำนวนเงินตัวอักษร ได้กำหนดเป็น Currency แล้ว
- ได้จัดทำในตัว Report และ Form ก็ไม่ได้ทั้งสองที่เลย
ใครก็ได้ช่วยหน่อยนะคะ

ขอบคุณมาก ทำสำเร็จแล้ว

เมื่อทดลองทำได้ แต่โปรแกรมมันฟ้องว่า โค้ดเป็น Debug
ตรงแถบ Hilight สีเหลือง จะต้องแก้ไขอย่างไรดีคะ

ใช้โค้ดตามด้านล่างนี้ค่ะ แล้วมี Debeg
Function BahtText(ByVal sNum)
Dim sNumber , sDigit , sDigit10
Dim nLen , sWord , sWord2
Dim sByte , I , J

sNumber = Array("", "หนึ่ง", "สอง", "สาม", "สี่", "ห้า", "หก", "เจ็ด", "แปด", "เก้า")
sDigit = Array("", "สิบ", "ร้อย", "พัน", "หมื่น", "แสน")
sDigit10 = Array("", "สิบ", "ยี่สิบ", "สามสิบ", "สี่สิบ", "ห้าสิบ", "หกสิบ", "เจ็ดสิบ", "แปดสิบ", "เก้าสิบ")
sNum = Replace(FormatNumber(sNum, 2), ",", "")
nLen = Len(sNum)

If sNum = ".00" Then BahtText = "ศูนย์"
For I = 1 To nLen - 3
J = (15 + nLen - I) Mod 6
sByte = Mid(sNum, I, 1)
If sByte <> "0" Then
If J = 1 Then sWord = sDigit10(sByte) Else sWord = sNumber(sByte) & sDigit(J)
BahtText = BahtText & sWord
End If
If J = 0 And I <> nLen - 3 Then BahtText = BahtText & "ล้าน": BahtText = Replace(BahtText, "หนึ่งล้าน", "เอ็ดล้าน")
Next
If Left(sNum, 1) = "1" Then BahtText = Replace(BahtText, "เอ็ดล้าน", "หนึ่งล้าน")
If Left(sNum, 2) = "11" Then BahtText = Replace(BahtText, "สิบหนึ่งล้าน", "สิบเอ็ดล้าน")
If Len(BahtText) > 0 Then BahtText = BahtText & "บาท"
If nLen > 4 Then BahtText = Replace(BahtText, "หนึ่งบาท", "เอ็ดบาท")
sNum = Right(sNum, 2)
If sNum = "00" Then
BahtText = BahtText & "ถ้วน"
Else
If Left(sNum, 1) <> "0" Then BahtText = BahtText & sDigit10(Left(sNum, 1))
If Right(sNum, 1) <> "0" Then BahtText = BahtText & sNumber(Right(sNum, 1))
BahtText = BahtText & "สตางค์"
If Left(sNum, 1) <> "0" Then BahtText = Replace(BahtText, "หนึ่งสตางค์", "เอ็ดสตางค์")
End If
End Function

ขอความกรุราช่วยบอกขั้นตอนแต่ละขั้นในการแปลงตัวเลขเป็นภาษาอังกฤษให้ด้วยเพราะทำไม่ป็นจริงๆ ขอบคุณ

อ่านดูก็ไม่น่าจะมีปัญหานะครับ
ลองตรวจดูในหัวข้อ Display When ของสิ่งที่ต้องการเปลี่ยนสีหรือยังครับ ว่าเป็น Always นะครับ ถ้าเป็น Screen Only ก็ให้เปลี่ยน

โทษทีครับ พิมพ์ผิดกระทู้

คุณอายจัง ทำจำเงินนวนเงินเป็นตัวหนังสือทำไงครับ

บังเอิญผ่านเข้ามา กำลังต้องการแปลงตัวเลขเป็นตัวหนังสือ แต่ยังทำไม่ได้เลยค่ะ

ฟังก์ชั่นของคุณ ฝน ที่ (R00831) หน้าแรกของกระทู้นี้ใช้ได้เลยครับ ผมทดสอบดูแล้ว