[已解决]关于登录提示框代码问题

cb_clx

要求都 在附件内，请老师帮忙修改并解说一下，谢谢！

最佳答案

月排行榜 / 总排行榜

n520

2011-12-26 13:48

楼主问题已解决,请看附件

Private Sub CommandButton1_Click()

If Me.ComboBox1.Text = "小王" And TextBox1.Text = 123 Then

MsgBox "欢迎使用"

Unload Me

ElseIf Me.ComboBox1.Text = "小张" And TextBox1.Text = 456 Then

MsgBox "欢迎使用"

Unload Me

Else

MsgBox "密码错误"

End If

End Sub

密码要加个引号

跳转到最佳答案楼层

epexiaocheng

太高了,我还没有学到

菜鸟锐

是表格打开后淡出登陆窗口吗？

cb_clx

菜鸟锐 发表于 2011-12-26 09:59
是表格打开后淡出登陆窗口吗？

会弹出呀！难道在你那里不弹出吗？

Select

1 在密码窗口输入汉字或英文字母就会出错，怎样进行调试后，即使输入汉字或英文也不能登录
2 为什么设置的密码只能是数字 不能是英文和数字的组合，如果用英文和数字组合也登录无效
3 如果不选择用户直接按登录也不能进入系统，怎样设置呢
以上请老师帮忙解答，谢谢！





第1个问题是什么意思呀，看不明白

djsd1016

VBA高人才能解答吧！！！

cb_clx

Select 发表于 2011-12-26 10:43
1 在密码窗口输入汉字或英文字母就会出错，怎样进行调试后，即使输入汉字或英文也不能登录
2 ...

就是当你在用户那里选择了用户名之后，再在密码那里输入汉字或英文字母就是会出错。

Select

cb_clx 发表于 2011-12-26 11:14
就是当你在用户那里选择了用户名之后，再在密码那里输入汉字或英文字母就是会出错。

我输入汉字或英文字母，再随便输入密码，只提示“密码错误”。。。。。。。{:041:}

cb_clx

正线等待高人解答！

n520

楼主问题已解决,请看附件

Private Sub CommandButton1_Click()

If Me.ComboBox1.Text = "小王" And TextBox1.Text = 123 Then

MsgBox "欢迎使用"

Unload Me

ElseIf Me.ComboBox1.Text = "小张" And TextBox1.Text = 456 Then

MsgBox "欢迎使用"

Unload Me

Else

MsgBox "密码错误"

End If

End Sub

密码要加个引号