กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
279 2
URL.หัวข้อ /
URL
Report : ผมมี Field รหัสสินค้า ประมาณ 27 digi อยากออก Report 4 digi แล้วมี "-" คั้น
หายไปนานเลยครับ ตอนนี้ถูกส่งไปอยู่บริษัทลูกค้าที่ระยอง
คือว่า ลูกค้าของผม มีรหัส 27 digi เป็นตัวอักษร ปนกับ ตัวเลข
เวลาดูใน Report ตาลาย เลยครับ
เช่น ad15255Avss1253654858995123
ผมเลยอยากให้ Show เป็น ad15-255A-vss1-2536-5485-8995-123
รบกวน อ.สุภาพ และ อ.BADMAN ด้วยครับ
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี
คือว่า ลูกค้าของผม มีรหัส 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
2 @R03607
แก้ปัญหาได้แล้วครับ
ขอบพระคุณ อ.สุภาพ มากๆ ครับ
Suchat
ชลบุรี
ขอบพระคุณ อ.สุภาพ มากๆ ครับ
Suchat
ชลบุรี
Time: 0.1242s
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ที่แสดงรหัสจริง])