Rabu, 19 Januari 2022

Re: [MSAccessProfessionals] ReLink procedures

Relationships are in the back so they shouldn't be affected. I recall there is a checkbox that forces changing the links to the original or at least a different back from the current. This should be the same as when you prepare for vacation. 

No Zwift for me at the moment. I'm using the free RGT but it's not as engaging :-(

Duane

Sent from my mobile

On Jan 19, 2022, at 12:31 PM, Bill Singer <Bill.Singer@at-group.net> wrote:



I tried Relink and have 4 tables that said "Table's relationships will be deleted before relink. Do you want to continue?"

 

 

Bill

 

Bill Singer

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Duane Hookom
Sent: Wednesday, January 19, 2022 12:06 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] ReLink procedures

 

 Bill,

Simple, don't take work on vacation! Take your bike. 

 

Do you edit data in the back-end? Does anyone else edit data while you are on vacation? Have you considered having a PC set up at work that you can remote into? If you simply make changes to the front-end, you should be able to use the linked table manager to connect to the work back-end. 

 

Duane

Sent from my mobile



On Jan 19, 2022, at 11:11 AM, Bill Singer <Bill.Singer@at-group.net> wrote:



Periodically I take a copy of my front end and back end and put them on a laptop computer so I can take my work with me on vacation.

 

I continue to struggle with the proper procedure to re-link the two data bases on the new computer.  I seem to end up with duplicate tables every time and have to go through and delete and rename.

 

 

Bill Singer

 

 

Re: [MSAccessProfessionals] ReLink procedures

After reading, I see how to set up remoted desktop but I am not sure how to make it secure at this point.  I will keep working on it.

 

Bill

 

Bill Singer

 

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Duane Hookom
Sent: Wednesday, January 19, 2022 12:06 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] ReLink procedures

 

 Bill,

Simple, don't take work on vacation! Take your bike. 

 

Do you edit data in the back-end? Does anyone else edit data while you are on vacation? Have you considered having a PC set up at work that you can remote into? If you simply make changes to the front-end, you should be able to use the linked table manager to connect to the work back-end. 

 

Duane

Sent from my mobile



On Jan 19, 2022, at 11:11 AM, Bill Singer <Bill.Singer@at-group.net> wrote:



Periodically I take a copy of my front end and back end and put them on a laptop computer so I can take my work with me on vacation.

 

I continue to struggle with the proper procedure to re-link the two data bases on the new computer.  I seem to end up with duplicate tables every time and have to go through and delete and rename.

 

 

Bill Singer

 

 

Re: [MSAccessProfessionals] ReLink procedures

I tried Relink and have 4 tables that said "Table's relationships will be deleted before relink. Do you want to continue?"

 

 

Bill

 

Bill Singer

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Duane Hookom
Sent: Wednesday, January 19, 2022 12:06 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] ReLink procedures

 

 Bill,

Simple, don't take work on vacation! Take your bike. 

 

Do you edit data in the back-end? Does anyone else edit data while you are on vacation? Have you considered having a PC set up at work that you can remote into? If you simply make changes to the front-end, you should be able to use the linked table manager to connect to the work back-end. 

 

Duane

Sent from my mobile



On Jan 19, 2022, at 11:11 AM, Bill Singer <Bill.Singer@at-group.net> wrote:



Periodically I take a copy of my front end and back end and put them on a laptop computer so I can take my work with me on vacation.

 

I continue to struggle with the proper procedure to re-link the two data bases on the new computer.  I seem to end up with duplicate tables every time and have to go through and delete and rename.

 

 

Bill Singer

 

 

Re: [MSAccessProfessionals] ReLink procedures

Duane,

Yes, I wish it was a biking vacation. It would be much more fun than Zwift.

 

I use the database for reference.  I don't edit the date because it doesn't save on the master copy.  I wish I could but ….

Yes, other people use the database while I am gone.

I would like to be able to set up that I can remote into.   I have Windows 11 professional so I think it is possible, but I do not know how.

 

 

When I open the front end and go to the linked table manager I see the data source name and data source information pointing to the location of the original back end.

 

What next?  Do I relink or Add.   When I add, I get duplicate tables.  I just tried to relink and it is going through the tables one at a time.

 

 

Any tips on setting up Remote PC.

 

 

Bill

 

Bill Singer

 

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Duane Hookom
Sent: Wednesday, January 19, 2022 12:06 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] ReLink procedures

 

 Bill,

Simple, don't take work on vacation! Take your bike. 

 

Do you edit data in the back-end? Does anyone else edit data while you are on vacation? Have you considered having a PC set up at work that you can remote into? If you simply make changes to the front-end, you should be able to use the linked table manager to connect to the work back-end. 

 

Duane

