#265
Accessでは、[編集]-[置換]メニューによって置換ダイアログを表示させることができますが、コマンドボタンのクリックによって特定のテキストボックスを対象とした置換ダイアログを表示させる方法です。
以下の例では、"cmd置換"という名前のボタンをクリックすることによって、"顧客名"という名前のテキストボックス（フィールド）を検索対象とした置換ダイアログを表示します。
Private Sub cmd置換_Click()
'cmd置換のクリック時イベント
'フォーカスを顧客名に移動
Me!顧客名.SetFocus
'置換ダイアログを表示
DoCmd.RunCommand acCmdReplace
End Sub
'cmd置換のクリック時イベント
'フォーカスを顧客名に移動
Me!顧客名.SetFocus
'置換ダイアログを表示
DoCmd.RunCommand acCmdReplace
End Sub
実行結果
