1. สร้าง Query ตามนี้ครับ

SELECT
InStr(1,[FoxAddress],"ADD1") AS ADD1Start
, InStr([ADD1Start]+1,[FoxAddress],"ADD1") AS ADD1End
, Mid([FoxAddress],Len("ADD1")+[ADD1Start],[ADD1End]-[ADD1Start]-Len("ADD1")) AS ADD1
, InStr(1,[FoxAddress],"ADD2") AS ADD2Start
, InStr([ADD2Start]+1,[FoxAddress],"ADD2") AS ADD2End
, Mid([FoxAddress],Len("ADD2")+[ADD2Start],[ADD2End]-[ADD2Start]-Len("ADD2")) AS ADD2
, InStr(1,[FoxAddress],"TEL") AS TELStart
, InStr([TELStart]+1,[FoxAddress],"TEL") AS TELEnd
, Mid([FoxAddress],Len("TEL")+[TELStart],[TELEnd]-[TELStart]-Len("TEL")) AS TEL
, InStr(1,[FoxAddress],"FAX") AS FAXStart,
InStr([FAXStart]+1,[FoxAddress],"FAX") AS FAXEnd
, Mid([FoxAddress],Len("FAX")+[FAXStart],[FAXEnd]-[FAXStart]-Len("FAX")) AS FAX
FROM tb_Fox


ขอบคุณครับ คุณPichaiTc พอเห็นภาพแล้วน่าจะทำได้ครับ

ยังไงฝากข้อ 2 ด้วยนะครับ ฝาก อ. และผู้รู้ด้วยนะครับ
(ถ้าให้ต้องพิมพ์ใหม่คงไม่ไหว เพราะข้อมูลเก็บมานานกว่า 10ปีแล้ว ยังใช้ dos อยู่เลย)

2. สร้าง table ใหม่ ตามโครงสร้างนี้
DiscountID Long
DiscountSeq Long
DiscountRate Single

เขียน code วน Loop เพื่อตัด string โดยดูจาก +
เพื่อ insert ลง table ที่สร้างไว้

ตัวอย่างข้อมูล
DiscountID - DiscountSeq - DiscountRate
1 - 1 - 0.5 (= 50%)
1 - 2 - 0.1 (= 10%)
1 - 3 - 0.03 (= 3%)
1 - 4 - 100

เวลาใช้งาน
เลือกใช้โดย Where DiscountID = เงื่อนไขที่ต้องการ
คำนวณเรียงตาม DiscountSeq
คำนวณค่าโดย
If DiscountRate < 1 then
Discount = Amount * DiscountRate
Else
Discount = DiscountRate
End If

ขอบคุณ คุณ pichaiTc อีกครั้ง พอดีพยายามอยู่นานเหมือนกันครับ
ได้ code มาตามนี้ เอามาแชร์กันครับ
แต่ต้องไปทำในฟอร์ม

Private Sub Form_Current()
Dim MemDisc As Double
Dim MemStartPoint As Integer
Dim MemEndPoint As Integer

TxtUnitPrice = [PRICE]

MemStartPoint = 1


If IsNull([DISCSTR]) Then

Else

    If (InStr([MemStartPoint], [DISCSTR], "%")) = 0 Then
        If [MemStartPoint] > Len([DISCSTR]) Then
              
        Else
       
            MemDisc = Mid([DISCSTR], [MemStartPoint], Len([DISCSTR]) - ([MemStartPoint] - 1))
            TxtUnitPrice = TxtUnitPrice - MemDisc
       
        End If
        Exit Sub
    
    Else

        MemEndPoint = InStr([MemStartPoint], [DISCSTR], "%")
        MemDisc = Mid([DISCSTR], [MemStartPoint], ([MemEndPoint] - [MemStartPoint]))
       
        TxtUnitPrice = TxtUnitPrice * (1 - (MemDisc / 100))
    
    End If


    MemStartPoint = MemEndPoint + 1

    Do Until [MemStartPoint] > Len([DISCSTR])

    If IsNull([DISCSTR]) Then
    
    Else
    
        If (InStr([MemStartPoint], [DISCSTR], "%")) = 0 Then
            If [MemStartPoint] > Len([DISCSTR]) Then
                    
            Else
            
               MemDisc = Mid([DISCSTR], [MemStartPoint], Len([DISCSTR]) - ([MemStartPoint] - 1))
               TxtUnitPrice = TxtUnitPrice - MemDisc
            
            End If
            Exit Sub
    
        Else
       
            MemEndPoint = InStr([MemStartPoint], [DISCSTR], "%")
            MemDisc = Mid([DISCSTR], [MemStartPoint] + 1, ([MemEndPoint] - ([MemStartPoint] + 1)))
            
            TxtUnitPrice = TxtUnitPrice * (1 - (MemDisc / 100))
       
        End If
    End If
    
    MemStartPoint = MemEndPoint + 1

    Loop
End If
End Sub

สามารถจะทำส่วนลดเป็น%ได้เรื่อย แต่ส่วนลดเป็นบาทจะอยู่ท้ายสุดได้ครั้งเดียว