【求助】怎样用一个字段值来控制某控件能否显示或能否使用？

gargoyle

比如公司表中有公司属性字段，如果该字段为“用户”，则某控件可见或可选，否则不然。
实现这个效果必须VBA编程么？

多谢！

Henry D. Sy

用if then 语句和visible属性

gargoyle

谢谢你，这个是不是VBA实现了？

我能不能在受控控件的属性界面中对"可见性"一项进行什么操作或者写什么代码来实现呢？

Henry D. Sy

在属性里设置是静态的
而你所需要的是动态的，只能用vba来实现。

gargoyle

谢谢，
哪位有完整的代码示例实现这个功能？

Henry D. Sy

例子应该是你来传，谁呀不知道你的例子到底是怎样的。

gargoyle

呵呵
等着啊，我得把我的东西简化一下，因为还涉及好多其它的问题

gargoyle

这是一个简化的东东：

这里面其实要实现几个个功能（原谅我贪心了）：

1）“公司”窗体
只有当标签页1（“公司信息”）中字段“公司属性”为“用户”时，第二个标签页“相关信息”中第二行的控件和按钮才可见或者可用（不可用时为灰色）。

2）“项目”窗体
第二页“相关信息”，比如第一行，一旦已经选定了“制造商”比如说A公司，左键单击后面的“制造商联系人”框，点击右下角的“浏览”按钮，会弹出一多选界面将A公司的所有联系人姓名列出，被选中的联系人组合为一组合框列表置于“制造商联系人”框中，选中任何一个联系人，点击右下角第二个按钮“查找/编辑 /新建”将会弹出“联系人”窗体显示相应的联系人信息。鼠标单击任何一个字段框，再点击“查找/编辑/新建”按钮都会弹出相应的“公司”或“联系人”窗口以显示前面文本框/组合框中选中对象的相关信息。感觉像是窗体-查询-窗体，级联地传递参数。这个感觉很复杂，但是活又急。。。

另外还有一个疑惑，就是在“关系”视图中，其实“公司”表只要在该公司的“公司属性”为“用户”时，才与“项目”表具有一对多关系，如果是“制造商”或“ 代理商”等其它属性，只在“项目”表中的相应字段中存有其“公司”表主键以备查询，但在“项目”窗体第二页中是通过“公司名称”和“属性”在公司表里查询的，只不过返回公司表主键值。
“联系人”信息也是如此。
所以这里不知道怎样设定联接关系好，是表联接还是查询联接好呢？

Henry D. Sy

问题一
Private Sub Form_Current()
    SetEnb
End Sub
Private Sub 公司属性_AfterUpdate()
    SetEnb
End Sub
Sub SetEnb()
    If Me.公司属性 = "用户" Then
        Me.Text9.Enabled = True
        Me.Command15.Enabled = True
    Else
        Me.Text9.Enabled = False
        Me.Command15.Enabled = False
    End If
End Sub

Henry D. Sy

问题二
利用组合框会方便的多

附件中应该留下数据作为测试用。