VBA Module to Find/Replace
I have one table tbl_status with two column:
OLD_num and NEW_num
Something like this:
Than I have table with data tbl_Articles
Now I will like to make VBA function to loop thru table tbl_Article and if find any of number listed in table tbl_status under field OLD_num to replace with NEW_num
I hope I did explain well, English is my second language
Thank you for taking the time to report an issue.
What's wrong... Please write below.
I want to perform editing module(s) and macro(s) from different access database(s).
no progress in editing ( find/replace text ) macro,
well this is my code for replacing word in module ( please see attachment )
its only works when in the same database,
but as soon as I add 'Set Dbs = OpenDatabase(dbname) it didnt work
The catch is: The table has 600K records in it.
So when I use CTRL H (Find and Replace), it works great.but only for the first 10000 records or so. It won't do any after that.
Then I found a module:
Public Function fReplace(ByVal Expression As String, ByVal Find As String, ByVal Replace As String) As String
Dim strTmp As String, n As Integer
* Learn about using the Find and Replace dialog box
* Find and replace data in a table
* Find and replace data in a form
* Find data in a query result set
* Find wildcard characters
* Examples of wildcards in use
* Find quotation marks and null or blank values
* Find and Replace dialog box control reference
I want to create a Module to replace FilterForm with one of the four sort filters (FilterSortA, FilterSortB, etc.) depending on a parameter I pass to the Module.
My problem is I cannot seem to find a Module statement which will allow me to copy/overlay FilterForm with FilterSortA. In Macro language there is a DeleteObj and CopyObj command but I have to hardcode the FilterSort names which I want to avoid.
So my question is, is there a statement(s) which I can code in a Module which will allow me to replace FilterForm with FilterSortA, FilterSortB, etc.? Thank you for your time.
I tried using find a replace and Finding * and replacing with *U2 but that just replaces everything with literally *U2.
I have tried using combinations of ^&U2 with similar results.
Is there a simple way to accomplish this using the Find/replace dialog box
While working with Access and VBA There are many VBA codes which we use very frequently for example:
Private Sub close_Click()
How to save this as Module and then call to a button
The problem I'm having is setting it back to True when the dialog is closed. I've found that if I set it before the Find dialog is closed, the Replace tab will magically appear when it gets focus again. Is there a way to tell if the dialog is still open before allowing edits?