[图解]ACCESS数据库也可以这样做—"登陆界面"四步成

493388750 · 发表于 2016-1-11 20:31

什么内容啊？

惜梦篱落 · 发表于 2017-3-15 23:00

本帖最后由惜梦篱落于 2017-3-15 23:02 编辑

求助，我用Access数据库软件做了一个管理系统，但是登录的时候代码不知怎么的，出现错误，新人一个，照着书上的一步一步的来做，但是不对，求助一下，代码如下

   On Error GoTo Err_Ok_Click

   Dim strSQL As String

   Dim RS As New ADODB.Recordset

   If IsNull(Me.UserName) Or Me.UserName = "" Then

      DoCmd.Beep

      MsgBox ("请输入用户名!")

      ElseIf IsNull(Me.Password) Or Me.Password = "" Then

      DoCmd.Beep

      MsgBox ("请输入密码!")

Else

      strSQL = "SELECT*FROM 管理员 WHERE 用户名=" '&Me.UserName&"'and 密码="'&Me.Password"'"

      Set RS = GetRS(strSQL)

      If RS.EOF Then

         DoCmd.Beep

         MsgBox ("用户名或密码错误")

         Me.UserName = ""

         Me.Password = ""

         Me.UserName.SetFocus

         Exit Sub

      Else

         DoCmd.Close

         Check = Ture

         DoCmd.OpenForm ("主切换面板")

         End If

         End If

         Set RS = Nothing

Exit_Ok_Click:

   Exit Sub

Err_Ok_Click:

   MsgBox (Err.Description)

   Debug.Print Err.Description

   Resume Exit_Ok_Click:

End Sub

jso110 · 发表于 2017-6-9 09:50

收藏，谢谢。

zysun · 发表于 2017-7-28 09:05

女生？还是漂亮女生，厉害呀！

年轻人·老梦 · 发表于 2018-9-2 15:26

是新人，最近在解决类似问题，求可以解决

may1588 · 发表于 2019-1-7 13:56

你好，本人小白一个，有个系统，也想做个登录见面，http://club.excelhome.net/forum. ... ead&tid=1455369，各位大神，帮帮忙啊，工程密码：yp1121,其余：6个8 。万分感谢

Strive_TL · 发表于 2019-7-8 14:27

厉害了我的姐，好好学习学习

aerny · 发表于 2020-10-1 15:41

来学习下！

m446781380 · 发表于 2022-7-28 16:35

学习一下咯

jieack · 发表于 2022-8-24 10:03

小白一个，我也是来学习的

		自动登录	找回密码
密码			免费注册

[原创] [图解]ACCESS数据库也可以这样做—"登陆界面"四步成

最新热点 /1