Office中国论坛/Access中国论坛

标题: [求助]如何制作登录窗口 [打印本页]

作者: winner 时间: 2005-12-14 00:52
标题: [求助]如何制作登录窗口
[attach]14735[/attach]

我想从F_User登录到F_PurchaseLog，不知哪里出错了？

作者: 一点通 时间: 2005-12-14 01:40
可参考一下这个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=4269&replyID=&skin=1

作者: zhousailor 时间: 2009-4-24 16:01
haohaoxuexue

作者: xhbqt 时间: 2009-5-3 12:48
越是想学，越是学不到啊

作者: xhbqt 时间: 2009-5-7 01:14
还是不太明白，基本功差啊

作者: feig120 时间: 2009-5-7 09:52
想看看里面的VBA代码

作者: asas1 时间: 2009-10-11 15:16
http://www.office-cn.net/bbs/dispbbs.asp?boardID=73&ID=281

作者: asas1 时间: 2009-10-11 15:21
努力学习中!!!!!!

作者: czjim 时间: 2009-10-11 21:32
Private Sub cmdyes_Click()

Dim Temp As String
If IsNull(Me![User_PassWord]) Then
MsgBox "您输入的密码不能为空，请重新输入！", vbOKOnly, "警告信息"
Else
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Temp = "SELECT T_User.* FROM T_User WHERE T_User.UserName='" & Me.User_Name & "' AND T_User.PassWord='" & Me.User_PassWord & "';"
Rs.Open Temp, CurrentProject.Connection, adOpenKeyset, adLockPessimistic
If Rs.RecordCount > 0 Then
DoCmd.Close
DoCmd.OpenForm "F_PurchaseLog", acNormal, "", "", acFormReadOnly, acWindowNormal
Else
MsgBox "您输入的用户名和密码有误，请重新输入！", vbOKOnly, "警告信息"
End If
Rs.Close
Set Rs = Nothing
End If

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)