Sent from my mobile



On Jan 19, 2022, at 11:11 AM, Bill Singer <Bill.Singer@at-group.net> wrote:



Periodically I take a copy of my front end and back end and put them on a laptop computer so I can take my work with me on vacation.

 

I continue to struggle with the proper procedure to re-link the two data bases on the new computer.  I seem to end up with duplicate tables every time and have to go through and delete and rename.

 

 

Bill Singer

 

 

Re: [MSAccessProfessionals] ReLink procedures

 Bill,
Simple, don't take work on vacation! Take your bike. 

Do you edit data in the back-end? Does anyone else edit data while you are on vacation? Have you considered having a PC set up at work that you can remote into? If you simply make changes to the front-end, you should be able to use the linked table manager to connect to the work back-end. 

Duane

Sent from my mobile

On Jan 19, 2022, at 11:11 AM, Bill Singer <Bill.Singer@at-group.net> wrote:



Periodically I take a copy of my front end and back end and put them on a laptop computer so I can take my work with me on vacation.

 

I continue to struggle with the proper procedure to re-link the two data bases on the new computer.  I seem to end up with duplicate tables every time and have to go through and delete and rename.

 

 

Bill Singer

 

 

[MSAccessProfessionals] ReLink procedures

Periodically I take a copy of my front end and back end and put them on a laptop computer so I can take my work with me on vacation.

 

I continue to struggle with the proper procedure to re-link the two data bases on the new computer.  I seem to end up with duplicate tables every time and have to go through and delete and rename.

 

 

Bill Singer

 

 

Re: [MSAccessProfessionals] Error 70 permission denied

Duane,
Thanks, I solved the issue by adding me.refresh after me.allowedits.
The form has a lot of code and subforms,

Norbert 
_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

View/Reply Online (#116176) | Reply To Group | Reply To Sender | Mute This Topic | New Topic
Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]

_._,_._,_

[MSAccessProfessionals] Slow search next / previous on remote server in VPN

I had to move the backend of a project to a remote server and connect it via VPN.
 
if I search for a specific serial number example:
SELECT serialnumber
FROM tbl Transformer
WHERE serialnumber = '2020001513-001'
the answer is immediate
 
but if I do it via the next / previus button example:
 
next:
SELECT TOP 1 serialnumber
FROM tbl Transformer
WHEREserialnumber)> '2020001513-001'
ORDER BY tblTransformer.serialnumber
 
Previous:
SELECT TOP 1 serialnumber
FROM tbl Transformer
WHERE serialnumber <'2020001513-001'
ORDER BY serialnumber DESC
 
the first time it takes 30 seconds to find the record, then it finds it almost immediately. However, if I change my sense of research, it always takes 30 seconds the first time.
 
Is there a faster way?
 
Thank you very much
Domenico
_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

View/Reply Online (#116175) | Reply To Group | Reply To Sender | Mute This Topic | New Topic
Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]

_._,_._,_

Rabu, 12 Januari 2022

Re: [MSAccessProfessionals] Error 70 permission denied

Jim

 

If it used to work and now doesn’t you can blame it on a patch. Perhaps, MS decided to tighten up its sloppy VBA.

 

Arnelito might have hit on the cause if the error code is to be believed. First thing I would do is check to see if any other processes are running when this code fires. If there aren’t any then go through your code to make sure you set all objects to Nothing when you are through with them as you did with:

Set objFSO = Nothing

 

I know this must be frustrating to you. Code that suddenly stops working is very difficult to debug.

 

One more thing…It might be a sign of code page corruption. Importing everything into a new, blank database might help.

 

Regards,

Bill Mosca

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Jim Wagner
Sent: Wednesday, January 12, 2022 7:49 AM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Error 70 permission denied

 

Arnelito,

 

I do not understand that if this has worked for at least a year, why would it all of a sudden do this?

 

Jim Wagner


From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of Arnelito Puzon <agpuzon@gmail.com>
Sent: Wednesday, January 12, 2022 3:30 AM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: Re: [MSAccessProfessionals] Error 70 permission denied

 

Error 70, means the file is in use. meaning some process is using the file.

 

--

Arnelito G. Puzon

Re: [MSAccessProfessionals] Error 70 permission denied

Arnelito,

I do not understand that if this has worked for at least a year, why would it all of a sudden do this?

Jim Wagner

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of Arnelito Puzon <agpuzon@gmail.com>
Sent: Wednesday, January 12, 2022 3:30 AM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: Re: [MSAccessProfessionals] Error 70 permission denied
 
Error 70, means the file is in use. meaning some process is using the file.

--
Arnelito G. Puzon


Re: [MSAccessProfessionals] Error 70 permission denied

Bill,

