ถ้าเป็นแบบนี้จะต้องทำอย่างไร
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 243   2
URL.หัวข้อ / URL
ถ้าเป็นแบบนี้จะต้องทำอย่างไร

สมมติ ผมมี Code Product 2 ตัวคือ 100034 และ 100034E ถ้าผมต้องการตัวเลขตัวสุดท้ายของข้อมูลซึ่งทำหน้าที่เป็นตัวบอกประเภทของข้อมูล คือ 4 ซึ่งเป็นคำตอบที่ผมต้องการ ผมจะต้องทำอย่างไรครับ และถ้าข้อมูลอีกตัวหนึ่งซึ่งมีตัว E อยู่ด้านหลังแต่คำตอบที่ต้องการก็คือ 4 เช่นกันผมจะต้องทำอย่างไรครับ ขอบคุณมากครับ

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

1 @R05412
1. ตรวจสอบข้อมูลก่อนว่ามีกี่ตัวอักษร โดยใช้คำสั่ง Len()
เช่น
Dim DigiCount as Long
DigiCount = Len([Text0])

2. ถ้ามี 6 ตัวอักษร ก็หาเลข 4 ได้โดยใช้คำสั่ง Right()
3. ถ้ามี 7 ตัวอักษร ก็หาเลข 4 ได้โดยใช้คำสั่ง Mid()

Select Case DigiCount
Case 6
Msgbox Right([Text0],1)
Case 7
Msgbox Mid([Text0],6,1)
Case Else
Msgbox "Sorry.!!"
End Select
2 @R05417
ทำได้แล้วครับ ขอบคุณมากครับคุณ BADMan
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0518s