ACCESS要如何集體增加某欄位中的資料

Question

ACCESS要如何集體增加某欄位中的資料
如下圖: 我要如何畫面1變成畫面2

圖片參考：http://img180.imageshack.us/img180/310/438323712iw.gif

帳號那個欄位要全部都增加 @gmail.com

Answer 1

1:到表單_開啟一個新的設計檢視_由工具_拖曳一個指令按鈕
2:在該按鈕ON_CLICK 輸入
DIM N AS DAO.RECORDSET
SET N=CURRENTDB.OPENRECORDSET("高雄賣家")
IF N.RECORDCOUNT THEN
N.MOVEFIRST
FOR T=1 TO N.RECORDCOUNT
N.EDIT
IF N("帳號")<>"" THEN
N("帳號")=N("帳號") & "@gmail.com"
END IF
N.UPDATE
N.MOVENEXT
NEXT
END IF
N.CLOSE
SET N=NOTHING