求助：选择显示问题

xyh2732

   请问老师一个显示问题。我现在有RMB,USD,HKD三个文本框已经隐藏了（应为方便查看再这里我把它显示出来）。当“币种”框为这三个的其中一个是，那个就显示出来，其余的还是隐藏。比如现在币种框为RMB，哪RMB款就显示出来，其余币还都是隐藏。请问这种功能要如何实现，谢谢你们的帮忙！

todaynew

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小宝

选择显示问题代码可以简化一下：
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

回复 t小宝 的帖子


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