vba - 在继续论坛中替换文本框中的文本

Question

更改表单的文本框值很简单。但是如何更改每条记录上的 Continues Forum 的文本框？

onLoad 事件不起作用，因为它仅针对第一条记录进行更改。有任何想法吗？

示例代码：

Private Sub Form_Load()
    txb_name.Value = txb_name.Value & "Test"
End Sub

在此示例中，继续表单如下所示：

 Text1Test
 Text2
 Text3
 Text4
 Text5
 Text6

请注意它如何只更改了第一条记录。

我需要的是这样的：

 Text1Test
 Text2Test
 Text3Test
 Text4Test
 Text5Test
 Text6Test

Answer 1

使用在 RecordSource 中调用我自己的函数找到了解决方案：

=myFunction(fieldName)

然后，您可以将任何您想要的内容放入函数中

Function myFunction(fieldNameAs String)
    myFunction= fieldName& "Test"
End Function

这将遍历所有记录，而不仅仅是第一个。

Answer 2

为什么不通过 SQL 更新底层数据源？

Option Compare Database
Option Explicit

Private Sub Form_Load()
    DoCmd.RunSQL "UPDATE myTable SET myField = myField + 'Test'"
End Sub