How get rid of 'Replace' tab in 'Find & Replace' window

  • Thread starter Thread starter Guest
  • Start date Start date
This seems to work ok:

Private Sub butFind_Click()
On Error GoTo ER
Screen.PreviousControl.SetFocus
Me.AllowEdits = False 'Suppress REPLACE tab
DoCmd.RunCommand acCmdFind
Me.AllowEdits = True 'Restore state
Exit Sub
ER:
Me.AllowEdits = True
MsgBox Err.Description
End Sub
 
That's not a bad workaround.

Check that any edits are saved before you do this, e.g. add the line:
If Me.Dirty Then Me.Dirty = False
immediately before you turn off AllowEdits.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

2003 Remove "Replace" From Toolbar Find 2
Windows 10 One of my previous builds is experiencing random, multiple BSODs 9
Hide the REPLACE tab problem 2
How do I get Rid of the Circumflex Accent (Caret) 2
Disable Replace Tab in dialogbox 4
MS ACCESS 2013 Long Text filed filter by another tables Long text field 1
Find/Replacing large sections of code 2
News Fuchsia - a new operating system from Google to replace Android 2

Back
Top