如何取运行Docmd.Openquery后的值?

FookYou

Private Sub Form_Open(Cancel As Integer)
  DoCmd.OpenQuery "查询1"
  Me.Text1 = "查询的第二条记录中的姓名"
  Me.Text2 = "查询的第四条记录中的姓名"
  Me.Text3 = "查询的第二条记录中的年龄"
  Me.Text4 = "查询的第四条记录中的年龄"
End Sub

ACMAIN_CHM

你需要使用ADO模型操作每个记录。

在你的ACCESS自带帮助文档中搜索 ADO recordset



******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次

FookYou

谢谢！能不能就该列子写下代码。教下怎么使用?

todaynew

dlookup

FookYou

如果有很多记录，我想从查询表里提取25岁10条记录，20岁5条记录。。，排序是在查询里做好的。该如何实现？

FookYou

没人帮忙啊，谁给个提取查询表记录的例子啊。谢谢！

FookYou

Private Sub Form_Open(Cancel As Integer)
  Dim Cn As ADODB.Connection
  Dim Rs As ADODB.Recordset
  Dim strSQL$
    strSQL = CurrentDb.QueryDefs("查询1").SQL
    Set Cn = CurrentProject.AccessConnection
    Set Rs = New ADODB.Recordset
    Rs.Open strSQL, Cn, adOpenForwardOnly, adLockReadOnly
    Rs.MoveFirst
    Rs.MoveNext
    Me.Text1 = Rs("姓名")
    Me.Text3 = Rs("年龄")
    Rs.Move (2)
    Me.Text2 = Rs("姓名")
    Me.Text4 = Rs("年龄")
    Set Rs = Nothing
    Set Cn = Nothing
End Sub

FookYou

没人帮忙，自己上网查了两天的资料，这样写不知道对不对？
还有如果我的"查询1"是个复杂的查询，就是strSQL字符很长，这样写就不行。
我想解决的问题是:我做好一个复杂的查询（条件跟窗体中的数据有关)，在窗体中要对该查询表进行提取记录，
该怎么解决呢？在Access中该如何对查询进行操作，请指教！多谢！

FookYou

Private Sub Form_Open(Cancel As Integer)
  Dim Rs As DAO.Recordset
    Set Rs = CurrentDb.OpenRecordset("查询1")
    Rs.MoveFirst
    Rs.MoveNext
    Me.Text1 = Rs("姓名")
    Me.Text3 = Rs("年龄")
    Rs.Move (2)
    Me.Text2 = Rs("姓名")
    Me.Text4 = Rs("年龄")
    Rs.Close
End Sub

FookYou

原来这样就可以了。。。。。。。