设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2103|回复: 5
打印 上一主题 下一主题

[窗体] 求助:子窗体记录引用问题

[复制链接]
跳转到指定楼层
1#
发表于 2010-5-6 22:50:37 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
各位老师们:
      我在引用一个查询子窗体的记录的值时,如引用第二条记录时用:
DoCmd.GoToRecord acDataForm, "Forms![查询窗体]![子窗体]", acGoTo, 2,但得到的却都是第一条记录的值,看了大半天的帮助亦不知所云,不知该如何写才正确?
      先谢谢各位老师指教了!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2010-5-6 23:55:14 | 只看该作者
置顶啊,老师们!
3#
发表于 2010-5-7 21:59:45 | 只看该作者
如果每次都要引用第二笔记录,可以这样做:
   Dim rs As DAO.Recordset
   Set rs = Me.订单子窗体.Form.Recordset
   rs.MoveFirst
   rs.MoveNext
   MsgBox rs(0)         '需要引用的值
4#
 楼主| 发表于 2010-5-8 14:37:03 | 只看该作者
fnsmydyang ,您好,
   如果要顺序引用全部记录呢,如要把它的所有记录顺序引用在一个文本框控件中?谢谢!
5#
发表于 2010-5-8 16:14:35 | 只看该作者
Function reclist(subfrm as form,fldname as string) as string
'功能:读取子窗体指定字段所有记录的值,并返回一个字符串。可用于列表框或组合框数据源。
'参数:subfrm--子窗体;fldname--读取的字段名称
'示例:me.学生姓名..RowSource=reclist(me.学生表子窗体.form,"姓名")
For i = 1 To frm.RecordsetClone.RecordCount
         frm.Form.SelTop = i
         reclist=reclist & frm.Form.controls(fldname) & ";"
Next
end function
6#
 楼主| 发表于 2010-5-8 19:26:50 | 只看该作者
谢谢todaynew。您是前辈了,请多多指教!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-10 21:33 , Processed in 0.089952 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表