I did a copy of the database and it let me do it in the target folder. 

Jim Wagner

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of Bill Mosca <wrmosca@comcast.net>
Sent: Tuesday, January 11, 2022 3:58 PM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: Re: [MSAccessProfessionals] Error 70 permission denied
 

Jim

 

What about permissions on the Source folder? Can you manually copy the current DB to your target? If the file is in use (which it obviously is if you re using CurrentDB) maybe that is where the hang-up is.

 

Regards,

Bill Mosca

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of luvmymelody via groups.io
Sent: Tuesday, January 11, 2022 2:41 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Error 70 permission denied

 

Bill,

Thank You for the compliment. Not every piece of code is formatted like that but it helps me to read it.

 

So I do not see anything wrong when i hover on the reval line everything is looking at the correct date and the source is correct. that is why I changed to the c drive for the thought that the network drive was not connected or something else. but I am getting the same error.

 

Jim Wagner


 

 

On Tuesday, January 11, 2022, 08:06:33 AM MST, Jim Wagner <josephwagner2@outlook.com> wrote:

 

 

Hello all,

This morning i ran a piece of code that has been working for quite a long time and today i received a runtime error 70, Permission denied.
when I debug it is on
                retval = objFSO.CopyFile(Source, Target, True)
the source is a network folder

I tried changing the location to a folder on my c drive but I received the error anyway. It is part of an If statement but this has been working for a year now. Has there been another update that has caused this?

Is there something i need to change or is this a permanent situation?
Thank You for any advice offered.

Jim Wagner
Here is my code below

      Dim varX As Variant

        If DLookup("[RunReportDate]", "[tblPayDates]", "[RunReportDate] = Date()+1") Then
                MsgBox "The Hyperion dates will be changed and a copy of the database is being created. be patient until the message declares the database copy has completed"

                Dim Source As String
                Dim Target As String
                Dim retval As Integer

                Source = CurrentDb.Name

                'This is the only thing to change - add the path of where you want the file to save here
                'Target = "W:\ADMINISTRATIVE SERVICES DATABASES\MANAGEMENT SUPPORT SERVICES T-A-P\PAYROLL RECONCILIATION DATABASE\Archive\Backup_Payroll_Reconciliation_Database_"
                 Target = "C:\DirectReports\Backup_Payroll_Reconciliation_Database_"
                Target = Target & Format(Date, "mm-dd") & ".accdb"

                ' create the backup
                retval = 0
                Dim objFSO As Object
                Set objFSO = CreateObject("Scripting.FileSystemObject")
                retval = objFSO.CopyFile(Source, Target, True)
                Set objFSO = Nothing

                'Opens the folder of the file you just created
                'Application.FollowHyperlink "W:\ADMINISTRATIVE SERVICES DATABASES\MANAGEMENT SUPPORT SERVICES T-A-P\PAYROLL RECONCILIATION DATABASE\Archive\"
                Application.FollowHyperlink "C:\DirectReports\"

                MsgBox "Process has completed. " _
                & vbCrLf & vbCrLf _
                & "The database has been backed up into the Archives folder with the current date for example " _
                & "Backup_Payroll_Reconciliation_Database_09-03" _
                & vbCrLf & vbCrLf _
                & "The folder has opened for you to review the copied database", vbInformation, "Database Process"

        Else

                MsgBox "Data has updated"
                
        End If

Re: [MSAccessProfessionals] AllowEdits False still allows Edit

Norbert,
I would do a quick test by creating a new, simple form like the existing one and test the same code. 

Duane

Sent from my mobile

On Jan 12, 2022, at 8:30 AM, drnorbert@gmail.com wrote:

The form is open in  DoCmd.OpenForm strForm, , ,strWhere, acFormReadOnly
Form Property Allow Edits = No
On Load Event
Me.fsubInsClient.Form.AllowEdits = False
Me.AllowEdits = False
The form still editable!!!!
Is this an indication of a bug?
Norbert 

[MSAccessProfessionals] AllowEdits False still allows Edit

The form is open in  DoCmd.OpenForm strForm, , ,strWhere, acFormReadOnly
Form Property Allow Edits = No
On Load Event
Me.fsubInsClient.Form.AllowEdits = False
Me.AllowEdits = False
The form still editable!!!!
Is this an indication of a bug?
Norbert 

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

View/Reply Online (#116170) | Reply To Group | Reply To Sender | Mute This Topic | New Topic
Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]

_._,_._,_

Re: [MSAccessProfessionals] Error 70 permission denied

Error 70, means the file is in use. meaning some process is using the file.

--
Arnelito G. Puzon


_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

View/Reply Online (#116169) | Reply To Group | Reply To Sender | Mute This Topic | New Topic
Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]

_._,_._,_

