Error When Zipping File
Sep 26, 2006
I have an 18Mb DB, which needs to be zipped up in order to distribute it.
I used the standard WIndows zipping function by right clicking on the file and selecting Send to compressed zip folder.
All works fine until you open up the DB directly from the ZIP file and none of the references work, the file opens up with multiple errors etc.
If you extract the DB from the zip file and run it, all works correctly.
Now, the problem I have is that many users may not know to do this or remember to extract it so is there some setting that I need to change or is this functionality not available. I suppose I could create a self extracting zip file but that would need winzip, which other users might not have ?
View Replies
ADVERTISEMENT
Feb 24, 2014
I want to zip my file of my Desktop with MS Access 2007.
View 5 Replies
View Related
Feb 6, 2006
Wondered if someone could assist me.
I am exporting a query into a .csv file using the following:
Private Sub Output_To_CSV_File_Click()
On Error GoTo Err_export_Click
Dim AString As String
AString = "Export_Occupancy_"
DoCmd.TransferText acExportDelim, "", "ChildCare Vouchers For Accor", "\uk.michaelpage.localdfsGroupDataNSCHElite Database ReportsChildCare.csv" & AString & Format(date, "YYYY_MMDD") & Format(Time, "-HH_MM") & ".csv", True
Exit_export_Click:
Exit Sub
Err_export_Click:
MsgBox Err.Description
Resume Exit_export_Click
End Sub
This works fine, however the date format within my output file appears as:
13/05/1963 00:00:00
I wish this to be just 13/05/1963. I have formatted date etc. Is there something else I have overlooked?
Thanks
View 5 Replies
View Related
Jan 2, 2008
I have been using the below code for several months to export to excel. Lately I get a run-time error 53 - File not Found. I have not changed anything, so what could be causing this issue. The debugger stops on the line "FileCopy sTemplate, sOutput"
Public Function ExportRequest() As String
On Error GoTo err_Handler
Dim dbs As Database
Dim qdf As QueryDef
Dim frm As Form
' Set database variable to current database.
Set dbs = CurrentDb()
Set frm = Forms!AOSummaryReportForm
' Open QueryDef object.
Set qdf = dbs.QueryDefs("AOSummary")
' Set parameters for query based on values entered
' in AOSummaryReportForm.
qdf.Parameters(0) = Forms!AOSummaryReportForm!StartDate
qdf.Parameters(1) = Forms!AOSummaryReportForm!EndDate
' Excel object variables
Dim appExcel As Excel.Application
Dim wbk As Excel.Workbook
Dim wks As Excel.Worksheet
Dim sTemplate As String
Dim sTempFile As String
Dim sOutput As String
Dim rst As DAO.Recordset
Dim strSQL As String
Dim lRecords As Long
Dim iRow As Integer
Dim iCol As Integer
Dim iFld As Integer
Const cTabOne As Byte = 1
Const cStartRow As Byte = 2
Const cStartColumn As Byte = 1
DoCmd.Hourglass True
' set to break on all errors.....
View 14 Replies
View Related
Jul 14, 2005
I get the error message "could not use xxx.mdb;file already in use" when trying to run some append queries, but NOT when trying to run some other append queries which use the same linked table.
For example, this query gives the error message:
INSERT INTO DataIntegrityErrors ( Product, Problem, ProductItemNo, ChartPoint, MinDate, MaxDate, Qty, FinalsCell, MfgGroup, Source, ProductNounProblem )
SELECT [Yield Data All for Tool].[Product Name], "Finals Yields not in FinalsProductInfo" AS Expr1, ProductCodes.Item, [Yield Data All for Tool].ChartPoint, Min([Yield Data All for Tool].[Test Date]) AS [MinOfTest Date], Max([Yield Data All for Tool].[Test Date]) AS [MaxOfTest Date], Sum([Yield Data All for Tool].QtyTested) AS SumOfQtyTested, [Yield Data All for Tool].Cell, [Yield Data All for Tool].[MFG Group], [Yield Data All for Tool].Source, [yield data all for tool].[product name] & "Finals Yields not in FinalsProductInfo" AS Expr2
FROM (([Yield Data All for Tool] LEFT JOIN FinalsProductInfo ON [Yield Data All for Tool].[Product Name]=FinalsProductInfo.Product) LEFT JOIN ProductCodes ON [Yield Data All for Tool].[Product Name]=ProductCodes.[Product Name]) LEFT JOIN DataIntegrityErrors ON [Yield Data All for Tool].[Product Name]=DataIntegrityErrors.Product
WHERE (((FinalsProductInfo.Product) Is Null) AND (([Yield Data All for Tool].[Test Date])>#5/28/2004#) AND ((DataIntegrityErrors.Ignore)=False Or (DataIntegrityErrors.Ignore) Is Null))
GROUP BY [Yield Data All for Tool].[Product Name], "Finals Yields not in FinalsProductInfo", ProductCodes.Item, [Yield Data All for Tool].ChartPoint, [Yield Data All for Tool].Cell, [Yield Data All for Tool].[MFG Group], [Yield Data All for Tool].Source, [yield data all for tool].[product name] & "Finals Yields not in FinalsProductInfo", [Yield Data All for Tool].Company, [Yield Data All for Tool].Model
HAVING ((([Yield Data All for Tool].[Product Name])<>"default item") AND ((Max([Yield Data All for Tool].[Test Date])) Between Date()-30 And Date()) AND (([Yield Data All for Tool].[MFG Group]) In ("fnet mfg","fpm mfg","ind mfg","ptool mfg","biomed mfg")))
ORDER BY [Yield Data All for Tool].[Product Name], ProductCodes.Item, [Yield Data All for Tool].ChartPoint;
And this query does not:
INSERT INTO PD1a ( [Test Date], Division, ModelGroup, [Product Name], SumOfQtyTested, SumOfQtyFailed, ChartPoint, FinalsCell )
SELECT [Yield Data All for Tool].[Test Date], FinalsProductInfo.Customer, FinalsProductInfo.ModelGroupDefault, IIf([product name]<>"optiview",[product name],IIf([chartpoint] Like "bull*","OptiviewBHAT",IIf([chartpoint] Like "rocky*","OptiviewRAT",[product name]))) AS Expr1, Sum([Yield Data All for Tool].QtyTested) AS SumOfQtyTested, Sum([Yield Data All for Tool].QtyFailed) AS SumOfQtyFailed, nz([ChartPoint],"unknown") AS Expr6, First([Yield Data All for Tool].Cell) AS FirstOfCell
FROM FinalsProductInfo INNER JOIN [Yield Data All for Tool] ON FinalsProductInfo.Product = [Yield Data All for Tool].[Product Name]
GROUP BY [Yield Data All for Tool].[Test Date], FinalsProductInfo.Customer, FinalsProductInfo.ModelGroupDefault, IIf([product name]<>"optiview",[product name],IIf([chartpoint] Like "bull*","OptiviewBHAT",IIf([chartpoint] Like "rocky*","OptiviewRAT",[product name]))), nz([ChartPoint],"unknown")
HAVING ((([Yield Data All for Tool].[Test Date]) Between Date()-180 And Date()) AND ((First([Yield Data All for Tool].[MFG Group])) In ("fnet mfg","fpm mfg","ind mfg","ptool mfg","biomed mfg")));
They both use the linked table [Yield Data All for Tool], and the error message I'm getting indicates that the mdb file containing this table is the one that's "already in use".
So why does one work, and one doesn't???
The one that doesn't work, I can't even view the QBE grid, I can only view the SQL.
Any ideas???
View 2 Replies
View Related
Jul 9, 2014
I've created an application in Access 2010 with a back-end and user-level security via workgroup file. The application has 12 users, the back-end is on a network share, and everyone has the front-end installed locally. Everything has been working great until today, when I made a small change and installed it on users' machines. Suddenly, one and only one user is getting the File Not Found error (53) whenever he opens the database, and all form buttons produce the same result.
View 7 Replies
View Related
Jul 14, 2014
I created a split database. The backend went on a shared network drive where all my users have read/write priviledges. Then I gave each of my users a copy of the front end that they put on their local computers. According to all of my research, with this setup Access is suppose to allow multiple users in the database simultaneously. However, if anyone tries to open the database when someone else is already using it they get the error message "file in use".
I've confirmed with IT and the Admin for the folder that all of my users have read/write priviledges to the shared drive housing the backend. There are only 6 users and usually it is only 2 who want to use database simultaneously.
My IT person said that they have heard this type of problem with Access before. Usually, people have to shell out money and get a server because Microsoft's claim that Access can run on a shared drive is usually untrue.There is no way I'm going to get a server so I have to make the database on a shared drive work.
View 14 Replies
View Related
Sep 28, 2006
I'm begin study Microsoft Access but have error and don't know how!
(Please see the attach picture)
I'm use Window XP Pro and Office 2003.
I'm already update window and Jet 4.0 Service Pack 8 (SP8) for Windows XP at link but nothing to change (http://www.microsoft.com/downloads/details.aspx?FamilyID=2deddec4-350e-4cd0-a12a-d7f70a153156&DisplayLang=en)
Please advise me the way to repair this error!!!
View 5 Replies
View Related
Jul 6, 2005
So I have had Access for all of one day now. I am trying to import an excel file into access as a table. I successfully imported the first file but the second file gives me an error that says "An error occurred trying to import file ____. The file was not imported." What are the possible reasons this error has occurred? Both excel files I am importing are in the same format, so I am confused as to why one worked but the other did not. Thanks for any help.
View 2 Replies
View Related
Apr 28, 2004
I was working with one access application 2 months ago and I stoped. Now, I opened this access file and try to continue with it.
But I have problem! On every button, when I click on this button (it could be button for cllosing form or any other) there is one message box with followed text:
"Error accessing file. Network connection may have been lost."
I have no ideao what is going on! Even, when I create new form, put the button on it, when I click on this button, the same message appears.
Can someone help me? What is wrong with with my Access or with my Windows.
P.S.
I have Pentium IV, 512 MB Ram, Windows XP, and MS Access 2000.
Please, do send me an e-mail on dculic71@hotmail.com
or contact me on ICQ (101967172)
View 2 Replies
View Related
Dec 14, 2006
Hi
I am running Access 2000 with MDAC 2.8 and SQL Server 2000 database. I have linked the tables of the database in Access. The problem is that it would not allow me to insert/update/delete but only to select from the database.
Here is the code:
Dim strSQL As String
Dim con As ADODB.Connection
Dim cmd As ADODB.Command
Set con = CurrentProject.Connection
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = con
strSQL = " INSERT INTO dbo.crop_demand_yearly (" & _
"geo_id, crop, area, water_value, water_use, date_from, date_to)" & _
" VALUES("
strSQL = strSQL & ((Val(Me.txt_borenid))) & "," & (Val(Me.cbo_crop)) & "," & (Me.txt_area) & "," & (Me.txt_use) & "," & (Me.txt_value) & ",'" & Format(Me.txt_datefrom, "dd/MM/yyyy") & "','" & Format(Me.txt_dateto, "dd/MM/yyyy") & "')"
cmd.CommandText = strSQL
cmd.Execute strSQL
con.Close
Set cmd = Nothing
Set con = Nothing
I dont understand what is the problem! Please help
View 1 Replies
View Related
Feb 3, 2014
I have an access database that has been written by someone else (I am a novice when comes to access!) and to which I have been asked to regularly upload data from excel.
There is a Macro written to load data from spreadsheets, and generally this works without problems. However there are a few spreadsheets which come up that result in a message box saying "Error in [name of spreadsheet] xls file in row 0" - I have checked for errors and null values in the spreadsheet but have seen this before as it generally tells me the error is in row 245 for example, but have never seen this error in row 0 before!
View 5 Replies
View Related
Feb 14, 2014
I have a small problem with the following command:
Code:
sTabNam = "TmpTab"
sFilNam = "C:Data.Txt"
DoCmd.TransferText TransferType:=acLinkDelim, TableName:=sTmpTab, FileName:=sFilNam, HasFieldNames:=True
The file C:Data.Txt contains 5 columns, separated by a semicolon with the first line containing the names of the columns. The concern is that when the linked table is created, I get a single column with all fields concatenated value. the following style :
Col1;Col2;Col3; : Column name
Val1;Val2;Val3; : Row value
What does do to have columns separated with the corresponding values?
View 3 Replies
View Related
Dec 12, 2011
Up until recently (not exactly sure when) I've been absolutely fine importing text files into Access 97 with the import wizard, where the file extension is .log Now, every time I do it, I get Error 3027 unable to update as database/object is read only.
if I change the filename to .txt it works, but if I leave it as .log I get that error.
View 4 Replies
View Related
Nov 16, 2011
We have a MS Access Application. It involves authentication as well. I split the database and created this db_be file. I deleted this. Now I'm not able to login into this Application.
View 1 Replies
View Related
May 20, 2005
I think the damage to my database is not recoverable, but i'm still hoping.
My computer crashed when I was working on my dtabase and after restart the db is not working anymore :( If I try to do something, anything (!!!) all I got is an error message: "Error accessing file. Network connection may have been lost." But the db is on my computer, I don't use it over the network.
What can I do to make it working again?
Thanx!
Attila
View 8 Replies
View Related
Jan 29, 2015
I am importing csv files into tables in a batch routine and I get the following error messages. The error number is always 2391.
Field 'F1' Doesn't Exist in Destination Table
Field 'F4' Doesn't Exist in Destination Table
Field 'F36' Doesn't Exist in Destination Table
I understand the first one and can find references to this on the web but the F4 and F36 escape me.
All fields required do actually exist in the table so the real problem is elsewhere.
P.S. I now think that it may be that there are embedded commas in one or more of the text fields and that the number following the 'F' indicates the position of the field in the table. I will check in the morning or create the csv files using commas and quotes.
View 1 Replies
View Related
Jul 31, 2013
I've recently created a new Access 2010 Database which I'm developing an interface for in VBA. I've created a new Userform in the Visual Studio (this required me to add the Userform button). I'm finding that when I insert the Multipage object which I need to use on the form I can no longer run the Userform. When I attempt to run, I get the error 'Path/File Access Error' followed by 'Run time error 75 - Could not find the specified object'.
It's definitely linked to the Multipage which I've inserted from the toolbox (standard object) as the form runs fine when it is not there and with other objects (have tested all other toolbox items). There is currently no code in written in the project, no tables or queries set up in the database therefore nothing is running when the form loads.
I've successfully used Multipages in a number of other VBA interfaces both in Access and Excel so not sure why they are causing a problem here. I've also just created a userform in exactly the same way in a new Excel sheet and it runs fine with the multipage.
View 1 Replies
View Related
Oct 28, 2014
I haven't used FSO before, and it seems that the syntax is a little different than typical VBA for strings, but I can't quite figure out what I'm doing wrong here... I keep getting a "file not found" error on the "FSO.CopyFile..." line. I have printed all of my strings to the immediate window to check that they're printing correctly. It all looks good. My code is as follows:
'Copy file
'Set up strings for coding file names
Dim FilePath As String
FilePath = Me.txt_FilePath
Dim FileName As String
FileName = Me.txt_FileName
[Code] ....
View 9 Replies
View Related
Dec 7, 2011
I have recently created a db for a large Printing operation in our company. Previously, the process was all paper-based and extremely inefficient, so obviously this is a huge step in the right direction.
Upon completing the db and providing a demo to the staff, I saved a copy to a shared folder on the network for them to access (.accdb file). We've done this with other dbs before, but with smaller groups (3-4 people). With this db, since there will be anywhere up to 15 people that may want to access it at the same time, the db started crashing during the first phase of pilot testing this week.
I did some more research and found that the db should be split.the users can't open the db anymore.I have a Printing Services shared drive in which created an "Administrator" folder for the back-end (the front-end is in the same location as that folder). When I split the db, I select the back-end location to be within the Administrator folder.
TrackerAdministrator OnlyOS Tracker_be.accdb" is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.I know that the file path is valid, b/c I selected it specifically when using the wizard to create it, and I know that the staff have access to the shared drive as they had to open it in order to gain access to the front-end. Plus, it's working for me when I try to open it, just not the others.
View 2 Replies
View Related
Jul 18, 2014
I am trying to export my query to an excel file and I get the above error.
Here is my code:
Code:
Private Sub cmdExcel_Click()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "queryA", "C:queryA.xlsx"
End Sub
Not sure what the issue is.
View 13 Replies
View Related
Sep 1, 2015
When I am working in the tutorial which is shown in the below link:
[URL]
when I copy from Clarksville.xlsx the employees names and try to paste into a new Access database*. It says:
Text is Too Long to be Edited
I am unsure what to do next to deal with this error. The internet says to increase the size of the cell where the text is being pasted. I am not sure how to do that.
View 3 Replies
View Related
Nov 5, 2013
We have a new user who is unable to get into a database. Another user in the same office had no problems.
The other user is using:
"C:Program Files (x86)Microsoft OfficeOffice14MSACCESS.EXE" /wrkgrp"ServerNameShareNameSFTPSFTPWorkgroup.mdw" "C:SFTP Database V2.1 FESFTP Database V2.1 FE.mdb
The new user was not able to access the share at all using ServerNameShareNameSFTP until he changed the path to:
"C:Program Files (x86)Microsoft OfficeOffice14MSACCESS.EXE" /wrkgrp"ServerName.ACCT05.us.companyabbreviation.comSha reNameSFTPSFTPWorkgroup.mdw" "C:SFTP Database V2.1 FESFTP Database V2.1 FE.mdb"
Now he can get into the SFTP folder, but when he uses the shortcut, he gets an error stating Microsoft Access couldn't find the file ServerName.ACCT05.us.companyabbreviation.comSha reNameSFTPSFTPWorkgroup.mdw 1" "C:SFTP Database V2.1 FESFTP Database V2.1 FE.mdb" (Note the space and 1)
I created a new shortcut, and I was able to open the db using his target line, even though I can use the shorter one. For the new user, this still generates an error.
View 4 Replies
View Related
Jun 12, 2015
I am trying to create a txt file to import into our accounting software. I get the file (its blank), but it fails on the WriteLine and i get the run time error. I have a command button on a form that the user will click to export the file.
Private Sub cmdExport_Click()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strPath As String
Dim strPathGB As String
[Code] ....
View 6 Replies
View Related
May 28, 2014
I've vba in Report onformat the vba code does some data copying to External Excel file (premade by vba).Now on first run, i got success.But on opening the excel file, it showed blank space + Error"File already opened"
No White Spreadsheet is shown with data to see into file, i created new excel file in windows, and inserted the vba created/exported file as an Obj.Now Obj is showing correct and full data with spreadsheet as normal view.
View 4 Replies
View Related
Feb 14, 2014
I have a vba code export a error message if the current date of a file is not correct.. I have tested the code it worked to send a error message to a error.txt file but he it doesn't look to the modified date
So instead of:
file1.txt (13-02-14)
Then
Send error message ("file not updated") to: Error.txt
IF NOT
no action requeried
This code does the following :
file1.txt (Modified date: 13-02-14)
Then
Send error message ("file not updated") to: Error.txt
file2.txt (Modified date: 14-02-14)
Then
Send error message ("file not updated") to: Error.txt
Code:
Sub CheckD()
Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objFile As Object: Set objFile = FSO.GetFile("C:Users
ameDocumentsShow5621.txt")
If objFile.DateLastModified <> Date - 1 Then
[Code] .....
So also if it is the current date he send the error message to the error.txt file, it could be possible that i did something wrong.
View 2 Replies
View Related
