Contact US

Question

rename current database

ameedoo3000 (IS/IT--Management)

(OP)

14 Nov 23 19:45

hi every body
how can i rename my current database after close it automaticly with vba code

dhookom (Programmer) · Answer 1 · 2023-11-14 23:11:33

This is a bit unusual. I can't imagine this is possible without opening your database with another program or script that pauses when your database is open and then renames after it is closed.

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

ameedoo3000 (IS/IT--Management) · Answer 2 · 2023-11-15 14:50:27

RE: rename current database

ameedoo3000 (IS/IT--Management)

(OP)

15 Nov 23 14:50

Is there any solution or trick?

dhookom (Programmer) · Answer 3 · 2023-11-15 14:59:28

I would try open the Access file with a simple batch file and then renames the Access file after it closes. Have you tried this?

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

Andrzejek (Programmer) · Answer 4 · 2023-11-15 16:50:40

I would like to know - WHY do you want to do it ponder

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

ameedoo3000 (IS/IT--Management) · Answer 5 · 2023-11-16 03:31:19

I already did this through another Access file and the name was not changed. I did it again using bat file and the name was not changed either.
The file whose name is to be changed must be closed first, then another file can be opened through which the name can be changed.... Is there no other way?

dhookom (Programmer) · Answer 6 · 2023-11-16 05:02:46

So apparently you won’t share the purpose for this request?

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

ameedoo3000 (IS/IT--Management) · Answer 7 · 2023-11-16 14:58:04

The purpose of changing the file name and extension after completing work on it is to hide it and not steal it

dhookom (Programmer) · Answer 8 · 2023-11-16 15:19:28

You stated "I already did this" but provided little detail on what exactly you tried. I did a simple search of the web and found this thread using /wait.

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

ameedoo3000 (IS/IT--Management) · Answer 9 · 2023-11-16 15:56:40

What is the code when closing an access file (renaming it) using the Start /wait statement?

dhookom (Programmer) · Answer 10 · 2023-11-16 16:32:58

Do a search on "batch file commands" and maybe include "rename".

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

Andrzejek (Programmer) · Answer 11 · 2023-11-16 16:39:11

Quote (ameedoo3000)
I already did this [rename the file?] through another Access file and the name was not changed

How did you do it? What did you try? Code sample would be nice to see.
Was the file 'not in use' any more? Not used by any other process?

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

Andrzejek (Programmer) · Answer 12 · 2023-11-16 21:21:12

CODE

Private Sub RenameFile()
Dim strPath As String
Dim strOrgFile As String
Dim strNewFile As String

strPath = "C:\SomeFolder\"
strOrgFile = "MyFile.txt"
strNewFile = "NewFileName.xyz"

Name strPath & strOrgFile As strPath & strNewFile

End Sub

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

dhookom (Programmer) · Answer 13 · 2023-11-16 21:44:33

Andy,
I believe the OP wants to rename the current Access file which can't be done while the file is open.

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

ameedoo3000 (IS/IT--Management) · Answer 14 · 2023-11-16 21:56:56

The Access file that I want to keep, I save it on the hard disk without an extension, so as not to steal it on it, and when I want to use it, it is through another Access file, which changes the name and extension, and then runs it... as shown vba code
1- Name "File path and name without extension" As "File path and name with extension "
2- Call OpenAccessDatabase("File path and name with extension ")
All I want is when I close this file, its name, location, and extension are changed so as not to steal it
I tried this code in the file closing event and the requested change did not occur
1- Docmd.quit
2- Name "File path and name with extension" As "File path and name without extension "
I tried to open the bat file after closing the access file, and it contains instructions to change the name and extension of the access file, but nothing was changed either... as shown.
1- Docmd.quit
2- Dim myPath As String
3- myPath = "file path\filename.bat"
4- Call Shell(myPath, 1)

dhookom (Programmer) · Answer 15 · 2023-11-16 22:10:56

Rather than using Call OpenAccessDatabase, run a batch/cmd file that does the renaming as per my previous suggestions.

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

Andrzejek (Programmer) · Answer 16 · 2023-11-17 13:12:13

His logic "is through another Access file", I would assume after he closes the 'main' Access database that he wants to rename. Am I correct?

What I don't get is: "extension are changed so as not to steal it"
Who is going to steal your file from your hard drive ponder

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

ameedoo3000 (IS/IT--Management) · Answer 17 · 2023-11-17 13:14:28

When running the patch file through the Access file while it is closed, it does not do what is required, and the file remains without changing its name and extension.

dhookom (Programmer) · Answer 18 · 2023-11-17 14:39:42

I assume your “patch file” was actually a batch file. Can you share the text of the batch file so we know what you tried?

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

combo (TechnicalUser) · Answer 19 · 2023-11-17 14:57:24

Quote (ameedoo3000)
I save it on the hard disk without an extension, so as not to steal it on it, and when I want to use it

So why not run it directly from hidden place?
Code (in Excel, but can be any application that supports VBA), required reference to Access library:

CODE -->

