- 帖子
- 61
- 主題
- 7
- 精華
- 0
- 積分
- 72
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-11-4
- 最後登錄
- 2015-9-16
|
在型號欄位的AfterUpdate事件, 撰寫程式.
大約如下: (使用DAO)
dim str_Num as string
str_Num = left(me.型號,3)
dim rs as recordset
set rs = currentdb.openrecordset("Select 品名 from 品名代碼 Where 代碼 = '" & str_Num & "'", dbopensnapshot)
if rs.recordcount <> 0 then
me.品名代碼 = rs("品名")
end if
以上程式, 參考看看. |
|
發表於 2014-11-4 14:31
| 