Selasa, 11 Januari 2022

Re: [MSAccessProfessionals] Error 70 permission denied

Jim

 

What about permissions on the Source folder? Can you manually copy the current DB to your target? If the file is in use (which it obviously is if you re using CurrentDB) maybe that is where the hang-up is.

 

Regards,

Bill Mosca

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of luvmymelody via groups.io
Sent: Tuesday, January 11, 2022 2:41 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Error 70 permission denied

 

Bill,

Thank You for the compliment. Not every piece of code is formatted like that but it helps me to read it.

 

So I do not see anything wrong when i hover on the reval line everything is looking at the correct date and the source is correct. that is why I changed to the c drive for the thought that the network drive was not connected or something else. but I am getting the same error.

 

Jim Wagner


 

 

On Tuesday, January 11, 2022, 08:06:33 AM MST, Jim Wagner <josephwagner2@outlook.com> wrote:

 

 

Hello all,

This morning i ran a piece of code that has been working for quite a long time and today i received a runtime error 70, Permission denied.
when I debug it is on
                retval = objFSO.CopyFile(Source, Target, True)
the source is a network folder

I tried changing the location to a folder on my c drive but I received the error anyway. It is part of an If statement but this has been working for a year now. Has there been another update that has caused this?

Is there something i need to change or is this a permanent situation?
Thank You for any advice offered.

Jim Wagner
Here is my code below

      Dim varX As Variant

        If DLookup("[RunReportDate]", "[tblPayDates]", "[RunReportDate] = Date()+1") Then
                MsgBox "The Hyperion dates will be changed and a copy of the database is being created. be patient until the message declares the database copy has completed"

                Dim Source As String
                Dim Target As String
                Dim retval As Integer

                Source = CurrentDb.Name

                'This is the only thing to change - add the path of where you want the file to save here
                'Target = "W:\ADMINISTRATIVE SERVICES DATABASES\MANAGEMENT SUPPORT SERVICES T-A-P\PAYROLL RECONCILIATION DATABASE\Archive\Backup_Payroll_Reconciliation_Database_"
                 Target = "C:\DirectReports\Backup_Payroll_Reconciliation_Database_"
                Target = Target & Format(Date, "mm-dd") & ".accdb"

                ' create the backup
                retval = 0
                Dim objFSO As Object
                Set objFSO = CreateObject("Scripting.FileSystemObject")
                retval = objFSO.CopyFile(Source, Target, True)
                Set objFSO = Nothing

                'Opens the folder of the file you just created
                'Application.FollowHyperlink "W:\ADMINISTRATIVE SERVICES DATABASES\MANAGEMENT SUPPORT SERVICES T-A-P\PAYROLL RECONCILIATION DATABASE\Archive\"
                Application.FollowHyperlink "C:\DirectReports\"

                MsgBox "Process has completed. " _
                & vbCrLf & vbCrLf _
                & "The database has been backed up into the Archives folder with the current date for example " _
                & "Backup_Payroll_Reconciliation_Database_09-03" _
                & vbCrLf & vbCrLf _
                & "The folder has opened for you to review the copied database", vbInformation, "Database Process"

        Else

                MsgBox "Data has updated"
                
        End If

Re: [MSAccessProfessionals] Error 70 permission denied

Bill,
Thank You for the compliment. Not every piece of code is formatted like that but it helps me to read it.

So I do not see anything wrong when i hover on the reval line everything is looking at the correct date and the source is correct. that is why I changed to the c drive for the thought that the network drive was not connected or something else. but I am getting the same error.

Jim Wagner


On Tuesday, January 11, 2022, 08:06:33 AM MST, Jim Wagner <josephwagner2@outlook.com> wrote:


Hello all,

This morning i ran a piece of code that has been working for quite a long time and today i received a runtime error 70, Permission denied.
when I debug it is on
                retval = objFSO.CopyFile(Source, Target, True)
the source is a network folder

I tried changing the location to a folder on my c drive but I received the error anyway. It is part of an If statement but this has been working for a year now. Has there been another update that has caused this?

Is there something i need to change or is this a permanent situation?
Thank You for any advice offered.

