ACCESS有权限登要求的录窗口集锦.docxVIP

ACCESS 登录权限 1我做了一个access的登录窗体，在加入代码后能够成功的登录，但是不能控制数据库权限， 2011-06-21 11:26 昏睡的猫1号 | 分类：数据库DB | 浏览621次我做了一个access的登录窗体，在加入代码后能够成功的登录，但是不能控制数据库权限，也就是说我那个登录窗体即使不用密码登录也可以关闭和打开数据库，求不能够区分管理员和用户，两者都可以修改数据库，这是我的代码Private Sub cmdYes_Click()On Error GoTo er If IIf(IsNull(Me.用户名), , Me.用户名) = Or IIf(IsNull(Me.密码), , Me.密码) = Then MsgBox 请输入用户名和密码！, vbInformation, 登录 Me.用户名.SetFocus Exit Sub End If Dim rst As New ADODB.Recordset rst.Open select 用户名 from 用户 where 用户名= Me.用户名 and 密码= Me.密码 , CurrentProject.AccessConnection, adOpenForwardOnly, adLockReadOnly If rst.EOF Then MsgBox 用户名或密码错误，请重新输入！, vb