Office中国论坛/Access中国论坛

标题: 请教ADP数据操作问题？ [打印本页]

作者: zjyubin 时间: 2008-12-14 20:46
标题: 请教ADP数据操作问题？
第一项功能描述：
选用户名后下面自动显示用户ID号及左边的子窗体会显示用户相关的信息，不会出现别的用户住息。（在ADP中不能执行）
Private Sub 用户名_AfterUpdate()

On Error Resume Next
Me![ID] = DLookup("ID", "系统用户", "用户名='" & Me![用户名] & "'")
End Sub

第二项功能描述：
点击“删除用户“，会删除掉选中的用户相关信息。（在ADP中不能执行）
Private Sub cmdDelUser_Click()

On Error GoTo Err_cmdDelUser_Click

Dim SQL As String

If Me![用户名] = "Admin" Then

MsgBox "不能删除管理员帐号!", 64, "错误"

Else

DoCmd.SetWarnings False

SQL = "DELETE * " & _

"FROM 系统用户 " & _

"WHERE 系统用户.用户名=Forms![系统权限管理]![用户名]"

DoCmd.RunSQL SQL

SQL = "DELETE * " & _

"FROM 系统权限 " & _

"WHERE 系统权限.ID = Forms![系统权限管理]![ID]"

DoCmd.RunSQL SQL

Me![frmsub].Requery

Me![用户名].Requery

Me![用户名] = Null

Me![ID] = Null

MsgBox "该用户相关资料删除完成！", , "　"

DoCmd.SetWarnings True

End If
Exit_cmdDelUser_Click:

Exit Sub

Err_cmdDelUser_Click:

MsgBox Err.Descriptio n, 16, "出错"

Resume Exit_cmdDelUser_Click
End Sub

作者: kelind 时间: 2008-12-14 23:25
1,Dlookup在SQL中不能使用.
2,用存储过程

作者: Grant 时间: 2008-12-15 03:10
ADP中应用ADO,存储过程,视图等方式来进行对数据操作

作者: zjyubin 时间: 2008-12-15 17:02
谢谢两位的指导！能否提供ADP数据操作的具体方法。谢谢！

作者: gdjdyyj 时间: 2010-2-1 16:07
期待！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)