Database 的硬盘将更新为仅列出具有兼容硬盘外形尺寸的硬盘

Database 的硬盘将更新为仅列出具有兼容硬盘外形尺寸的硬盘,database,ms-access,vba,relational-database,entity-relationship,Database,Ms Access,Vba,Relational Database,Entity Relationship,如果尝试执行此操作,则子窗体不会更新 请注意,在窗体和子窗体的底部都有一些关于绑定到窗体和子窗体的记录的信息: 当您在组合框中选择任何计算机构建时,请注意表单的记录编号不会更改;它只是停留在3个中的1个,不移动 子表单无法更新,因为表单当前加载的记录没有更改,因此与其相关的子表单也不能更改 要使用组合框更改表单上加载的记录,我们需要使用一些VBA 进入“设计”视图,选择“计算机构建”组合框,然后从属性页的“事件”选项卡中,针对更新后事件单击[…]按钮: 选择“代码生成器”,您将进入VBA编辑

如果尝试执行此操作,则子窗体不会更新

请注意,在窗体和子窗体的底部都有一些关于绑定到窗体和子窗体的记录的信息:

当您在组合框中选择任何计算机构建时,请注意表单的记录编号不会更改;它只是停留在3个中的1个,不移动

子表单无法更新,因为表单当前加载的记录没有更改,因此与其相关的子表单也不能更改

要使用组合框更改表单上加载的记录,我们需要使用一些VBA

进入“设计”视图,选择“计算机构建”组合框,然后从属性页的“事件”选项卡中,针对更新后事件单击[…]按钮:

选择“代码生成器”,您将进入VBA编辑器,其中包含已为您编写的以下代码:

在更新VBA后填写组合框的中间部分,使其如下所示:

Private Sub-cbocompuld_AfterUpdate()
Dim rs作为DAO.Recordset
设置rs=Me.RecordsetClone
rs.FindFirst“[ID]=”&Me.cboCompBuild
Me.Bookmark=rs.Bookmark
设置rs=无
端接头
请注意,
cboCompBuild
是我给组合框的名称。您需要确保VBA中的这一行引用了您所称的组合框的名称;您可以在属性页中找到组合框的名称:

回到表单视图,当您选择不同的计算机版本时,子表单应该更新以显示兼容的版本

从这里可以做更多的事情,比如将子表单的Allow Additions属性设置为“No”,这样就不会在底部出现奇怪的空记录。如果您不希望用户能够更改子表单绑定表中的数据(<代码> TBLDHDDS ),您可能还想考虑禁用子窗体的编辑和删除。同样值得注意的是,对于VBA,我使用了艾伦·布朗方法的淡化版本;他的完整版本比我用来快速说明的更健壮


希望这能有所帮助。

如果您将问题缩小到开发此系统时遇到的特定问题,您将获得更好的结果。一般来说,当人们阅读“我如何建立这个系统?”时,他们会直接跳过它。你的问题是A)“我如何创建数据库?”还是B)“我如何创建一个表来保存信息?”或C)“我如何创建一个带有下拉列表的拆分表单,其中包含一个用作过滤器的控制源?”嗨,Ron,欢迎使用SO。只是为了强调别人所说的话。问与答网站也是如此,在那里,你所问的问题是关于你所面临的一个特定的编程问题。这不是一个要求对特定编程主题进行入门级介绍的地方。参见SO关于提问的文章:谢谢你的建议,我编辑了我的问题@NewdIt是如何创建一个表来保存与其关系相关的信息。我也只是编辑了我的问题@Invent-AnimateThank这么多,这就是我要找的!也感谢您提供access文件@马特霍尔