access里用VBA語言怎么創建Recordset？

seekyes

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本身里面做表單啊？

請教解決，謝謝

seekyes

不行啊，打開老出錯，算了,換另一種方式搞了

zhanguoru

See,我只是把的单位那句注释了，我是简体的进不去。

seekyes

不行啊，怎么有二個組合2的？應該是組合下拉框1取到main表a字段不重復值，

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

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

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

麻煩再幫我看看，

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

zhanguoru

我没有找到您问题的原因，但我重新做了一个窗体没有问题，您的语句应该没有问题，应该是您的窗体上的某些控件的问题

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

seekyes

up

seekyes

mdb在這里

seekyes

謝謝，我無法做出輪入資料的窗體，請求幫助

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

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

不知道怎么做。

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

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

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

yangzn

跟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编辑过]