Report : ผมมี Field รหัสสินค้า ประมาณ 27 digi อยากออก Report 4 digi แล้วมี "-" คั้น
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 226   2
URL.หัวข้อ / URL
Report : ผมมี Field รหัสสินค้า ประมาณ 27 digi อยากออก Report 4 digi แล้วมี "-" คั้น

หายไปนานเลยครับ ตอนนี้ถูกส่งไปอยู่บริษัทลูกค้าที่ระยอง
คือว่า ลูกค้าของผม มีรหัส 27 digi เป็นตัวอักษร ปนกับ ตัวเลข
เวลาดูใน Report ตาลาย เลยครับ
เช่น ad15255Avss1253654858995123
ผมเลยอยากให้ Show เป็น ad15-255A-vss1-2536-5485-8995-123
รบกวน อ.สุภาพ และ อ.BADMAN ด้วยครับ
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี

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

1 @R03589
ลองฟังก์ชันนี้ครับ

Function fAddDash(strText As String) As String
Dim I As Byte, X As Byte, strDash As String
X = 0
For I = 1 To Len(strText)
If X = 4 Then
strDash = "-"
X = 0
Else
strDash = ""
End If
fAddDash = fAddDash & strDash & Mid(strText, I, 1)
X = X + 1
Next I
End Function

การทดสอบการใช้งาน

? fAddDash("ad15255Avss1253654858995123")
ad15-255A-vss1-2536-5485-8995-123

การนำไปใช้

ให้สร้าง Text Box เปล่าขึ้นมา 1 อัน เพื่อแสดงรหัสที่มีเครื่องหมาย - นี้
แล้วใส่ตรงช่อง Control Source เป็น

=fAddDash([ชื่อTextBoxที่แสดงรหัสจริง])

2 @R03607
แก้ปัญหาได้แล้วครับ
ขอบพระคุณ อ.สุภาพ มากๆ ครับ
Suchat
ชลบุรี
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0624s