อยากให้แยกวรรครหัสสินค้าบนreportPOS



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

10 มิ.ย. 63 , 12:44:55
อ่าน 236 ครั้ง

SakDa

อยาก...บนบิลรายการสินค้าตอนนี้มีเพิ่มรหัสสินค้าคงสะดวกเปลี่ยนคืนสินค้า รอนานอยู่ถ้าต้องมีการบอกเลขบาร์โค้ด อยากให้เพื่อนโปรแกรมเมอร์แบ่งสัก 3 ตัวอักษร น่าจะง่ายต่อการใช้เลขโค้ดดังกล่าว แบ่งเป็น 3 3 3 4 ตอนยิงเข้ามันง่ายนะ ตอนออกพิมพ์ลงบนลัง บนบิลใบเสร็จ แยกวรรคให้หน่อย รวมถึงเลขชิปปิ้งด้วย ไม่วรรคก็ขอขีดเส้นใต้แบบเว้นก็ได้ ดำหนาเป็นช่วงก็ได้ .....ตอนเราจะใช้เลขดังกล่าวเราไม่มีบาร์ ไม่มีเครื่องยิง ประโยชน์เยอะ จนท พัสดุ ก็ต้องใช้บาร์ คนขายของก็ใช้เลขบาร์ แคชเชียร์ยิงบาร์ไม่ถึงก็ต้องบอกบาร์ ไร้สายก็ไม่มี คอยนาน เผื่ออาจารย์ พี่ๆในนี้อยู่แวดวงชิปปิ้ง เขียนโปรแกรมขาย เขียนให้คนในองค์กร ขอวรรคบนรายงาน

 

10 มิ.ย. 63 , 12:56:37
ตอบกลับ #1

PNR

: อยากให้แยกวรรครหัสสินค้าบนreportPOS
« ตอบกลับ #1 เมื่อ: 10 มิ.ย. 63 , 12:56:37 »
ลองนำไปทดสอบดูนะครับ

ขั้นตอนแรกสร้าง Module ขึ้นมา แล้วเอาโค้ดนี้ไปวาง
โค๊ด: [Select]
Function InsertSpace(strInput As String, n As Long) As String
Dim strTemp As String
Dim lngIndex As Long

For lngIndex = 1 To Len(strInput) Step n
strTemp = strTemp & " " & Mid$(strInput, lngIndex, n) 'ตรง " "   อยากให้กว้างกว่านี้อีกก็กด spacebar เพิ่มอีกได้
Next lngIndex
InsertSpace = Mid$(strTemp, 2)
End Function

ขั้นที่ 2 เวลาจะเรียกใช้กับ Field ไหน ยกตัวอย่าง ฟิวส์ POSID มีสตริงคือ 123456
         ให้ใส่ ประโยคนี้เข้าไปใน ControlSource ของ textbox ในรายงานได้เลย
         เช่น
       
โค๊ด: [Select]
=InsertSpace([POSID],1) '1 คือให้เว้นช่องทุก 1 ตัวอักษรนะครับ ถ้าอยากให้ แบ่งทุก 3 ตัวอักษรใส่เลข 3 แทนได้
       ที่รายงาน textbox ดังกล่างจะแสดงเป็น 1 2 3 4 5 6
       ไม่รู้ว่าอยากได้แบบนี้หรือไม่ ? ถ้าไม่ใช่อธิบายเพิ่มเติมมาอีกหน่อยนะครับผมยังไม่ค่อยเข้าใจโจทย์  :sweat: :sweat:
« แก้ไขครั้งสุดท้าย: 10 มิ.ย. 63 , 13:29:31 โดย PNR »
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: sakurahui


บอร์ดเรียนรู้ Access สำหรับคนไทย