这个问题通常是由于在表单的非绑定文本框中编写了重复的值引起的。解决方法是使用VBA代码，在文本框的AfterUpdate事件中添加一些代码，以确保值只输入一次并在记录保存后重置。

例如，假设表单名称为'myForm”，文本框名称为'myTextBox”，则可以使用以下代码：

Private Sub myTextBox_AfterUpdate() 'Check if value already exists in current record' If DCount("FieldName", "TableName", "FieldName='" & Me.myTextBox & "'") > 0 Then 'Value already exists, reset text box' MsgBox "Value already exists in current record." Me.myTextBox.Undo Else 'Value does not exist, add to record' MsgBox "Value successfully added to record." End If End Sub

其中，'FieldName”表示要检查的字段名称，'TableName”表示包含该字段的表名称。使用此代码，如果文本框中的值已经在当前记录中存在，则会显示消息框并将文本框重置。如果该值不存在，则会向该记录中添加该值。

请注意，将代码中的字段名称和表名称替换为实际的名称，并根据需要更改消息框内容。此外，还可以修改代码来满足其他要求，例如根据特定条件禁用文本框等。