Office中国论坛/Access中国论坛

标题: access里用VBA語言怎么創建Recordset？ [打印本页]

作者: seekyes 时间: 2005-3-16 00:48
标题: access里用VBA語言怎么創建Recordset？
Private Sub comb01_AfterUpdate()

comb02.RowSource = "select namevalue from table where [name]='" & comb01.Value & "'"

comb02.Value = comb02.Column(0, 0)

End Sub

Private Sub comb02_AfterUpdate()

Set rs = "select top 1 * from table where namevalue='" & comb02.Value & "'"

Text1.Value = rs.Fields(0)value

Text2.Value = rs.Fields(1)value

Text3.Value = rs.Fields(2)value

End Sub

================================================

我在access數據庫里做表單輸入資料，

這是有兩個下拉列表框comb01和comb02，

選擇comb01時comb02就聯動變化，這可以實現了，

但是隨comb02的值變化我要讓文字框Text1,Text2等的值跟著變化，怎么樣實現這功能？

我不熟VBA，不知道怎么建記錄集來取值，如上面的：

Set rs = "select top 1 * from table where namevalue='" & comb02.Value & "'"

在ASP里我知道還要建立數據庫邊接再打開記錄集，但在VBA里我不會，因為就在access本身里面做表單啊？

請教解決，謝謝

作者: yangzn 时间: 2005-3-16 04:13
跟ASP 差不多

Dim rs As new ADODB.Recordset

dim strSQL as string

strSQL="select top 1 * from table where namevalue='" & comb02.Value & "'"

rs.Open strSQL, CurrentProject.Connection

[此贴子已经被作者于2005-3-15 20:16:05编辑过]

作者: seekyes 时间: 2005-3-16 19:22
謝謝，我無法做出輪入資料的窗體，請求幫助

只有兩個表，main表是不能改的，只用來選擇類別，

sub表跟據main表的下拉選擇來增加資料，

不知道怎么做。

用access的窗體創建向導又做不來下拉選擇的效果

現在做出下拉選擇的效果又不知道怎么關聯sub子表單來輸入資料

傳上mdb,誰幫我看看。謝謝

作者: seekyes 时间: 2005-3-16 19:22
mdb在這里

[attach]9433[/attach]

作者: seekyes 时间: 2005-3-17 00:38
up

作者: zhanguoru 时间: 2005-3-17 01:34
我没有找到您问题的原因，但我重新做了一个窗体没有问题，您的语句应该没有问题，应该是您的窗体上的某些控件的问题[attach]9445[/attach]

[此贴子已经被作者于2005-3-16 17:34:36编辑过]

作者: seekyes 时间: 2005-3-17 03:07
不行啊，怎么有二個組合2的？應該是組合下拉框1取到main表a字段不重復值，

而組合框下拉2就跟據組合下拉1的值取值(就是b字段的值)，

而sub子表單是跟據組合下拉2的值來變化

我做的當然是有問題的，因為在窗體里沒關聯到下拉框的

麻煩再幫我看看，

還有命名最好不要用到簡體字，用字母，因為我的access是繁體版的會亂碼,謝謝

作者: zhanguoru 时间: 2005-3-18 02:51
See,我只是把的单位那句注释了，我是简体的进不去。[attach]9462[/attach]

作者: seekyes 时间: 2005-3-18 18:48
不行啊，打開老出錯，算了,換另一種方式搞了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)