1
ห้อง MS Access / : อยากให้คำสั่งตัดตัวอักษรตามเงือนไขครับ
« เมื่อ: 03 มี.ค. 66 , 12:41:38 »
ช่องว่างอยู่ทุกตำแหน่งไหมครับ หรือแบบ pattern เดียวกันคือปิดท้ายเท่านั้น
ลองใส่ code นี้ดู
Private Sub Command1_Click()
Dim SpacePos As Integer
SpacePos = InStr(1, Text0, " ")
If SpacePos = 0 Then 'ถ้าหาตำแหน่งช่องว่างไม่เจอ
Text1 = Left(Text0, 12) 'ตัดเอาแค่ด้านซ้ายมา 12 หลัก
Else 'ถ้าหาตำแหน่งช่องว่างเจอ
Text1 = Left(Text0, 10) 'ให้ตัดแค่ด้านซ้ายมา 10 หลัก
End If
End Sub
***หมายเหตุ*** บนฟอร์มกำหนด ค่า text0 เพื่อกรอก text1 เพื่อแสดงผล/Command1 ใช้คลิกและใส่ code
ลองใส่ code นี้ดู
Private Sub Command1_Click()
Dim SpacePos As Integer
SpacePos = InStr(1, Text0, " ")
If SpacePos = 0 Then 'ถ้าหาตำแหน่งช่องว่างไม่เจอ
Text1 = Left(Text0, 12) 'ตัดเอาแค่ด้านซ้ายมา 12 หลัก
Else 'ถ้าหาตำแหน่งช่องว่างเจอ
Text1 = Left(Text0, 10) 'ให้ตัดแค่ด้านซ้ายมา 10 หลัก
End If
End Sub
***หมายเหตุ*** บนฟอร์มกำหนด ค่า text0 เพื่อกรอก text1 เพื่อแสดงผล/Command1 ใช้คลิกและใส่ code
โพสต์นี้ได้รับคำขอบคุณจาก: yot