VBA代码必须得会吗？

playnoa

最近在做公司的进销存系统，只要实现出入库记录和库存查询即可，一本书学到最后发现一个登陆验证需要VBA代码来完成
代码应该是在校验登陆的信息，我的疑问是这些操作必须得通过代码实现吗？有没有可能通过GUI点击来实现？因为从零开始学VBA需要很长时间才能做到以下代码的能力
代码示例

1. Option Compare Database
   
2. Option Explicit
   
3. Dim mrc As ADODB.Recordset
   
4. Dim txtSQL As String
   
5. Dim i As Integer  '记录错误次数
   
6. 
   
7. Private Sub 登录_Click()
   
8. On Error GoTo Err_确定_Click '错误处理
   
9. '判断用户名是否为空
   
10. If IsNull(用户名) Then
    
11. MsgBox "请输入用户名!", vbCritical, "提示"
    
12.   用户名.SetFocus
    
13. Else
    
14.   txtSQL = "SELECT * from 管理员 where 用户名='" & 用户名 & "'"
    
15. Set mrc = ExeSQL(txtSQL)
    
16.    If mrc.EOF Then
    
17.      MsgBox "没有该用户!", vbCritical, "提示"
    
18.    Else
    
19.      If (mrc(1) = 密码) Then
    
20.      mrc.Close
    
21.      Set mrc = Nothing
    
22.      check = True
    
23.      Me.Visible = False
    
24.       '打开主切换面板
    
25.      DoCmd.OpenForm "主切换面板"
    
26.     Else
    
27.         i = i + 1
    
28.         If (i < 3) Then
    
29.         MsgBox "您输入的密码不正确", vbOKOnly + vbExclamation, "提示"
    
30.         Else
    
31.         MsgBox "你已经连续3次错误输入密码，系统马上关闭！", vbOKOnly + vbExclamation, "警告"
    
32.                 DoCmd.Close acForm, Me.Name  '关闭当前窗体
    
33.                 DoCmd.Quit  '退出数据库
    
34.                 Exit Sub
    
35.        End If
    
36.      密码.SetFocus
    
37.      密码.Text = ""
    
38.     End If
    
39.   End If
    
40. End If
    
41. Err_确定_Click: '错误处理
    
42.     Exit Sub
    
43. Err_关闭_Click:
    
44.     MsgBox (Err.Description)
    
45.     Resume Err_确定_Click
    
46. End Sub
    
47. 
    
48. 
    
49. Private Sub 关闭_Click()
    
50. If (MsgBox("确实要退出吗？", vbQuestion + vbYesNo, "确认") = vbYes) Then
    
51. DoCmd.Quit acQuitSaveNone
    
52. End If
    
53. End Sub
    

复制代码

playnoa

苦于市面上关于access VBA的书籍和教程太少，大部分都是Excel的，难道access的应用真的很窄？

admin

要写功能灵活的程序，必须要有代码的支持的。有些功能可以通过宏来处理，但是宏毕竟是代码块，太重，未必能达到想要的效果。

playnoa

竟然不允许编辑帖子