Search results

As additional info, I am using Access 365 but computers in our office also use 2013 and 2016 versions.

I want to do late binding on an Excel application object but I am having an Error 1004 (Unable to set the WindowState property of the Application class) if I do it that way. The code runs fine when the Excel object library is referenced. Dim objExcel As Object Dim objWorkbook As...

I find it easier on the eyes. My Duckduckgo theme is also dark so as my Youtube and Facebook themes. Glad that you made this an option. (y)

Just saying I like the new dark theme!

I was hasty with the previous answer I did not try all possibilities. It seems it was doing the job too good that the backups are being done even before one week has passed. Anyway, I simplified it and hope this I have it correct this time :oops: 'If at least one week has passed since last...

Yes, it did.

You may have a new mac address but your ip address stays the same if you are using the same internet connection.

Changed the logic to this: 'If at least one week has passed since last backup, do the backup on the first opportunity Do until i > 0 Date() 'Msgbox "1 The date is: " & dteCounter & " : " & Date() IF dteCounter >= Date() Then BackupData() i = 1 End If dteCounter =...

Thank you for the suggestion! I'll modify it to do the backup if it finds that 7 or more days have elapsed since the last backup. That way in any event that the backup did not happen on the seventh day, it will do it on the first opportunity in the succeeding days.

Yes we backup our database once a week on the same day. The script is in the task scheduler and runs daily. Backup is triggered when the current date is 7 days after the last backup.

I am learning everyday. Thanks MajP! I'll take your advice and implement this.

I would have suggested to uninstall the Wireless LAN driver from device manager then reinstall it.

Yup you're right MajP! There's a lightbulb that suddenly lit in my head :) The code is working now as intended. Thank you for the comments. Here's my final code: Dim strDate, dteCounter strDate = GetLastFile("Man","d:\Data Backup\") 'Get filename of latest backup strDate =...

Thanks for the reply but it still gives me 2/6/2020. Maybe I should mention that my OS is Win10 LTSC, if that makes any difference.

If I do this: Dim strDate, dteCounter, dteCounter2 strDate = "Manpower Data (2020-01-23).accdb" strDate = Right(Left(strDate,Len(strDate)-7),10) dteCounter = cdate(Month(strDate) & "/" & Day(strDate) & "/" & Year(strDate)) dteCounter2 = cdate("01/23/2020") MsgBox "The date is: " & (dteCounter)...

What is wrong with this code? I am finding the last file backup with date in the filename e.g. Filename_(2020-01-23).ext. I can extract the date expression from the filename but when I try to change it to date, it gives a different date. The code below is incomplete just showing the relevant...

I sometimes use Psiphon (https://s3.amazonaws.com/psiphon/web/mjr4-p23r-puwl/en/download.html#direct) which has a free version. Maybe you could give it a try.

Thanks for the warm welcome folks!

I am only human, I guess :banghead:

First off, I am sorry for the confusion I inadvertently created recently with all the thanks that I purportedly given to posts. Even I was taken aback with the PMs I received about this. At first I thought my account was hacked. When I looked back to what I did the last few days, I realized...