在Continues论坛中替换文本框中的文本

Question

更改表单的文本框值非常简单。但是如何在每条记录上更改Continues论坛的文本框？

onLoad事件不起作用，因为它只是为第一条记录而改变。有什么想法吗？

示例代码：

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

在此示例中，Continues Form将如下所示：

 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