Access資料庫的欄位裡頭的內容分割成兩欄

Question

我要將Access資料庫的欄位裡頭的內容分割成兩欄
例如:
欄位1
90元/kg
250元/桶
缺貨
一百多元/kg


要將欄位裡有"元/*"的內容要分割成兩部份分別放在欄位2與欄位3
, 但是不要將沒有"元/*"的欄位分割.
欄位2 ________欄位3
90___________元/kg
250__________元/桶
一百多________元/kg

請問要如何做? 請詳細說明步驟.

感謝Pop解答, 你說如果 欄位1 有不包含"元"的資料值_請更新小部份, 請問是更新哪一個部份? 我插入了你所說要更新的部份, 但是結果卻沒變.
是否給我完整的, 我就不用去猜要插在哪一部份了.

也感謝iam_1_001的回覆, 請問你所說的書是哪一家出版社的? 作者是誰? 書名就叫"學貫行銷_實戰問答"嗎?

請問Pop
我照你的方式copy進去, 可是結果跟原來一樣, 那就是沒有"元"的只會複製到欄位2, 欄位3則空白. 例如最後會變成..
欄位1------欄位2-------欄位3
182元/kg-----182--------元/kg
缺貨----------缺貨--------
請問用您的方式是要造成什麼結果?

Answer 1

1:假設資料表名稱_ 資料表1
2:開啟一個表單設計檢視_工具拖曳一個指令按鈕 名稱 command 1
3: 在command 1 的 on click 輸入:
dim y as dao.recordset
set y=currentdb.openrecordset("資料表1")
if y.recordcount then
y.movefirst
for t=1 to y.recordcount
J = y("欄位1")
E = Split(J, "元")
H1 = E(0)
y.edit
y("欄位2")=H1
y("欄位3")=Right(J, Len(J) - Len(H1))
y.update
y.movenext
next
end if
set y=nothing

2007-02-08 12:02:53 補充：
如果 欄位1 有不包含"元"的資料值_請更新小部份如下
J = y("欄位1")
If InStr(J,"元") > 0 Then
E = Split(J, "元")
H1 = E(0)
ELSE
H1=J
END IF
y.edit__以下不更改

2007-02-13 08:31:37 補充：
dim y as dao.recordset
set y=currentdb.openrecordset("資料表1")
if y.recordcount then
y.movefirst
for t=1 to y.recordcount
J = y("欄位1")
If InStr(J,"元") > 0 Then
E = Split(J, "元")
H1 = E(0)
ELSE
H1=J
END IF
接...

2007-02-13 08:33:27 補充：
y.edit
y("欄位2")=H1
y("欄位3")=Right(J, Len(J) - Len(H1))
y.update
y.movenext
next
end if
set y=nothing
以上希望有幫上忙.

2007-02-13 22:34:37 補充：
1:我的方式是:
欄位1------欄位2-------欄位3
182元/kg-----182--------元/kg
以上的答案(我自己有試過).這不是你第一次要的答案嗎?
2:sorry_你所謂的 缺貨----------缺貨--------
2.1:如果 缺貨是在同一資料表

2007-02-13 22:35:02 補充：
dim y as dao.recordset
set y=currentdb.openrecordset("資料表1")
if y.recordcount then
y.movefirst
for t=1 to y.recordcount
J = y("欄位1")
If InStr(J,"元") > 0 Then
E = Split(J, "元")
H1 = E(0)
ELSE
H1=J
END IF
接...

2007-02-13 22:38:44 補充：
x = y("缺貨")
If InStr(x,"元") > 0 Then
U = Split(x, "元")
U1 = U(0)
ELSE
U1=x
END IF

2007-02-13 22:40:55 補充：
接
y.edit
y("欄位2")=H1
y("欄位3")=Right(J, Len(J) - Len(H1))
y("缺貨2")=U1
y("缺貨3")=Right(x, Len(x) - Len(U1))
y.update
y.movenext
next
end if
set y=nothing

2007-02-13 22:45:41 補充：
以上.因你沒有說明缺貨欄位的架構.所以缺貨作答是假設性.
如果缺貨不是同一個資料表.則更改資料表名稱與欄位名稱就好了.

Answer 2

1:買一本學貫行銷_實戰問答
2:在第七章有詳細解說.