如何在窗体中当选择某个角色时，一次性把多条记录输入到表中。

AAAA　发表于：2018-08-07 10:35:43 　

复制

如何在窗体中当选择某个角色时，一次性把多条记录输入到表中。
如：当选择数据审核员角色时，即显示从Tbl_权限按键表中读取的数据，当选择数据操作员角色时。

从Tbl_权限按键表中读取不到时，或读取的不全时，即从Tbl_窗体按键表中导入全部的记录到从Tbl_权限按键表。

并配上数据操作员角色。当选择信息查询员角色时，也一样处理。
目的是新增角色就从Tbl_窗体按键中来导入窗体按键到Tbl_权限按键表中。选择角色，点击导入。

AAAA

Top

伊西军发表于：2018-08-07 10:51:46

http://www.accessoft.com/article-show.asp?id=16562

http://www.accessoft.com/article-show.asp?id=6432

Top

AAAA 发表于：2018-08-07 12:58:46

谢谢，能说具体点吗。能帮改一下，做个案例吗。除了要把窗体名称和按键名称导入，还要把角色ID也给弄进来。

Top

仙来发表于：2018-08-07 13:45:03

可分两步:一;将除角色ID外的角色ⅠD为数据审核员的字段追加到表，二:将角色为空的更新到你选择的角色。

Top

AAAA 发表于：2018-08-08 16:00:17

谢谢仙来，把角色为空的更新到选择的角色如何写：

Private Sub 导入_Click()
Dim strSQL As String
Dim lng As Long
strSQL = "insert into Tbl_权限按键(窗体名称,按键名称) select 窗体名称,按键名称 from tbl_窗体按键"
CurrentProject.Connection.Execute strSQL, lng
MsgBox "成功追加记录【" & lng & "】条！", vbInformation
Me.Frm_权限按键_List_Child.Requery
End Sub

Top

仙来发表于：2018-08-08 17:26:18

再执行一个更新查询，角色ID为空

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

如何在窗体中当选择某个角色时，一次性把多条记录输入到表中。