在Access數據庫窗體中怎麼實現一個文本框中輸入內容，在另一個文本框中自動顯示其內容

在Access數據庫窗體中怎麼實現一個文本框中輸入內容，在另一個文本框中自動顯示其內容。或許這個問題沒表述清楚！如在窗體中有圖號和單件定額這個兩項內容，怎樣才能實現輸入了圖號的內容，在單件定額中自動顯示出對應的內容呢？！請各位高手幫我指點一二！

• 對我有用[0]
• 丟個板磚[0]
• 引用
• 舉報
• 管理
• TOP

回覆次數：16

wwwwb 等　級： 9 10 16	#1樓 得分：0回覆於：2007-07-27 07:16:22 很多種方法，比如 SELECT   單件定額   FROM   TT   WHERE   圖號=FORM!FORM1!圖號 OR 假設圖號爲字符型 DLOOKUP( '單件定額 ', 'TT ', '圖號= " '   &   圖號   ' " ')
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP 精華推薦：MySQL--- FAQ（2008-10-30更新）

wwwwb 等　級： 9 10 16	#2樓 得分：0回覆於：2007-07-27 08:12:00 設置另一個文本框的控件來源爲上述代碼即可
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP 精華推薦：用C#/.NET挑戰一下VFP

wwwwb 等　級： 9 10 16	#3樓 得分：0回覆於：2007-07-27 08:12:37 在一個文本框的AFTER_UPDATE事件中 設置另一個文本框的控件來源爲上述代碼即可
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP 精華推薦：MDX 如何 翻譯 轉換 爲 SQL 腳本

wangtiecheng (不知不爲過，不學就是錯！) 等　級： 更多勳章	#4樓 得分：0回覆於：2007-07-27 09:56:16 用VBA實現。 在圖號的更新後事件中，填寫VBA代碼，獲取圖號對應的內容，在單件定額中顯示出來。 根據圖號從什麼地方獲取對應的內容？ 如果從表中，可以有多種方式，用域函數、或用記錄集打開等等
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP 精華推薦：關於項目相互引用的問題

wangtiecheng (不知不爲過，不學就是錯！) 等　級： 更多勳章	#5樓 得分：30回覆於：2007-07-27 13:24:10 假設你的圖號文本框控件名爲：txt圖號 則在圖號控件的更新後事件中填寫代碼，如下： Private   Sub   txt圖號_AfterUpdate()         Me.txt單件定額.Value   =   DLookup( "單件定額 ",   "表名 ",   "圖號= ' "   &   Me.txt圖號   &   " ' ") End   Sub
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP 精華推薦：寫了幾篇oracle和mysql的對比文章，可惜對mysql還不是很熟悉。希望得到版主的指教

wangtiecheng (不知不爲過，不學就是錯！) 等　級： 更多勳章

#6樓 得分：30回覆於：2007-07-27 13:28:35 --或者： 假設你的圖號文本框控件名爲：txt圖號 則在圖號控件的更新後事件中填寫代碼，如下： Private   Sub   txt圖號_AfterUpdate()                 Dim   Rst   As   New   ADODB.Recordset                 Rst.Open   "select   單件定額   from   表名   where   圖號= ' "   &   Me.txt圖號   &   " ' ",   CurrentProject.Connection                 If   Not   Rst.EOF   Then                 Me.txt單件定額.Value   =   Rst!單件定額         Else                 Me.txt單件定額.Value   =   Null         End   If         End   Sub

對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP

kjyren 等　級：

#7樓 得分：0回覆於：2007-07-30 18:57:11 則在圖號控件的更新後事件中填寫代碼，如下： Private   Sub   txt圖號_AfterUpdate()                 Dim   Rst   As   New   ADODB.Recordset                 Rst.Open   "select   單件定額   from   表名   where   圖號= ' "   &   Me.txt圖號   &   " ' ",   CurrentProject.Connection                 If   Not   Rst.EOF   Then                 Me.txt單件定額.Value   =   Rst!單件定額         Else                 Me.txt單件定額.Value   =   Null         End   If         End   Sub 提示：編譯錯誤     用戶定義類型未定義     這句被選重“Rst   As   New   ADODB.Recordset” 請幫我再看看，謝謝！ 第一個方法可以，但，如果項目表中沒圖號的數據資料，在圖號中輸入的項目表中沒有的數據資料就會報錯。

對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP

wangtiecheng (不知不爲過，不學就是錯！) 等　級： 更多勳章	#8樓 得分：0回覆於：2007-07-30 19:04:42 引用ADO。
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP

wangtiecheng (不知不爲過，不學就是錯！) 等　級： 更多勳章	#9樓 得分：10回覆於：2007-07-30 21:44:48 --> 工具菜單 --> 宏 --> Visual   Basic   編輯器 --> 在新打開的Microsoft   Visual   Basic   代碼窗口中，“工具”菜單 --> “引用”菜單項 --> 選中“Microsoft   ActiveX   Data   Objects   2.*   Library”，確定即可。
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP

wwwwb 等　級： 9 10 16	#10樓 得分：20回覆於：2007-07-31 07:46:35 提示：編譯錯誤   用戶定義類型未定義   這句被選重“Rst   As   New   ADODB.Recordset” 沒有引用ADO，進入窗體-> 設計-> 代碼-> 引用-> Microsoft   ActiveX   Data   Objects   2.*   Library
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP

wangtiecheng (不知不爲過，不學就是錯！) 等　級： 更多勳章	#11樓 得分：10回覆於：2007-07-31 12:24:13 Access   2000、Access   XP、Access   2003都默認引用了ADO.*。 出現這種錯誤，可能是丟失了引用。 重新引用一下即可： --> 工具菜單 --> 宏 --> Visual   Basic   編輯器 --> 在新打開的Microsoft   Visual   Basic   代碼窗口中，“工具”菜單 --> “引用”菜單項 --> 選中“Microsoft   ActiveX   Data   Objects   2.*   Library”，確定即可。
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP

kjyren 等　級：	#12樓 得分：0回覆於：2007-07-31 22:03:32 我昨天就試過了，還是一樣，不知爲什麼
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP

wangtiecheng (不知不爲過，不學就是錯！) 等　級： 更多勳章	#13樓 得分：0回覆於：2007-07-31 22:11:21 或者新建一個MDB，將原來文件中的所有對象都導入到新的MDB中試試。
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP

kjyren 等　級：	#14樓 得分：0回覆於：2007-07-31 22:44:43 引用ADO或ADODB都可行！問題出在我選擇是2.1版本，我剛纔發現後面還有幾個高版本，我就選擇了一個最高的那個版本就可行！謝謝樓上兩位！我的分值好像只能分配給其中的一位，我那就把分值給說得最多的那位了！同時謝謝另一位朋友的教導！你們回覆得很快，是不是這個版塊的版主呢？！
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP

kjyren 等　級：	#15樓 得分：0回覆於：2007-07-31 22:50:49 哈哈！原來可以拆分，那就每個朋友都分一點吧！多出力的多給些！再次謝謝兩位朋友！！有問題再請教你們！
	對我有用[0] 丟個板磚[0] 引用 舉報 管理 TOP

kjyren 等　級：

#16樓 得分：0回覆於：2007-08-01 12:39:21 7   wangtiecheng     459   不知不爲過，不學就是錯！【／+〆=ろ】   你上榜了嘛還排名不錯麻