実際は、代替えの関数がないものもあるかもしれないが、今回は検索窓を出すだけのものなので解決!
Public Sub Func3Push()
On Error GoTo Err_Func3Push
Me.ACCOUNT.SetFocus
‘SendKeys “^f” ‘ctrl + f ‘ SendKeysにはバグがあるらしく、 numlockがオンオフするときがある。環境によるのか???2018.3.5win10の端末で確認できた。
‘よって下記に変更してみた。
DoCmd.RunCommand acCmdFind
Err_Func3Push:
Exit Sub
End Sub