Question

我正在尝试编写代码以仅在一年中的某些月份显示一个按钮。我想我已经记下了代码，但是我不知道在哪里放置它才能使它工作。当我将代码放入“绘制”中时，我得到了32521错误代码：“您无法在OnPaint事件中更改此属性的值。”

代码如下：

Button.Visible = False

If ( (Month(Now) = 6) Or (Month(Now) = 7) Or (Month(Now) = 8) ) Then
Button.Visible = True
End If

打开主屏幕表单后，该在哪里放置此代码以使其正确运行？

Answer 1

在您的加载事件中

Private Sub Form_Load()

Button.Visible = False

If ( (Month(Now) = 6) Or (Month(Now) = 7) Or (Month(Now) = 8) ) Then
    Button.Visible = True
End If

End Sub

启动时MS Access隐藏按钮

1 个答案: