怎么样能在子窗体中呈现满足条件的记录集

Eric2Smile 2008-05-27 02:01:00
我有个子窗体，要在里面录入记录，子窗体的记录源是个查询。现在子窗体里面是好多条记录，有很多记录字段值齐全并不需要录入，只有一些记录某些字段留空是等待录入的。

现在我每次在子窗体里面录的时候，都得先找着那些字段值不全的记录蛮费功夫。请问，如何能在点了某个按钮后，子窗体的视图方式变成了“单个窗体”形式，同时里面就只有字段值不全的记录。我已经实现了转换视图方式，但不知道怎么让子窗体里面只有那些满足我说的条件（即只有那些字段值不全等待录入）的记录，我写的部分代码如下：
Me.GroupInfoSub.SourceObject = ""
DoCmd.OpenForm "GroupInfoSub", acDesign
DoCmd.SelectObject acForm, "GroupInfoSub"
Forms("GroupInfoSub").DefaultView = 0
DoCmd.Save acForm, "GroupInfoSub"
DoCmd.Close acForm, "GroupInfoSub"
me.GroupInfoSub.SourceObject = "GroupInfoSub"

上面代码实现了转换视图为单个窗体，但如何只提取那些字段值不全的记录集呢？
...全文
224 22 打赏 收藏 转发到动态 举报
写回复
用AI写文章
22 条回复
切换为时间正序
请发表友善的回复…
发表回复
wwwwb 2008-06-02
  • 打赏
  • 举报
 回复
or
Me.GroupInfoSub.Form.RecordSource = "select * from 分组表 where 组号 is null or 组中角色 is null"
'Me.GroupInfoSub.SourceObject = "窗体1"
DoCmd.OpenForm "GroupInfoSub", acDesign
DoCmd.SelectObject acForm, "GroupInfoSub"
Forms("GroupInfoSub").姓名_Label.Visible = False
Forms("GroupInfoSub").姓名.Visible = False
Forms("GroupInfoSub").课程名_Label.Visible = False
Forms("GroupInfoSub").课程名.Visible = False
Forms("GroupInfoSub").组中角色_标签.Visible = False
Forms("GroupInfoSub").List12.Visible = False
Forms("GroupInfoSub").DefaultView = 0
DoCmd.Save acForm, "GroupInfoSub"
DoCmd.Close acForm, "GroupInfoSub"
Me.GroupInfoSub.SourceObject = ""
Me.GroupInfoSub.SourceObject = "GroupInfoSub"
wwwwb 2008-05-30
  • 打赏
  • 举报
 回复
示例：
设计一个子窗体：窗体1，数据源为：
SELECT *
FROM 分组表
WHERE 组号 is null or 组中角色 is null;

在录入按钮中：
Me.GroupInfoSub.SourceObject = "窗体1"

因为你只改变了RECORDSOURCE，而没有改变窗体中的设计（有些字段是没有的）
Eric2Smile 2008-05-29
  • 打赏
  • 举报
 回复
那该怎么控制参数啊？拜托就说下，下面这个代码怎么改把

set rr=currentdb.openrecordset("select * from tt where c is null or d is null")
Me.GroupInfoSub.SourceObject = "rr"
DoCmd.OpenForm "GroupInfoSub", acDesign
DoCmd.SelectObject acForm, "GroupInfoSub"
Forms("GroupInfoSub").DefaultView = 0
DoCmd.Save acForm, "GroupInfoSub"
DoCmd.Close acForm, "GroupInfoSub"
me.GroupInfoSub.SourceObject = "GroupInfoSub"

ccssddnnhelp 2008-05-29
  • 打赏
  • 举报
 回复

我是就用现有的GroupInfoSub，不行吗？

可以，用参数控制一下就行了。.
==== 思想重于技巧 ====

.
贴子分数<20：对自已的问题不予重视。
贴子大量未结：对别人的回答不予尊重。
.
Eric2Smile 2008-05-29
  • 打赏
  • 举报
 回复
那是要再加一个子窗体吗？我是就用现有的GroupInfoSub，不行吗？
WWWWA 2008-05-29
  • 打赏
  • 举报
 回复
看了一下，要设置一个子窗体，与
select * from yourTable where c is null or d is null
匹配的子窗体，设置SOURCEOBJECT
Eric2Smile 2008-05-29
  • 打赏
  • 举报
 回复
又传了一份2000格式的：

http://www.access911.net/csdn/FileDescription.asp?mdb=2008-5-29&id=102&mode=3
WWWWA 2008-05-29
  • 打赏
  • 举报
 回复
最好用2000格式
Eric2Smile 2008-05-29
  • 打赏
  • 举报
 回复
MDB已经上传了：

http://www.access911.net/csdn/filedescription.asp?mdb=2008-5-29&id=100&mode=3

操作说明见描述。
wwwwb 2008-05-28
  • 打赏
  • 举报
 回复
上传MDB到www.access911.net/csdn
ccssddnnhelp 2008-05-27
  • 打赏
  • 举报
 回复

还是上传吧，不过尽量只保留需要的表和FORM。.
==== 思想重于技巧 ====

.
贴子分数<20：对自已的问题不予重视。
贴子大量未结：对别人的回答不予尊重。
.
Eric2Smile 2008-05-27
  • 打赏
  • 举报
 回复
