Office中国论坛/Access中国论坛

标题: 求助：选择显示问题 [打印本页]

作者: xyh2732 时间: 2010-7-18 22:04
标题: 求助：选择显示问题
[attach]42742[/attach] 请问老师一个显示问题。我现在有RMB,USD,HKD三个文本框已经隐藏了（应为方便查看再这里我把它显示出来）。当“币种”框为这三个的其中一个是，那个就显示出来，其余的还是隐藏。比如现在币种框为RMB，哪RMB款就显示出来，其余币还都是隐藏。请问这种功能要如何实现，谢谢你们的帮忙！

作者: todaynew 时间: 2010-7-19 06:51
本帖最后由 todaynew 于 2010-7-19 06:53 编辑

Private Sub ID_AfterUpdate()
Select Case Me.ID.Value
Case "USD"
      Me.USD.Visible = True
      Me.RMB.Visible = False
      Me.HKD.Visible = False
Case "RMB"
      Me.USD.Visible = False
      Me.RMB.Visible = True
      Me.HKD.Visible = False
Case "HKD"
      Me.USD.Visible = False
      Me.RMB.Visible = False
      Me.HKD.Visible = True
Case Else
      Me.USD.Visible = True
      Me.RMB.Visible = True
      Me.HKD.Visible = True
End Select
End Sub

不过这不是一个好的方案，似乎用两个组合框筛选更好一些。

作者: t小宝 时间: 2010-7-19 09:14
选择显示问题代码可以简化一下：
Private Sub ID_AfterUpdate()
Me.USD.Visible = Me.ID.Value = "USD"
Me.RMB.Visible = Me.ID.Value = "RMB"
Me.HKD.Visible = Me.ID.Value = "HKD"
End Sub

双击打开窗体问题：
1、需要更改代码，编码字段是数字类型，不要加引号；
Private Function allDblclick()
DoCmd.OpenForm "录入账户资料", , , "[编码]=" & Me.编码
End Function
2、录入账户资料窗体的数据输入属性设为否。

作者: xyh2732 时间: 2010-7-19 11:00
回复 t小宝 的帖子

你好谢谢你的帮忙。我改好了，但是什么我用联动的方式更新ID的内容他就不会有反应。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)