命令按扭的“显示与隐藏”的代码如何写？

jia　发表于：2010-03-14 11:03:02 　

复制

老师们好：

求写一个代码：如何编写一个代码将一个命令按钮“显示与隐藏”？

谢谢

点击下载此附件

Top

access爱好者发表于：2010-03-14 12:33:48

先将Command13 可用设置为“否”

123是密码

Private Sub Command1_Click()
Dim str As String
str = InputBox("请输入正确的密码：", , "请随便输入一个密码")
If str = 123 Then
Me.Command13.Enabled = True
Else
Me.Command13.Enabled = False
End If
End Sub

Top

jia 发表于：2010-03-14 14:28:43

版主您好：

您的回答有一些不完全，在不输入密码时，点击“确定”会报错。不知何原因？

谢谢

Top

access爱好者发表于：2010-03-14 15:49:46

Private Sub Command1_Click()
Dim str As String
str = InputBox("请输入正确的密码：", , "")
If str = "123" Then
Me.Command13.Enabled = True
Else
Me.Command13.Enabled = False
End If
End Sub

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

命令按扭的“显示与隐藏”的代码如何写？