使用从同一文本框中删除记录的相同按钮将记录添加到文本框中

Question

我在VBA中执行此命令的访问表单中有一个按钮

Private Sub Command12_Click()
On Error GoTo Command12_Click_Err

If Not IsNull (txtSearchbar) Then
  DoCmd.ApplyFilter "", "[Progress] Like "*" & [Forms]![APIReleasing]![txtSearchbar] & ""*""",""
  DoCmd.RunCommand acCmdDeleteRecord
End Sub

问题是我还想添加在txtSearchbar中输入的相同信息以添加到另一个文本框中。那我该怎么做呢？

Answer 1

我会使用此过滤条件：

"[Progress] Like '*" & Me.txtSearchbar & "*'"

将文字添加到另一个文本框：

Me.txtAnotherTextBox.Value = Me.txtSearchbar.Value

.Value可以省略，但在某些情况下可能会导致错误的结果。