不行啊，到底怎么写啊？
ccssddnnhelp 2008-05-27
  • 打赏
  • 举报
 回复

楼主你定要看帮助了。俗语说，磨刀不误砍柴功。.
==== 思想重于技巧 ====

.
贴子分数<20：对自已的问题不予重视。
贴子大量未结：对别人的回答不予尊重。
.
ccssddnnhelp 2008-05-27
  • 打赏
  • 举报
 回复

me.GroupInfoSub.form.RecordSource="select * from yourTable where c is null or d is null".
==== 思想重于技巧 ====

.
贴子分数<20：对自已的问题不予重视。
贴子大量未结：对别人的回答不予尊重。
.
Eric2Smile 2008-05-27
  • 打赏
  • 举报
 回复
记录集中有记录啊，咋回事？
set rr=currentdb.openrecordset("select * from tt where c is null or d is null")
Me.GroupInfoSub.SourceObject = "rr"
DoCmd.OpenForm "GroupInfoSub", acDesign
DoCmd.SelectObject acForm, "GroupInfoSub"
Forms("GroupInfoSub").DefaultView = 0
DoCmd.Save acForm, "GroupInfoSub"
DoCmd.Close acForm, "GroupInfoSub"
me.GroupInfoSub.SourceObject = "GroupInfoSub"
上面的代码真的没问题吗？
WWWWA 2008-05-27
  • 打赏
  • 举报
 回复
set rr=currentdb.openrecordset("select * from tt where c is null or d is null")
这句没有问题，记录集中是否有记录？
Eric2Smile 2008-05-27
  • 打赏
  • 举报
 回复
我测试了下，不对~~ 说什么引擎错误之类的话

Me.GroupInfoSub.SourceObject = "rr"
是这句出错的~

怎么回事啊，语法不对吗？
WWWWA 2008-05-27
  • 打赏
  • 举报
 回复
应该是可以的
Eric2Smile 2008-05-27
  • 打赏
  • 举报
 回复
好像VB里面不能直接写SQL的把~~ 我想写成这样，看行不：

set rr=currentdb.openrecordset("select * from tt where c is null or d is null")
Me.GroupInfoSub.SourceObject = "rr"
DoCmd.OpenForm "GroupInfoSub", acDesign
DoCmd.SelectObject acForm, "GroupInfoSub"
Forms("GroupInfoSub").DefaultView = 0
DoCmd.Save acForm, "GroupInfoSub"
DoCmd.Close acForm, "GroupInfoSub"
me.GroupInfoSub.SourceObject = "GroupInfoSub"

我上面写的意思是说，把c,d字段值为空的记录集rr作为子窗体GroupInfoSub的数据源，不晓得对不对？
WWWWA 2008-05-27
  • 打赏
  • 举报
 回复
呵呵，不是这个意思？
select * from tt where c is null or d is null
加载更多回复（2）
Python Tkinter窗体讲解
Python作为自立门户的语言，除了学习它的基础编程...当然大家也不用担心，即使没学过，在学习了该教程提供的Python的Tkinter窗体后，也会让你快速的掌握。这样我们就可以使用Python做一些小游戏，或者做一些小系统。
第3章 WEB窗体
(译自 Pro ASP.NET 2.0 IN C# 2005 ，很多地方译得不好，欢迎批评指正)第3章 WEB窗体ASP.NET页面（正式名称叫Web窗体）是ASP.NET应用至关重要的一部分。它们提供了Web应用的真实输出，即客户请求网页并在浏览器里浏览。尽管网页并不是新事物，但Web窗体却是ASP.NET独有的。本质上，Web窗体允许你象Windows应用那样使用基于控件的接口
设计时开发 Windows 窗体控件
在中，创建一个新的Windows 应用程序或Windows 控件库项目。从“项目”菜单中，选择“添加类在“添加新项”对话框中，单击“自定义控件一个新的自定义控件将被添加到项目中。按F7打开自定义控件的“代码编辑器找到OnPaint方法，该方法除了调用基类的OnPaint方法外，其他情况均为空。修改代码以纳入控件所需的任何自定义绘图。实现控件将纳入的任何自定义方法、属性或事件。保存并测试控件。创建自定义控件时，你通常会发现有必要调试其设计时行为。如果要为自定义控件创作自定义设计器，则尤其如此。
Java窗体应用程序：人事管理系统
老师布置了第二个JAVA作业，让写人事管理系统。 代码思路参考自：清华大学出版设出版的《Java课程设计案例精编（第3版）》 作业是老师在十月一日哦放假前让写的，所以十一回家写了俩界面，然后回到学校老师说先 不做这个，先写一个订餐系统，后来为了参加十一月的区域赛就搁置了这个作业，参加完 区域赛白天还要练题没怎么写，都是晚上快睡觉的时候写了几个界面，断断续续把界面写完 了，这周五、周六一鼓...
使用增强的Windows窗体为你的.Net程序打造丰富的用户界面
　本文内容基于微软 Visual Studio 2005 发布前的预览版，之前代号为“Whidbey”。其中所有信息在正式版中都可能会有所改变。 本文所讨论内容：关于Windows窗体控件的新内容 运用‘主题’ 绑定和显示数据 其他数据细节特征本文使用以下技术：C# 与 Windows 窗体 　　微软的 .NET 框架
Access

7,714

社区成员

28,799

社区内容

发帖
与我相关
我的任务
社区描述
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
  • Access
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章