在 Access 表单中显示/隐藏 FileExplorer

如何解决在 Access 表单中显示/隐藏 FileExplorer

我一直在尝试使用组合框来显示/隐藏我添加到 MS Access 表单中的 PDF 查看器。

当我使用 form_current 事件时，表单仅在我在数据条目之间移动时更新。当我使用 afterupdate 事件时，相同的代码根本不执行任何操作。

有大佬解决吗？我使用的代码如下，我已经尝试了浏览器的 AfterUpdate 事件和整个表单的 Form_Current 事件

Private Sub PDFT900_AfterUpdate() / Private Sub Form_Current()

Dim ESNComb As String
ESNComb = Me.ESNCombo.Column(1)

 If ESNComb Like "9????" Then
   Me.PDFT900.Visible = True
 Else
   Me.PDFT900.Visible = False
    
 End If
End Sub

解决方法

在下面的代码中，我隐藏并显示了名为“AcroPDF0”的 Adobe PDF Reader ActiveX 控件。由于 Like 运算符在表达式匹配时返回 true，在不匹配或不匹配时返回 false，因此它用作可见属性的简单布尔开关。我使用了 (*) 通配符而不是 (?)。它有效{shrug}。请参阅下面的演示图片。

Private Sub ESNCombo_AfterUpdate()
   'AcroPDF0.Visible = ESNCombo.Text Like "P*"
    AcroPDF0.Visible = ESNCombo.Column(0) Like "P*"
    AcroPDF0.src = acroPDFOSrc
End Sub

组合框列表项

在组合框中选择了“文件浏览器”

将组合框切换回“PDFT900”