English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
所有分類

我已將原本Excel的資料庫匯入access裡的資料表中,由於我的資料庫欄位很多,所以我在access的查詢裡設一個我要的查詢欄位,並在表單裡設置好我要的表單,由於我要的表單是只要我輸入其中一個欄位就可以將表單裡的其他欄位都能在表單裡顯示出來(我表單的欄位有品號.品名.編號)不知如何設定呢?

2007-01-19 07:54:40 · 1 個解答 · 發問者 Hui 1 in 電腦與網際網路 軟體

如果需用VBA做指令可否麻煩各位能提供您寫的程式,謝謝

2007-01-19 10:13:51 · update #1

1 個解答

簡易作法_在表單品號.品名.編號的_AFTER_UPDATE 輸入
品號_AFTER_UPDATE
If DLOOKUP("品號","自行輸入資料表名稱","品號='"&me!品號 &"'")<>"" then
M5=me!品號
Me.Undo
DoCmd.FindRecord M5
IF isnull(ME!品號)=true or ME!品號="" then msgbox "找不到資料"
end if
品名_AFTER_UPDATE
If DLOOKUP("品名","自行輸入資料表名稱","品名='"&me!品名 &"'")<>"" then
M5=me!品名
Me.Undo
DoCmd.FindRecord M5
IF isnull(ME!品名)=true or ME!品名="" then msgbox "找不到資料"
end if

編號_AFTER_UPDATE
If DLOOKUP("編號","自行輸入資料表名稱","編號='"&me!編號 &"'")<>"" then
M5=me!編號
Me.Undo
DoCmd.FindRecord M5
IF isnull(ME!編號)=true or ME!編號="" then msgbox "找不到資料"
end if
以上_品號.品名.編號在資料表的資料形態設定是文字
如果是數字舉下列一例
編號_AFTER_UPDATE
If DLOOKUP("編號","自行輸入資料表名稱","編號="&me!編號 &")<>"" then
M5=me!編號
Me.Undo
DoCmd.FindRecord M5
IF isnull(ME!編號)=true or ME!編號="" then msgbox "找不到資料"
end if

2007-01-19 16:33:05 補充:
PS:先 copy 品號_AFTER_UPDATE 操作看看吧!
因如果你是要輸入任意欄位的資料.再由按鈕來尋找紀錄.
其中的寫法也是大同小異.

2007-01-19 09:39:56 · answer #1 · answered by pop 7 · 0 0

fedest.com, questions and answers