Jim Wagner
Here is my code below

      Dim varX As Variant

        If DLookup("[RunReportDate]", "[tblPayDates]", "[RunReportDate] = Date()+1") Then
                MsgBox "The Hyperion dates will be changed and a copy of the database is being created. be patient until the message declares the database copy has completed"

                Dim Source As String
                Dim Target As String
                Dim retval As Integer

                Source = CurrentDb.Name

                'This is the only thing to change - add the path of where you want the file to save here
                'Target = "W:\ADMINISTRATIVE SERVICES DATABASES\MANAGEMENT SUPPORT SERVICES T-A-P\PAYROLL RECONCILIATION DATABASE\Archive\Backup_Payroll_Reconciliation_Database_"
                 Target = "C:\DirectReports\Backup_Payroll_Reconciliation_Database_"
                Target = Target & Format(Date, "mm-dd") & ".accdb"

                ' create the backup
                retval = 0
                Dim objFSO As Object
                Set objFSO = CreateObject("Scripting.FileSystemObject")
                retval = objFSO.CopyFile(Source, Target, True)
                Set objFSO = Nothing

                'Opens the folder of the file you just created
                'Application.FollowHyperlink "W:\ADMINISTRATIVE SERVICES DATABASES\MANAGEMENT SUPPORT SERVICES T-A-P\PAYROLL RECONCILIATION DATABASE\Archive\"
                Application.FollowHyperlink "C:\DirectReports\"

                MsgBox "Process has completed. " _
                & vbCrLf & vbCrLf _
                & "The database has been backed up into the Archives folder with the current date for example " _
                & "Backup_Payroll_Reconciliation_Database_09-03" _
                & vbCrLf & vbCrLf _
                & "The folder has opened for you to review the copied database", vbInformation, "Database Process"

        Else

                MsgBox "Data has updated"
                
        End If

Re: [MSAccessProfessionals] Error 70 permission denied

Hi Jim

 

First of all, let me say I love your code. It's clean, properly indented and easy to follow. Over the course of my carrier, I've rarely see this quality.

 

Let's debug this thing to find what the real error is.

 

Put a break on the line retval = 0

 

When the code breaks open the Immediate window (Ctrl+G). Check the DLookup output to make sure it is doing its job in finding what you want. A simple Debug.Print will print out the value in the Immediate Window.

 

Hover your mouse pointer over "Target" and "Source" to make sure their values are exactly what you were expecting. It looks like it should work as is, but it's important to double-check just to make sure.

 

Are there any surprises?

 

Regards,

Bill Mosca

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Jim Wagner
Sent: Tuesday, January 11, 2022 7:07 AM
To: MSAccessProfessionals@groups.io
Subject: [MSAccessProfessionals] Error 70 permission denied

 

Hello all,

This morning i ran a piece of code that has been working for quite a long time and today i received a runtime error 70, Permission denied.
when I debug it is on
                retval = objFSO.CopyFile(Source, Target, True)
the source is a network folder

I tried changing the location to a folder on my c drive but I received the error anyway. It is part of an If statement but this has been working for a year now. Has there been another update that has caused this?

Is there something i need to change or is this a permanent situation?
Thank You for any advice offered.

Jim Wagner
Here is my code below

      Dim varX As Variant

        If DLookup("[RunReportDate]", "[tblPayDates]", "[RunReportDate] = Date()+1") Then
                MsgBox "The Hyperion dates will be changed and a copy of the database is being created. be patient until the message declares the database copy has completed"

                Dim Source As String
                Dim Target As String
                Dim retval As Integer

                Source = CurrentDb.Name

                'This is the only thing to change - add the path of where you want the file to save here
                'Target = "W:\ADMINISTRATIVE SERVICES DATABASES\MANAGEMENT SUPPORT SERVICES T-A-P\PAYROLL RECONCILIATION DATABASE\Archive\Backup_Payroll_Reconciliation_Database_"
                 Target = "C:\DirectReports\Backup_Payroll_Reconciliation_Database_"
                Target = Target & Format(Date, "mm-dd") & ".accdb"

                ' create the backup
                retval = 0
                Dim objFSO As Object
                Set objFSO = CreateObject("Scripting.FileSystemObject")
                retval = objFSO.CopyFile(Source, Target, True)
                Set objFSO = Nothing

                'Opens the folder of the file you just created
                'Application.FollowHyperlink "W:\ADMINISTRATIVE SERVICES DATABASES\MANAGEMENT SUPPORT SERVICES T-A-P\PAYROLL RECONCILIATION DATABASE\Archive\"
                Application.FollowHyperlink "C:\DirectReports\"

                MsgBox "Process has completed. " _
                & vbCrLf & vbCrLf _
                & "The database has been backed up into the Archives folder with the current date for example " _
                & "Backup_Payroll_Reconciliation_Database_09-03" _
                & vbCrLf & vbCrLf _
                & "The folder has opened for you to review the copied database", vbInformation, "Database Process"

        Else

                MsgBox "Data has updated"
                
        End If

Re: [MSAccessProfessionals] Backend issues

We had that problem as well. Discovered that it was a update from microsoft. There is an update that should fix it.

Jim Wagner
_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

View/Reply Online (#116165) | Reply To Group | Reply To Sender | Mute This Topic | New Topic
Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]

_._,_._,_

