请求帮助!!!!

唐小小

请大家帮我啊，哪位朋友知道显示当前记录处于第几条的函数或者模块啊，求求大家了，跪谢！！

唐小小

阿罗，可能是我说的不太明白，这个效果我可以达到，不知道你注意了吗，当我们选择了学期与班级后，我想使主表显示这个班级的情况，子表显示整个年级的情况，在主表中选择一个学生的时候，子表就自动定位到这个学生在整个年级中的排名？本来我的主表与子表的数据源是不同的，但我在主表的当前设置了一句语句，结果是可以同步变化了，但子表的数据源却变得与主表一样了，如果还不是太明白，QQ留言给我吧，告诉我你的电话，我打电话给你好吗？
另外趁阿罗升级之际，祝前程似锦，一帆风顺！

阿罗

小小，你的库我收到了，看了以后，我还是没能理解你的意思。看上去好像你已经做到了你想要的效果了？ 例如，成绩查询窗体，选择了初四三班，一共有4条记录（两个同学每个同学两个学期）。当你在主窗体上移动记录的时候，子窗体的记录不是也跟着移到相同的记录了么？

阿罗

对不起小小，今天来晚了。                  不知道具体是什么样的情况。
从你的代码，看上去好像是一般的主-子窗体啊？这难道还要写代码？
要不你再这样试试看：
Private Sub Form_current()
forms("全年成绩表").form.recordSource = "Select " _
         & " * FROM [那个成绩表] WHERE [学号] = " & me.[学号]
end Sub
要实在不行，你做个简单的例子上来我帮你写。

唐小小

阿罗啊，受不了了，提示类型不匹配，5555，如何是好啊？
Dim rst As New ADODB.Recordset
  Set rst = Me.全年级成绩表.Form.RecordsetClone
  rst.Find "[学号]=" & Me.学号
  Me.全年级成绩表.Form.Bookmark = rst.Bookmark
  Set rst = Nothing

[此贴子已经被作者于2003-10-10 22:36:46编辑过]

阿罗

小小: 简单啊简单。大致意思酱紫的，你改成你设计的控件名称试一试
private sub form_current()
  dim rst as new adodb.recordset
  set rst = me.childform.form.recordclone
  rst.find "[theID]=" & me.txtBoxID
  me.childform.form.bookmark = rst.bookmark
  set rst = nothing
end sub
[em03][em03][em03][em03][em03][em03]

唐小小

真是太谢谢了，呵呵，我还有好多问题想请教，我的QQ是6671492，
先问一个吧，有没有什么好方法达到以下效果？
在主窗体中选择一条记录，有姓名，学号等字段，如何使子窗体的当前记录定位到这条相同的记录，例如主窗体中有1，2，3三条记录，子窗体中有a,b,c,1,2,3,当我选择主窗体中的第三条记录时，子窗体可不可以自动定位到第六条记录？可能说的不是太清楚，求求大家帮我啊！

ADAM

DIM RST AS DAO.RECORDSET
SET RST=CURRENTDB.OPENRECORDSET("數據表名稱")
MSGBOX RST.ABSOLUTPOSITION
RST.CLOSE
ok>>>

唐小小

Me.cmd记录.Caption = "目前是第" & Me.CurrentRecord & "个记录，共有" & Me.RecordsetClone.RecordCount & "记录"
这个好像可以，但不是我想要的，555，哭啊

rst.absoluteposition？我不会用啊，555

ADAM

用這個試試
用ado:
rst.absoluteposition