2

在 MSAccess (2007) 表单上的简单查找操作对话框中，我想在“查找和替换”框出现时将“字段的任何部分”设为默认值。

实际的默认值为“整个字段”。我虽然可以用以下行来改变它：

DoCmd.FindRecord " ", acAnywhere, , , , , False

但这没有任何区别。其余代码工作正常（与命令按钮相关联）。但是上面的那行不管它是否存在都没有任何作用。请帮忙。我有以下代码：

Private Sub AppNAppFind_Click()
On Error GoTo AppNAppFind_Click_Err

On Error Resume Next
Err.Clear

DoCmd.FindRecord " ", acAnywhere, , , , , False
DoCmd.RunCommand acCmdFind


If (MacroError <> 0) Then
    Beep
    MsgBox MacroError.Description, vbOKOnly, ""
End If


AppNAppFind_Click_Exit:
   Exit Sub

AppNAppFind_Click_Err:
   MsgBox Error$
   Resume AppNAppFind_Click_Exit

我正在使用 Access 2007。

4

2 回答 2

1

以下代码在 Access 2010 中适用于我。

Private Sub myFind_Click()
DoCmd.GoToControl "=[Screen].[PreviousControl].[Name]"
DoCmd.FindRecord " ", acAnywhere, False, acSearchAll, False, acCurrent, False
DoCmd.RunCommand acCmdFind
End Sub

我验证了这台机器上“查找”的默认访问权限是“整个字段”，但是当我单击我的按钮时，查找对话框为“匹配”选择了“字段的任何部分”。

于 2013-06-15T09:33:33.400 回答
0

我不确定这是否是 Access 2007 中的一个选项，但在 Access 2016 中，您可以转到File > Options > Client Settings并查找Default find/replace behaviour并将其从Fast searchto更改General search，它将默认查找设置设置为 Look in:Current document和 match in Any Part of Field。

此设置适用于客户端，将在您打开的任何访问数据库中有效并且是持久的。

于 2017-11-08T17:25:32.467 回答