窗体变量丢失问题
vba吧
全部回复
仅看楼主
level 1
小漫步者6 楼主
登录窗体unload me后变量aaa就丢失。已经在模块中定义了aaa为全局变量了。
aaa变量其他窗体需要调用来设置权限,麻烦给看看错在那了?或者这个变量怎么解决好?
Private Sub CommandButton1_Click()
If ComboBox1.Text = "" Or TextBox1.Text = "" Then MsgBox "请填写齐全", 1 + 64, "系统登陆"
If 取操作员密码(ComboBox1.Value) = TextBox1.Text Then
aaa = ComboBox1.Value
Unload Me
MsgBox ComboBox1.Text & "你好!欢迎你进入本系统", 1 + 64, "欢迎词"
Application.DisplayStatusBar = True
Application.StatusBar = "今天是" & Format(Date, "YYYY年M月D日,") & "当前操作员:" & Me.ComboBox1.Value
Unload Me
Application.Visible = True
Else
MsgBox "登陆密码错误,请重新输入"
End If
End Sub
2018年05月02日 01点05分 1
1