使用VBA动态添加/删除拆分表单中的字段

时间:2014-07-22 15:31:56

标签: vba ms-access access-vba

我正在尝试在Access中创建一个拆分表单,它将根据用户选择更改记录。每条记录都基于查询,每个查询的字段略有不同。我想在拆分表单上添加/删除数据表的列,具体取决于当前选择的查询。

有没有办法使用VBA动态添加/删除字段?是否可以激活/停用字段,使得只有激活的字段显示在数据表中?

我无法给出我想要做的确切示例。但是,我会写一些sudo-code,希望能够解释我的思考过程。请注意,我对VBA很新,所以语法可能不正确。

假设用户在数据表中选择了一行。该Sub将以以下形式执行:

Private Sub nextRecord()

    Me.RecordSource="SELECT NextTable.Id, NextTable.Name, NextTable.SomeUniqueField FROM  NextTable WHERE NextTable.FK=" & Me![id_Field] & ";"

    Me![id_Field].ControlSource=id
    Me![name_Field].ControlSource=Name

    //The next two lines of code will hide an unneeded field from the datasheet and un-hide a field that is needed
    Me![unneeded_Field].Hide
    Me![unique_Field].unHide

    Me![unique_Field].ControlSource="SomeUniqueField"

End Sub

由于

0 个答案:

没有答案