[求助]如何制作登录窗口

winner

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

czjim

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

asas1

努力学习中!!!!!!

asas1

http://www.office-cn.net/bbs/dispbbs.asp?boardID=73&ID=281

feig120

想看看里面的VBA代码

xhbqt

还是不太明白，基本功差啊

xhbqt

越是想学，越是学不到啊

zhousailor

haohaoxuexue

一点通

可参考一下这个例子

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