我一直在尝试使用组合框来显示/隐藏我添加到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发布于 2021-04-14 11:25:18
在下面的代码中,我隐藏并显示了名为"AcroPDF0“的Adobe PDF Reader ActiveX控件。由于Like运算符在表达式匹配时返回true,在不匹配或不匹配时返回false,因此它用作visible属性的简单布尔开关。我使用了(*)通配符,而不是(?)。它的工作{耸肩}。请参阅下面的演示图片。
Private Sub ESNCombo_AfterUpdate()
'AcroPDF0.Visible = ESNCombo.Text Like "P*"
AcroPDF0.Visible = ESNCombo.Column(0) Like "P*"
AcroPDF0.src = acroPDFOSrc
End SubComboBox列表项

在ComboBox中选择的“文件浏览器”

将ComboBox切换回"PDFT900“

https://stackoverflow.com/questions/67057951
复制相似问题