有一个复选框更新表中的字段

编程问答 2022-05-21

问题描述

对 vba 感到沮丧...

我试图让用户单击表单上的复选框，该复选框指示支持请求是否已解决，以及解决日期和用户单击了该复选框。

我已使用 WScript.UserName 在变量 GetUserName 中获取网络 ID。

我的表中有两个字段：

解决日期 已解决

当复选框为 True 时，我希望用适当的数据填充这两个字段，如果复选框为 False，则我希望删除数据。

这是我使用的代码：

Dim GetUserName As String
GetUserName = CreateObject("WScript.Network").UserName
Text45.Text = GetUserName
End Sub

请注意，Text45 是表单上的视觉对象，它显示用户名（显示为空白）并向我显示一条消息，除非它具有焦点，否则无法引用属性。这是问题 2。

复选框的附加代码如下所示：

Dim GetUserName As String
If Resolved = 1 Then
    ResolvedDate.Text = Now()
    ResolvedBy.Text = GetUserName
End If
End Sub

这里根本没有任何作用。我也尝试将代码更改为

Dim GetUserName As String
If Resolved = 1 Then
    ResolvedDate.Text = Now()
    ResolvedBy.Text = text45.Text
End If
End Sub

因为 GetUserName() 在 Form_Onload() 事件中是私有的，所以我也在复选框 AfterUpdate() 事件中复制了它，但它仍然不起作用。 （我知道 - 编码效率不高）

当数据失去焦点以在其他地方使用后，我无法弄清楚如何将数据保存在值中，而且我无法完成这些字段。

有人可以帮忙吗？谢谢。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ms-access-2016vba