Sub OpenAccessDB()
Dim AccessApp As Access.Application
Set AccessApp = New Access.Application
With AccessApp
    .Visible = True
    .OpenCurrentDatabase "Path_and_database_name_here"
End With
Set AccessApp = Nothing
End Sub

combo

Andrzejek (Programmer) · Answer 20 · 2023-11-17 20:04:19

combo,
Could these 2 lines:

CODE

Dim AccessApp As Access.Application
Set AccessApp = New Access.Application

be done in one line:

CODE

Dim AccessApp As New Access.Application

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

ameedoo3000 (IS/IT--Management) · Answer 21 · 2023-11-17 21:50:36

It seems that we have fallen far from the desired goal
Anyway, I will simplify things so that my goals become clear
On my desktop, I have two Access files, file A has no extension, and file B has the extension. All I want is him
1- Open file B through file A after changing its extension.
2- When you close file A, its extension is changed to no extension (automatically) to become as it was.
Is this possible or impossible?

combo (TechnicalUser) · Answer 22 · 2023-11-17 22:00:34

I used to instantiate objects in the first way. I've heard that it works faster (after 'As New' declaration, in every call of object VB checks if the object is instantiated) and is safer (test with condition myObject Is Nothing is always false).

combo

dhookom (Programmer) · Answer 23 · 2023-11-18 14:43:15

I tested this batch/cmd file using a link I posted much earlier.

CODE --> RunRename.cmd

@echo off
cd \data\access
REN Wordle.xxx Wordle.accdb

START  /wait "C:\Program Files (x86)\Microsoft Office\root\Office16\MSACCESS.EXE" "c:\data\access\Wordle.accdb"
REN Wordle.accdb Wordle.xxx

The code will change to the appropriate directory, rename the Access file, run the Access file, wait until the user exits the Access file, and renames the Access file.

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

ameedoo3000 (IS/IT--Management) · Answer 24 · 2023-11-18 20:01:56

Thank you very much, my dear "dhookom".
It was a very perfect solution and exactly what I wanted.. Thank you very much.

ameedoo3000 (IS/IT--Management) · Answer 25 · 2023-11-18 21:24:22

Please.. How can no error message appear in error cases?
For example "file not found" error

dhookom (Programmer) · Answer 26 · 2023-11-18 21:55:38

Spell everything correctly. You could have a different location for your Access file. We can’t tell because you didn’t share anything.

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

ameedoo3000 (IS/IT--Management) · Answer 27 · 2023-11-19 12:45:00

The recommended steps were implemented correctly and what was required was implemented successfully. I thank you for that. But there is a possibility that this file () will be stolen and run on another computer. Then an error message will appear explaining that the path or name of the file has changed, and thus the whole matter will be exposed. Therefore, I would like not to show any error message in the patch file code... That's all. I hope I made it clear

dhookom (Programmer) · Answer 28 · 2023-11-19 14:30:37

Again, it’s “batch”, not “patch”. You should be able to search the web for batch commands to do what you want. I searched to find your solution. I didn’t know anything about the WAIT command prior to reading your question.

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

ameedoo3000 (IS/IT--Management) · Answer 29 · 2023-11-19 15:25:14

Thank you for correcting my spelling mistakes. Thank you for your effort

combo (TechnicalUser) · Answer 30 · 2023-11-19 16:48:04

Quote (ameedoo3000)
But there is a possibility that this file () will be stolen and run on another computer.

If the file is critical, just password protect the database, so the file will be useless without knowing the password. You will also need a secure copy, to restore data if the file was destroyed/deleted.

combo

SkipVought (Programmer) · Answer 31 · 2023-11-19 17:02:15

I remember doing a similar thing in Excel to attempt to make it foolproof for requiring the user to ENABLE MACROS. It takes a lot of thought and knowledge of the properties and methods of objects and Events.

The key was in the Save event, as I recall, to make the application appear to have only ONE useless sheet while all other sheets were very hidden. If the user ENABLED MACROS, the very hidden sheets were made visible. When the application would close, it would make all sheets but one very hidden before saving and closing. Didn't matter where it was saved.

Well one weak spot was that although the VBA was password protected, that could be cracked.

With user-friendly DIY applications like Access or Excel, they are thus vulnerable to tampering. You need an executable to distribute, that you generate from your personal master.

Skip,
_{Just traded in my OLD subtlety...

for a NUance!}
"The most incomprehensible thing about the universe is that it is comprehensible" A. Einstein

You Matter...
unless you multiply yourself by the speed of light squared, then...
You Energy!

Contact US

Come Join Us!

Posting Guidelines

rename current database 2

rename current database

rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

Quote (ameedoo3000)

RE: rename current database

CODE

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

Quote (ameedoo3000)

CODE -->

RE: rename current database

CODE

CODE

RE: rename current database

RE: rename current database

RE: rename current database

CODE --> RunRename.cmd

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

RE: rename current database

Quote (ameedoo3000)

RE: rename current database

Red Flag This Post

Red Flag Submitted

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Join Tek-Tips® Today!

rename current database
2

Join Tek-Tips^® Today!