TextBath กับ Access97
กระทู้เก่าบอร์ด อ.Yeadram

 2,472   7
URL.หัวข้อ / URL
TextBath กับ Access97

คือผมใช้ Access97 แล้วต้องการ แปลงตัวเลข เป็นตัวอักษร ลองค้นหาฟังค์ชั่นใน google ดูแล้ว ก็มีมากมายหลายที่ ทั้ง โค้ด NumToText   NumToString   Textbath
แต่ก็ยังไม่ได้   บางท่านก็อธิบายขั้นตอนมาอย่างละเอียด บางท่านก็มีโค้ดมาให้ บางโค้ด บางคำแนะนำ ก็มาจากเว็บแห่งนี้แหละครับ ผมก็ขอขอบคุณผู้ให้ความรู้เหล่านั้นทุกท่าน แต่ผมก็ทดลองทำดูแล้วแต่ก็ไม่สำเร็จ ไม่ทราบว่า access97 จะสามารถทำได้หรือเปล่าครับ     ความรู้เกี่ยวกับ access ก็ขั้นต้น     ไม่ถึงขั้นมืออาชีพ อยากรบกวนท่านผู้รู้ ทั้งหลายช่วยแนะนำ    ขั้นตอน ที่ถูกต้องให้ด้วยครับ        ข้อมูลคร่าว ๆ ก็คือ ข้อมูลตัวเลขของผมเป็น currency ต้องการให้แสดงใน report ไม่จำเป็นต้องบันทึกลง table        มึนตึ้บมาหลายวันแล้วครับ เลยต้องเข้ามารบกวน ขอบคุณล่วงหน้าครับ

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

1 @R02945
มันไม่เกี่ยวกับ Access Version ไหน นะครับ
มันใช้ Function ในที่นี้นิยมไว้ใน MODULE เพราะเรียกใช้ง่ายเมื่อต้องการ
ประเด็นที่น่าสังเกต คือ เรียกใช้มันเป็นหรือเปล่า
ส่วน CODE   ก็หาจากใน NET มีเยอะอย่างที่ว่า
สมมุติ Function ชื่อ TEXTBATH
การเรียกใช้ ก็ประมาณ =TEXTBATH([BATH])
โดย BATH เป็น TEXTBOX หรือค่าที่เก็บตัวเลขไว้
ลองดูครับ
2 @R02946
เมื่อกี้แวะไปดู ที่ อ.สุภาพ ทำไว้ ไปเจอ วิธีการเขียนใน WORD
ด้วย แบบนี้ {=45.78 \*bahttext}   ผมทึ่งอาจารย์ จริงๆ
ได้ความรู้เพิ่มอีกอย่าง ใครสนใจลองเข้าไปดูนะครับ
3 @R02955
ลองใช้ตัวนี้นะครับ ใช้เหมือน Excel นะครับ

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


ตัวอย่างการใช้นะครับ

bahttext([Amount])

ติดต่อผมได้นะครับ kingjun_o@hotmail.com
4 @R02970
ทำได้แล้วครับ

ขอบคุณท่าน krathok-man แล้วก็ท่าน จารย์คิว มากๆ ครับ

ที่ช่วยแนะนำ

------ สังคมมีน้ำใจ อะไร ๆ ก็ดีขึ้น ------
5 @R06597
ข้อมูลเป็นตัวเลขรวมอยู่ใน report เช่น Sum ลงมาแล้วเป็นตัวเลขจะให้มาออกอีก บรรทัดเป็นตัวหนังสือทำอย่างไรคะทำไม่เป็น ขอรบกวนท่านผู้รู้ทั้งหลายด้วยค่ะ
=Sum([ราคาจ่าย1]) เป็นตัวเลข
แล้วอยากจะมีอีกช่องเปลี่ยนตัวเลขเป็นตัวหนังสือ
ขอบคุณมากค่ะหนูงงอยู่ทำงานส่งนายไม่ได้เลย
6 @R06598
อ้อลืมบอกe-mailค่ะเนื่องจากเปิด net บ่อยไม่ค่อยได้ฝารบกวนพี่ ๆ ผู้ใจดีส่งความรู้มาให้หนูหน่อยนะค่ะที่ buknuth@hotmail.com
7 @R06601
สร้าง TextBox เปล่าอีก 1 อัน
เขียนว่า =TEXTBATH([BATH])
***TEXTBATH เป็นชื่อ Function ได้มาอย่างไร อ่านข้างบน
***[BATH] เป็นชื่อ Textbox ที่ =Sum([ราคาจ่าย1])
หรือคุณใช้ชื่ออื่น ก็ให้เปลี่ยนตามชื่อที่คุณสร้างไว้
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2421s