[MSAccessProfessionals] Error 70 permission denied

Hello all,

This morning i ran a piece of code that has been working for quite a long time and today i received a runtime error 70, Permission denied.
when I debug it is on
                retval = objFSO.CopyFile(Source, Target, True)
the source is a network folder

I tried changing the location to a folder on my c drive but I received the error anyway. It is part of an If statement but this has been working for a year now. Has there been another update that has caused this?

Is there something i need to change or is this a permanent situation?
Thank You for any advice offered.

Jim Wagner
Here is my code below

      Dim varX As Variant

        If DLookup("[RunReportDate]", "[tblPayDates]", "[RunReportDate] = Date()+1") Then
                MsgBox "The Hyperion dates will be changed and a copy of the database is being created. be patient until the message declares the database copy has completed"

                Dim Source As String
                Dim Target As String
                Dim retval As Integer

                Source = CurrentDb.Name

                'This is the only thing to change - add the path of where you want the file to save here
                'Target = "W:\ADMINISTRATIVE SERVICES DATABASES\MANAGEMENT SUPPORT SERVICES T-A-P\PAYROLL RECONCILIATION DATABASE\Archive\Backup_Payroll_Reconciliation_Database_"
                 Target = "C:\DirectReports\Backup_Payroll_Reconciliation_Database_"
                Target = Target & Format(Date, "mm-dd") & ".accdb"

                ' create the backup
                retval = 0
                Dim objFSO As Object
                Set objFSO = CreateObject("Scripting.FileSystemObject")
                retval = objFSO.CopyFile(Source, Target, True)
                Set objFSO = Nothing

                'Opens the folder of the file you just created
                'Application.FollowHyperlink "W:\ADMINISTRATIVE SERVICES DATABASES\MANAGEMENT SUPPORT SERVICES T-A-P\PAYROLL RECONCILIATION DATABASE\Archive\"
                Application.FollowHyperlink "C:\DirectReports\"

                MsgBox "Process has completed. " _
                & vbCrLf & vbCrLf _
                & "The database has been backed up into the Archives folder with the current date for example " _
                & "Backup_Payroll_Reconciliation_Database_09-03" _
                & vbCrLf & vbCrLf _
                & "The folder has opened for you to review the copied database", vbInformation, "Database Process"

        Else

                MsgBox "Data has updated"
                
        End If
_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

View/Reply Online (#116164) | Reply To Group | Reply To Sender | Mute This Topic | New Topic
Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]

_._,_._,_

Re: [MSAccessProfessionals] Backend issues

Now that everyone is back from the holiday vacation I have had no complaints.   I will check with them to make sure.

 

 

Bill

 

Bill Singer

 

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Bill Mosca
Sent: Monday, January 10, 2022 3:06 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

 

Bill-
I read somewhere that the latest patches fixed the "single user" bug in Access. And you weren't on a short list. It affected all users who had installed the buggy Office update. Once again, MS has made Office so complex that the slightest change in one piece can have terrible consequences and the amount of testing by MS corporate developers is never thorough.

 
--

Regards,

Bill Mosca, Founder - MS_Access_Professionals

Microsoft Office Access MVP 2010-2016

My nothing-to-do-with-Access blog

 



On Wed, Dec 15, 2021 at 05:36 AM, Bill Singer wrote:

This is causing a small inconvenience due to the holidays.  Any guess on how long it takes for Microsoft to come up with fixes for these types of issues.   Maybe I will just wait rather than try and roll back all the computers.

 

Bill

 

Bill Singer

 

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of crystal (strive4peace) via groups.io
Sent: Wednesday, December 15, 2021 6:56 AM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

 

The Access team is aware of this problem. For those affected by the latest patch adversely, here are instructions to rollback to an earlier version:

For MSI builds, see: Information about the ability to uninstall Office
��� https://docs.microsoft.com/office/troubleshoot/office/ability-to-uninstall-office

For Microsoft 365, see: How to revert to an earlier version of Office 2016 Click-to-Run
��� https://support.microsoft.com/help/2770432/how-to-revert-to-an-earlier-version-of-office-2013-or-office-2016-clic

kind regards,
crystal

On 12/14/2021 3:50 PM, Graham Mandeno via groups.io wrote:

Hi Bill

It looks like the two Win 11 machines were updated overnight.

Does it make any difference if you open in on the Win 10 machine first?

- Graham

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Bill Singer
Sent: Wednesday, 15 December 2021 08:25
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

Win 11 pro� Microsoft� Access� for Microsoft 365 MSO (Version 2111 Build 16.0.14701.20204) 32-bit

Win 11 pro� Microsoft� Access� for Microsoft 365 MSO (Version 2111 Build 16.0.14701.20240) 32-bit

