选中复选框时，数据表视图将值插入到字段中

Posted 2023-04-19

【中文标题】选中复选框时，数据表视图将值插入到字段中

【英文标题】：Datasheet View insert value in to field when checkbox is checked

【发布时间】：2015-11-10 19:40:07

【问题描述】：

我有一个表单作为数据表视图，并在里面添加了一个复选框列。

假设带有复选框的列是 A 列，右边是 B 列。

当 A 列的复选框被标记为选中时，如何在 B 列中插入一些文本。我需要以某种方式找出复选框所在的当前行，并从带有复选框的行中获取记录的 ID，然后在数据库表中为该特定 ID 运行 SQL 插入，例如： SQL = "UPDATE table SET columnB='string' WHERE ID= ROWid;"

如何从数据表视图中进行行选择部分？

【参考方案1】：

基本上 Access 不是使用行而是使用数据集。这意味着特别是在这里 Access 的反应与 Excel 非常不同。

您是否只选中了一个复选框，还是允许用户在插入所需值之前检查不同的复选框？

在 Checkbox 上添加 AfterUpdate 事件并添加：

Private Sub Checkbox_AfterUpdate()

Dim strUser As String

strUser = CurrentUser()

If [Checkbox] = True Then
    [UserName] = strUser
Else
    [UserName] = ""
End If
End Sub

[UserName] 是右侧列中的（文本）字段。通过用户管理，您可以使用登录名。如果不是，您可以使用当前用户或 Windows 登录名。

CurrentUser() 主要返回“Admin”。如果您正在寻找 Windows 用户名，请查看此处：

Retrieve the user name from Windows

【讨论】：

你好。我想让用户单击一个复选框，例如用红色突出显示的复选框，然后在右列插入已选中该框的用户的用户名，它实际上是一个检查，一个标记，表明用户已经验证了该特定记录。

在复选框上添加更新后事件并添加 vba 代码，如：Nz([UserName],0)="username"

喜欢吗？我认为最好编辑您的答案并将解决方案放在那里，这样我就可以对您的答案进行投票，这样您就可以获得投票积分。

是的，例如:-)...我没有关于您的数据库中的字段名称的详细信息。使用我的答案中所述的代码并进行相应调整。干杯

获取 Windows 用户名的更简单方法：GetUserName = CreateObject("WScript.Network").UserName。请参阅 ***.com/questions/32562670/… - 感谢 HansUp。