序言：
- 验证错误：
验证错误
- 验证正确：则打开主窗口
验证正确
实现代码：
Private Sub CommandButton1_Click()‘点击“确定”按钮的事件代码 '定义变量 Dim rs As Recordset Dim strSQL As String '检查用户名和密码是否为空 If Me.txtUserName = "" Or Me.txtPassword = "" Then MsgBox "用户名或密码不能为空!", vbCritical + vbOKOnly, "错误" Exit Sub End If '查询用户名和密码是否匹配 strSQL = "SELECt * FROM tblUsers WHERe UserName='" & Me.txtUserName & "' AND Password='" & Me.txtPassword & "'" Set rs = CurrentDb.OpenRecordset(strSQL) '检查记录集是否为空 If rs.EOF Then MsgBox "用户名或密码错误!", vbCritical + vbOKOnly, "错误" Exit Sub Else DoCmd.Close acForm, Me.Name '关闭登录窗口 DoCmd.OpenForm "frmMain" '打开主窗口 End IfEnd SubPrivate Sub Form_Load()'加载背景图片，可以更改为其他图片路径。Me.Image1.Picture = Application.CurrentProject.Path & "\background.jpg"End Sub这是一个使用VBA在Access中创建登录界面的示例代码。请注意，您需要根据您的数据库和表格进行相应的调整。你可以将上述代码复制并粘贴到登录窗口的代码视图中。你还需要创建一个名为tblUsers的表格，其中包含UserName和Password字段，并添加一些用户记录。此外，你还需要在登录窗口中添加文本框（用于输入用户名和密码）和命令按钮（用于触发上述代码），并将它们分别命名为txtUserName、txtPassword和CommandButton1
ntent='{"id":"7144934542116129799","wmzz_card_type":0,"title":"高效办公：玩转Access数据库","text":"刘璐","highlight_text":"","image_style":3,"image_url":"http://p3-novel.byteimg.com/large/novel-pic/19ad80a8a1e3654041f65c871da728a2","image_uri":"novel-pic/19ad80a8a1e3654041f65c871da728a2","width":640,"height":813,"schema":"sslocal://novel_business?url=https%3A%2F%2Fnovel.snssdk.com%2Ffeoffline%2Fnovel_reader%2Fnovel%2Fbook%2Freader%2Fv2%2Fpage%2Findex.html%3Fbook_id%3D7144934542116129799%26category_name%3D%26enter_from%3Dheadline%26group_id%3D7144937404279819297%26groupid%3D7144937404279819297%26item_id%3D7144937404279819297%26parent_enterfrom%3D&should_append_common_param=1&bounce_disable=1&hide_more=1&hide_bar=1&hide_status_bar=1&hide_back_buttonView=1&style_canvas=1&status_bar_color=black&use_offline=1&use_wk=1&novel_page_type=novel_reader&genre=6&sub_genre=1"}'>（此处已添加书籍卡片，请到今日头条客户端查看）
希望这对你有所帮助！如果你有其他问题，请随时告诉我。
下一篇将给大家介绍数据备份和数据恢复功能的设计方法。