Win 10 home� Microsoft� Access� for Microsoft 365 MSO (Version 2110 Build 16.0.14527.20234) 32-bit

�

�

Bill

�

Bill Singer

�

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Graham Mandeno via groups.io
Sent: Tuesday, December 14, 2021 1:08 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

Hi Bill

If this just started suddenly this morning then I would suspect an overnight update to MS Office (especially as it�s Tuesday!)

Can you please check what Access build each computer is running (File > Account > About Access).

You should see a page of information and licence guff, and up the top there is something like this:
Microsoft� Access� 2016 MSO (Version 2110 Build 16.0.14527.20234) 32-bit

which you can right-click on and copy.

Please report back for all three computers.

Best wishes
Graham

�

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Bill Singer
Sent: Wednesday, 15 December 2021 07:33
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

All computers have Access set to run in the �Shared� mode.

All users open the Access Database by opening Access first and then clicking on the most recent file.

�

I can copy the BE once all users close access.

�

�

Bill

�

Bill Singer

�

�

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Bill Mosca
Sent: Tuesday, December 14, 2021 11:51 AM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

Bill � It could be that the first user is opening the� database in exclusive mode. That would block all other users. Open Access without opening any databases. Under File > Options> client settings>advanced: check that each user ha the default mode set to �Shared�

�

This has to be checked for all users. Also, how are they opening the database? If they are double-clicking it in the Windows Explorer, this action will automatically open the database in exclusive mode.

�

Regards,
Bill Mosca,
Founder, MS_Access_Professionals

MS Access MVP 2006-2016
My Nothing-to-do-with-Access blog

https://wrmosca.wordpress.com

�

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Bill Singer
Sent: Tuesday, December 14, 2021 9:34 AM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

Now I have also noticed that if I try and make a copy of the Backend file, it says it the action can�t be completed because the file is in use by another user.��

�

Bill

�

Bill Singer

�

From: bill.singer@at-group.net <bill.singer@at-group.net>
Sent: Tuesday, December 14, 2021 11:29 AM
To: 'MSAccessProfessionals@groups.io' <MSAccessProfessionals@groups.io>
Subject: RE: [MSAccessProfessionals] Backend issues

�

Here are the 3 windows versions I have.

�

Microsoft Windows 11 pro.

Microsoft Windows 11 pro.

Microsoft Windows 10 home, has not been updated yet.

�

It appears as if everyone has the permission to create a file (Microsoft word) in the folder that the Backend is stored, and then delete the same folder.

�

�

�

�

�

Bill

�

 

�

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of crystal (strive4peace) via groups.io
Sent: Tuesday, December 14, 2021 10:57 AM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

hi Bill,

�

I've seen this problem when users have Windows HOME instead of a business version where more sharing and security is possible.

�

kind regards,
crystal

�

On 12/14/2021 10:50 AM, Duane Hookom wrote:

Hi Bill,

�

Do you see the locking file in the folder containing the backend database file? Can all users create and delete files in the backend folder?

�

Regards,

Duane

�


From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of Bill Singer <Bill.Singer@at-group.net>
Sent: Tuesday, December 14, 2021 10:44 AM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: [MSAccessProfessionals] Backend issues

�

A strange thing happened this morning.

�

I have Windows 11 on 3 computers that all run Office 365 Access.

I have a Front end Access database running on all three computers and they all link to the one Backend database.� Never had a problem until this morning.� Now only one computer can access the backend database at a time.� Once it is opened on one computer, the other two can�t log in.

�

Any thoughts?

�

Bill

�

Bill Singer

Minnesota

�

�

 

Senin, 10 Januari 2022

Re: [MSAccessProfessionals] Backend issues

Bill-
I read somewhere that the latest patches fixed the "single user" bug in Access. And you weren't on a short list. It affected all users who had installed the buggy Office update. Once again, MS has made Office so complex that the slightest change in one piece can have terrible consequences and the amount of testing by MS corporate developers is never thorough.

 
--
Regards,
Bill Mosca, Founder - MS_Access_Professionals
Microsoft Office Access MVP 2010-2016
My nothing-to-do-with-Access blog




On Wed, Dec 15, 2021 at 05:36 AM, Bill Singer wrote:

This is causing a small inconvenience due to the holidays.  Any guess on how long it takes for Microsoft to come up with fixes for these types of issues.   Maybe I will just wait rather than try and roll back all the computers.

 

Bill

 

Bill Singer

 

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of crystal (strive4peace) via groups.io
Sent: Wednesday, December 15, 2021 6:56 AM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

 

The Access team is aware of this problem. For those affected by the latest patch adversely, here are instructions to rollback to an earlier version:

