กระทู้เก่าบอร์ด อ.Yeadram
2,476 7
URL.หัวข้อ /
URL
TextBath กับ Access97
คือผมใช้ Access97 แล้วต้องการ แปลงตัวเลข เป็นตัวอักษร ลองค้นหาฟังค์ชั่นใน google ดูแล้ว ก็มีมากมายหลายที่ ทั้ง โค้ด NumToText NumToString Textbath
แต่ก็ยังไม่ได้ บางท่านก็อธิบายขั้นตอนมาอย่างละเอียด บางท่านก็มีโค้ดมาให้ บางโค้ด บางคำแนะนำ ก็มาจากเว็บแห่งนี้แหละครับ ผมก็ขอขอบคุณผู้ให้ความรู้เหล่านั้นทุกท่าน แต่ผมก็ทดลองทำดูแล้วแต่ก็ไม่สำเร็จ ไม่ทราบว่า access97 จะสามารถทำได้หรือเปล่าครับ ความรู้เกี่ยวกับ access ก็ขั้นต้น ไม่ถึงขั้นมืออาชีพ อยากรบกวนท่านผู้รู้ ทั้งหลายช่วยแนะนำ ขั้นตอน ที่ถูกต้องให้ด้วยครับ ข้อมูลคร่าว ๆ ก็คือ ข้อมูลตัวเลขของผมเป็น currency ต้องการให้แสดงใน report ไม่จำเป็นต้องบันทึกลง table มึนตึ้บมาหลายวันแล้วครับ เลยต้องเข้ามารบกวน ขอบคุณล่วงหน้าครับ
แต่ก็ยังไม่ได้ บางท่านก็อธิบายขั้นตอนมาอย่างละเอียด บางท่านก็มีโค้ดมาให้ บางโค้ด บางคำแนะนำ ก็มาจากเว็บแห่งนี้แหละครับ ผมก็ขอขอบคุณผู้ให้ความรู้เหล่านั้นทุกท่าน แต่ผมก็ทดลองทำดูแล้วแต่ก็ไม่สำเร็จ ไม่ทราบว่า access97 จะสามารถทำได้หรือเปล่าครับ ความรู้เกี่ยวกับ access ก็ขั้นต้น ไม่ถึงขั้นมืออาชีพ อยากรบกวนท่านผู้รู้ ทั้งหลายช่วยแนะนำ ขั้นตอน ที่ถูกต้องให้ด้วยครับ ข้อมูลคร่าว ๆ ก็คือ ข้อมูลตัวเลขของผมเป็น currency ต้องการให้แสดงใน report ไม่จำเป็นต้องบันทึกลง table มึนตึ้บมาหลายวันแล้วครับ เลยต้องเข้ามารบกวน ขอบคุณล่วงหน้าครับ
7 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R02946
เมื่อกี้แวะไปดู ที่ อ.สุภาพ ทำไว้ ไปเจอ วิธีการเขียนใน WORD
ด้วย แบบนี้ {=45.78 \*bahttext} ผมทึ่งอาจารย์ จริงๆ
ได้ความรู้เพิ่มอีกอย่าง ใครสนใจลองเข้าไปดูนะครับ
ด้วย แบบนี้ {=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
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 แล้วก็ท่าน จารย์คิว มากๆ ครับ
ที่ช่วยแนะนำ
------ สังคมมีน้ำใจ อะไร ๆ ก็ดีขึ้น ------
ขอบคุณท่าน krathok-man แล้วก็ท่าน จารย์คิว มากๆ ครับ
ที่ช่วยแนะนำ
------ สังคมมีน้ำใจ อะไร ๆ ก็ดีขึ้น ------
5 @R06597
ข้อมูลเป็นตัวเลขรวมอยู่ใน report เช่น Sum ลงมาแล้วเป็นตัวเลขจะให้มาออกอีก บรรทัดเป็นตัวหนังสือทำอย่างไรคะทำไม่เป็น ขอรบกวนท่านผู้รู้ทั้งหลายด้วยค่ะ
=Sum([ราคาจ่าย1]) เป็นตัวเลข
แล้วอยากจะมีอีกช่องเปลี่ยนตัวเลขเป็นตัวหนังสือ
ขอบคุณมากค่ะหนูงงอยู่ทำงานส่งนายไม่ได้เลย
=Sum([ราคาจ่าย1]) เป็นตัวเลข
แล้วอยากจะมีอีกช่องเปลี่ยนตัวเลขเป็นตัวหนังสือ
ขอบคุณมากค่ะหนูงงอยู่ทำงานส่งนายไม่ได้เลย
6 @R06598
อ้อลืมบอกe-mailค่ะเนื่องจากเปิด net บ่อยไม่ค่อยได้ฝารบกวนพี่ ๆ ผู้ใจดีส่งความรู้มาให้หนูหน่อยนะค่ะที่ buknuth@hotmail.com
7 @R06601
สร้าง TextBox เปล่าอีก 1 อัน
เขียนว่า =TEXTBATH([BATH])
***TEXTBATH เป็นชื่อ Function ได้มาอย่างไร อ่านข้างบน
***[BATH] เป็นชื่อ Textbox ที่ =Sum([ราคาจ่าย1])
หรือคุณใช้ชื่ออื่น ก็ให้เปลี่ยนตามชื่อที่คุณสร้างไว้
เขียนว่า =TEXTBATH([BATH])
***TEXTBATH เป็นชื่อ Function ได้มาอย่างไร อ่านข้างบน
***[BATH] เป็นชื่อ Textbox ที่ =Sum([ราคาจ่าย1])
หรือคุณใช้ชื่ออื่น ก็ให้เปลี่ยนตามชื่อที่คุณสร้างไว้
Time: 0.3719s
มันใช้ Function ในที่นี้นิยมไว้ใน MODULE เพราะเรียกใช้ง่ายเมื่อต้องการ
ประเด็นที่น่าสังเกต คือ เรียกใช้มันเป็นหรือเปล่า
ส่วน CODE ก็หาจากใน NET มีเยอะอย่างที่ว่า
สมมุติ Function ชื่อ TEXTBATH
การเรียกใช้ ก็ประมาณ =TEXTBATH([BATH])
โดย BATH เป็น TEXTBOX หรือค่าที่เก็บตัวเลขไว้
ลองดูครับ