How to Automatically Insert Code Into Current Code - Access Developer Forum


	Back to Access Developer Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

How to Automatically Insert Code Into Current Code

Tom Juric

14 months ago

I am updating an old database with over 200 forms. Most forms have multiple SUBs. There is currently NO error checking. I would like to INSERT "OnError GoTo" AND instructions to 1.Create and Error Message and 2. Store the message in a TEXT file. (I have this code, and it works great). Later the user can Email me the text file.

Does anyone know of any code or way to INSERT this code automatically where I do not have to scroll through each form and each SUB then paste the required data?

	Tom Juric OP @Reply 14 months ago
I forgot this: I need this code to be INSERTED 1: Part A at start of SUB 2: Part B near end of SUB

	Sami Shamma @Reply 14 months ago
Custom MsgBox

	Alex Hedley @Reply 14 months ago
You could VCS / GitHub to export all the code. Write some PowerShell or VBA to add the code to all the Forms Then recompile the db.

	John Davy @Reply 14 months ago
Hi Tom Is there a key word or key text at the point of insertion? If so, you might do a search and replace with Philipp Steifel's AccDev HTH Johnf

Tom Juric OP @Reply

14 months ago

John, I tried a search and replace on "()" which comes at the end of the SUB name, [Private Sub Form_Open()]
but could not find a way to ADD a line after the (). I tried vbCfCr, ^p, Chr symbols in the REPLACE box but it would not work. If I could figure out a way to ADD the line in the Find/Replace box I could make this happen. Here is the line of Code I need to ADD and what it should look like:

Private Sub Form_Open()
On Error GoTo err_pos

I will try the other two options later today

	Matt Hall @Reply 14 months ago
You could write it like this. Private Sub Form_Open(): On Error GoTo err_pos

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Developer Forum.

Next Unseen

New Feature: Comment Live View