For MSI builds, see: Information about the ability to uninstall Office
��� https://docs.microsoft.com/office/troubleshoot/office/ability-to-uninstall-office

For Microsoft 365, see: How to revert to an earlier version of Office 2016 Click-to-Run
��� https://support.microsoft.com/help/2770432/how-to-revert-to-an-earlier-version-of-office-2013-or-office-2016-clic

kind regards,
crystal

On 12/14/2021 3:50 PM, Graham Mandeno via groups.io wrote:

Hi Bill

It looks like the two Win 11 machines were updated overnight.

Does it make any difference if you open in on the Win 10 machine first?

- Graham

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Bill Singer
Sent: Wednesday, 15 December 2021 08:25
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

Win 11 pro� Microsoft� Access� for Microsoft 365 MSO (Version 2111 Build 16.0.14701.20204) 32-bit

Win 11 pro� Microsoft� Access� for Microsoft 365 MSO (Version 2111 Build 16.0.14701.20240) 32-bit

Win 10 home� Microsoft� Access� for Microsoft 365 MSO (Version 2110 Build 16.0.14527.20234) 32-bit

�

�

Bill

�

Bill Singer

�

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Graham Mandeno via groups.io
Sent: Tuesday, December 14, 2021 1:08 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

Hi Bill

If this just started suddenly this morning then I would suspect an overnight update to MS Office (especially as it�s Tuesday!)

Can you please check what Access build each computer is running (File > Account > About Access).

You should see a page of information and licence guff, and up the top there is something like this:
Microsoft� Access� 2016 MSO (Version 2110 Build 16.0.14527.20234) 32-bit

which you can right-click on and copy.

Please report back for all three computers.

Best wishes
Graham

�

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Bill Singer
Sent: Wednesday, 15 December 2021 07:33
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

All computers have Access set to run in the �Shared� mode.

All users open the Access Database by opening Access first and then clicking on the most recent file.

�

I can copy the BE once all users close access.

�

�

Bill

�

Bill Singer

�

�

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Bill Mosca
Sent: Tuesday, December 14, 2021 11:51 AM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

Bill � It could be that the first user is opening the� database in exclusive mode. That would block all other users. Open Access without opening any databases. Under File > Options> client settings>advanced: check that each user ha the default mode set to �Shared�

�

This has to be checked for all users. Also, how are they opening the database? If they are double-clicking it in the Windows Explorer, this action will automatically open the database in exclusive mode.

�

Regards,
Bill Mosca,
Founder, MS_Access_Professionals

MS Access MVP 2006-2016
My Nothing-to-do-with-Access blog

https://wrmosca.wordpress.com

�

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Bill Singer
Sent: Tuesday, December 14, 2021 9:34 AM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

Now I have also noticed that if I try and make a copy of the Backend file, it says it the action can�t be completed because the file is in use by another user.��

�

Bill

�

Bill Singer

�

From: bill.singer@at-group.net <bill.singer@at-group.net>
Sent: Tuesday, December 14, 2021 11:29 AM
To: 'MSAccessProfessionals@groups.io' <MSAccessProfessionals@groups.io>
Subject: RE: [MSAccessProfessionals] Backend issues

�

Here are the 3 windows versions I have.

�

Microsoft Windows 11 pro.

Microsoft Windows 11 pro.

Microsoft Windows 10 home, has not been updated yet.

�

It appears as if everyone has the permission to create a file (Microsoft word) in the folder that the Backend is stored, and then delete the same folder.

�

�

�

�

�

Bill

�



�

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of crystal (strive4peace) via groups.io
Sent: Tuesday, December 14, 2021 10:57 AM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Backend issues

�

hi Bill,

�

I've seen this problem when users have Windows HOME instead of a business version where more sharing and security is possible.

�

kind regards,
crystal

�

On 12/14/2021 10:50 AM, Duane Hookom wrote:

Hi Bill,

�

Do you see the locking file in the folder containing the backend database file? Can all users create and delete files in the backend folder?

�

Regards,

Duane

�


From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of Bill Singer <Bill.Singer@at-group.net>
Sent: Tuesday, December 14, 2021 10:44 AM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: [MSAccessProfessionals] Backend issues

�

A strange thing happened this morning.

�

I have Windows 11 on 3 computers that all run Office 365 Access.

I have a Front end Access database running on all three computers and they all link to the one Backend database.� Never had a problem until this morning.� Now only one computer can access the backend database at a time.� Once it is opened on one computer, the other two can�t log in.

�

Any thoughts?

�

Bill

�

Bill Singer

Minnesota

�

�

 

_._,_._,_

Groups.io Links:

You receive all messages sent to this group.

View/Reply Online (#116162) | Reply To Group | Reply To Sender | Mute This Topic | New Topic
Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]

_._,_._,_