返回列表 上一主題 發帖

[發問] access 資料自動帶入

thisisjames

帖子
4 
主題
3 
精華
0 
積分
12 
點名
0  
作業系統
W7 
軟體版本
office2007 
閱讀權限
10 
註冊時間
2011-8-6 
最後登錄
2011-8-29 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-21 23:01 | 只看該作者

[發問] access 資料自動帶入



收藏 分享

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2025-4-4 
2#
發表於 2011-8-22 22:04 | 只看該作者
是否能說明為何這麼設計,品名代碼一般都是用數字,為何用中文

TOP

jow672

帖子
8 
主題
1 
精華
0 
積分
14 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
10 
性別
女 
註冊時間
2011-10-26 
最後登錄
2012-7-17 
3#
發表於 2012-2-10 14:00 | 只看該作者
回復 5# a810328


可以在表單中設定 資料來源類型為資料表/查詢.. 資料來源選擇你要顯示的資料

TOP

davidliu9116

帖子
16 
主題
0 
精華
0 
積分
22 
點名
0  
作業系統
Win7 
軟體版本
Office 2003 
閱讀權限
10 
註冊時間
2012-9-26 
最後登錄
2012-9-27 
4#
發表於 2012-9-26 16:29 | 只看該作者
me.品名代碼=Dlookup([品名],"品名代碼","[代碼]='" & left(me.型號,3) & "'")

TOP

kaiweidevil

帖子
30 
主題
5 
精華
0 
積分
33 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
註冊時間
2011-1-6 
最後登錄
2015-2-4 
5#
發表於 2012-12-22 20:37 | 只看該作者
請教一下如果是用2010版的也可以這樣輸入嗎?

TOP

mmxxxx

帖子
61 
主題
7 
精華
0 
積分
72 
點名
0  
作業系統
win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-11-4 
最後登錄
2015-9-16 
6#
發表於 2014-11-4 14:31 | 只看該作者
在型號欄位的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

以上程式, 參考看看.

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題