Problem Creating a usable zip file using VBA. Does anyone have an alternative?
I am hitting a problem creating a usable zip file using VBA. I am using the following code block to create a zip file. I found it in virtually all internet posts that I came across and for that, I copied it with high confidence that it will work. But it's not working as expected when the storage device is a MicroSD or Flash Drive. the sub-routine works fine if the storage device is an internal hard drive, portable hard drive (HDD) or portable solid-state drive (SSD) sub Create_Zip_File (argDestZipPath as Variant) Open argDestZipPath For Output As #1 'Create an empty zip file Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Close #1 end sub The sub-routine does create an empty zip file on a Flash Drive or MicroSD storage device on the specified path, but I can't open it either manually or with vba code. I get the following prompt as I manually click on the zip file icon in the window or as I attempt to utilize the shell.CopyHere method using the statements below. Set ShellApp = CreateObject("Shell.Application") ShellApp.Namespace(argDestZipPath).CopyHere ShellApp.Namespace(argItemToZipPath) In comparison, I can manually create an empty zip file in the same location on the Flash or MicroSD and can successfully open the resulting file by manually clicking the icon or by way of vba code without incurring the prompt. I can also create the empty zipped file on the hard drive, then move it to the flash drive or MicroSD where it works normally without incurring the prompt. The problem occurs only when the subroutine creates the zip file directly to the FlashDrive or MicroSD. Background I am using Windows 10 (Home), with the most recent updates, and am using MS Access in an Office 365 subscription that I believe is also up to date. I have a 64bit machine. The MicroSD card and flash drive are formatted as NTFS. I suspect there is an alternative to the Print statement that creates the zip file that will configure the zipped file exactly as does the manual procedure available on the windows explorer shortcut menu Does anyone know an alternative to the following? Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) My current vba workaround is to automatically create the empty zip file on the hard drive, then move copy (via FileSystemObject class) a pre-existing empty zipfile.zip on the hard drive to the MicroSD or Flash drive, then renaming it according to characteristics of the intended content before proceeding to send files to it. This is effective as a stop-gap but certainly not preferred.Microsoft Access Giving error, File is already in use ,if access by more than people on shared netwo
Hi My name is Varun , happy new to everyone, I came across a issue with the Microsoft access Giving Error Cannot access the a file which is on shared drive, it can only work for one person at a time. if someone else try to use it says file is already in use.
date increasing
Hello all I have an excel sheet containing information for many machines that needs maintenance, each machine has a starting date of maintenance and the maintenance will be done repetitively in a specific frequency ( some are daily, weekly, monthly, semi annual or annual and many frequencies), I need to put the date of today or tomorrow or any coming date to see what are the machines that need maintenance at that date and the information of each machine i need to link excel file to access and show the results in access I will link the file, the task schedule is the frequency (NM:1 is monthly....) the task last date done is the reference date of each machine how can I do it ? the dates are in 2012, but I need to increase dates to reach today as in 2021Access for Production Management
Hi. Do anyone have any experience by using Access for production management? We are working IronCad, and the BOM-function gives us data in Excel-format. It would be very interesting to investigate how to make a dashboard that shows us status for our different orders/projects. The dashboard needs to extract data from the BOM-Excel, like orderno, customername, drawingfile, status drawing and status for some checkpoints during production. It would be very nice if the status-field could be stated in variuos colors according to the line of progress. Tips and links are very appreciated. Regards Jonny
Move Data from One Row to Another in Separate Columns
Hi, I have file where the original format has two questions per person and puts the questions & answers in two separate rows. (See rows 2 & 3 below) I need to have the questions and the answers from row 3 moved to row 2 in separate columns. Thanks in advance for any help
Workday task
Request Id: 9b9fa281-6773-44e2-9202-799eb1225500 Correlation Id: 6b3fd261-26c7-4dfe-acb7-c5554bae3d4a Timestamp: 2022-01-20T17:25:28Z Message: AADSTS90072: User account 'Email address removed' from identity provider 'live.com' does not exist in tenant 'MAXIMUS' and cannot access the application 'http://www.workday.com'(Workday) in that tenant. The account needs to be added as an external user in the tenant first. Sign out and sign in again with a different Azure Active Directory user account Would anyone know how to help me with this?
Why Kill Access?
Why do people want to kill Access? Press releases since the 1990s said MS will discontinue Access, and yet and lives on. I can only imagine how important it is to so many people and businesses. I also find people are always putting down Access, especially tech people that have never developed or implemented an Access app. It's laughable. I have over 50 mission critical apps I've been managing for 2 decades and I never have any problems. I rapidly continue development so quick and easy...and fun. Users love it because I can literally create anything they need. The apps quickly evolve and get better and better. I do things so quickly! I'm so happy I know the wonderful secret about how great Access is but concerned that no one else seems to understand how relevant it is. As I near retirement age I am concerned that we won't be able to find people that know Access. . Here's a good thread on the crazy topic of Access and it's imminent demise: https://www.comparitech.com/net-admin/microsoft-access/#comment-406783
