My company wants to store both a digital copy and a hard paper copy of the files in the access database. Because of this I need to figure out a way to show in the reports the paths to the attached files so that people reading the paper versions can locate the corresponding files on the computer in the future. I have been searching the internet for several hours and have come up with nothing. Is there a way to do this?
View RepliesI'm currently looking to change the ending of all filepaths of imported files whenever I run the import. I want to change the path ending from .txt to .doc. So basically, the link/path to the file should be got, the ending changed from .txt to .doc and then the path (with the .doc ending) put into the table.
Code:
Private Sub bimportinternal_Click()
On Error Resume Next
strFolderPath = "S:Foo reportsSearchable"
strFolderPathSave = "S:Foo reportsSearchableArchiveword" & objF1.Name
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strFolderPath)
Set objFiles = objFolder.files
[code]...
I have a database for which the user can "attach" supporting files. Currently I handle this by putting a button on the form. The button opens the folder related to the current record via windows explorer. The user is then free to open any file contained, or drag and drop new files if needed. It works reasonably well.
But there is no indication when you look at the form if there are any files attached or not.
First, if anyone can point me to a better way to handle this, (it bugs me that there are thousands of folders being created to each hold a file or two), I would appreciate that. The typical attachment is a message dragged and dropped out of Outlook.
Second, assuming I continue doing things this way, I am thinking I would like to add a listbox to the form. When the form moves to a new record, I would populate the list box with the name of any files found. I know how to do that, but to which event would I be attaching this code?
Thanks,
David
Attachment File Name as it appears in email attachment box
{F54EBDF9-B9B6-4EA1-B56D35DEC50D0F69}.dat (257KB)
When you select open it does retreive the file in PDF.However, our customers are not very likely to open it because of its File Name.I do send the document to PDF file 1st.I am a carpenter by trade just trying to make my business more easier to run from the office and keeping up with the times.I receive emails from Vendors all the time,I am an avid user of Access since 2000, I barely understand VBA code and often copy from samples and/or researched code.
Here is my Code:
Private Sub Command198_Click()
Dim strToEmailAddress As String
[code]...
I recently upgraded a DB from 2003 to 2013 and ran into the following problem.
I have a button that opens a file dialog box and allows the user to upload a file to a predetermined location (and store the address as a hyperlink). I borrowed this code from someone else on here and modified it slightly.
In any case, the button still works, but now when it opens it doesn't have an option for "All files" under file types. So I can upload MS Office files, text files, etc., but not PDF files which are by far the most common types my users upload.
Private Sub Command35_Click()
Dim dd As Integer
Dim fileDump As FileDialog
Set fileDump = Application.FileDialog(msoFileDialogOpen)
dd = fileDump.Show
Dim Yourroute As String
Dim yourrouteName
Yourroute = fileDump.SelectedItems(1)
yourrouteName = StrReverse(Yourroute)
yourrouteName = StrReverse(Mid(yourrouteName, 1, InStr(yourrouteName, "") - 1))
FileCopy Yourroute, "us170fp00dataWBO_Tool_RoomDrawings" & yourrouteName
Me.Drawing_Link = yourrouteName & " # us170fp00dataWBO_Tool_RoomDrawings" & yourrouteName
End Sub
How do I work as a report in the attachments is based on the name of the school / seat number / total
View 2 Replies View RelatedHello.
I have a database that runs a fews tasks for me me when no one is in the office as the systems are quicker and the admin work tedeous and boring, yet necessay. The problem Im having is in calling a database. The problem stems, i think, from the names on the folder. Unfortunately renaming isnt an option because its got many hundreds of users on the server and I dont have the admin rights besides.
The error is coming on .......
Call Shell("msaccess u: eam-shared-dataRes. SalesOutsourceOutsource_DbsDatabase_StoreOutso urce.mdb").
The error message I get says that u: eam.mdb isnt valid .... when its not. The error is caused presumably by the " - 's " and probable after it passes this the " Res. Sales" will cause an error too. So my question Im asking is, is there anyway to make the path read in full, I've tried preceeding with < and ending with > and "" or even ' but still no joy. Can anyone please help, its getting annoying now. :o :confused:
Hello all:
I have the following code to retrieve doucments:
strPath = "G:CorpCustomer Files"
Application.FollowHyperlink strPath & "" & textbox1 & "-" & textbox2 & ".doc"
This works fine from my computer because the shared drive on my computer is saved on the G drive.
I tried using the code from a coworker's computer, but got an error because her shared drive is : "X:CorpCustomer Files"
Basically anyone can access the Corp server through any drive depends on how it was mapped.
How do I get around this so that it works from any computer as long as the user has the Corp share drive?
Thanks much.
I have an access icon (*.ico) file associated with my DB. But when I try to access the database from a place other than my desktop where the icon is located the icon doesn't show up. Is there any way to embed the icon into the application so that when the database is loaded on a different machine the icon loads too..
View 2 Replies View RelatedI'm trying to change the table links to a password protected BE DB. I found an example online, which I adapted to my needs. When I set it up to fail to find the normal BE it seems to work as intended until it gets to the line "Tdf.RefreshLink". Then it crashes with a 3031 "Not a valid password" error. The code is:
Code:
Private Sub Form_Open(Cancel As Integer)
Dim Dbs As Database
Dim Tdf As TableDef
Dim Tdfs As TableDefs
Dim NewPathname As String
[Code] ....
I can't find any references or example to relinking a password protected table.
Is it possible to make a path or a shape in access? I'd like to do some graphical representation of some data and change colors of the shapes based on given values that would correlate to the shapes.
View 11 Replies View Related:p Hello,
I am wondering if anyone can help me create a query (which is used as a basis for a report) using a criteria which is clever enough to know that if all fields are have an N (no) that a report should not be generated - but with anything else e.g. all Y's or a mixture of Y's and N's that a report will be printed. There are 6 columns where there could be a Y (yes) or an N (no) and I would really like to know if this is possible in access??
Thanks.
I have a report that is returning percentages based upon other calculated fields. Some of the percentage fields are showing #Num on the report. I've found this is due to one of the calculated values being zero.
3 Fields used:
Field: Qty
Total: Sum
Field: InitQty
Total: Sum
Field: OrderQty: Sum([Qty]-[InitQty])
Total: Expression
I need two more fields to return percentages based off of those 3 fields. This is what I started out with:
Field: InStock: [SumOfInitQty]/[SumOfQty]
Total: Expression
Field: Ordered: [OrderQty]/[SumOfQty]
Total: Expression
This works great until the query returns one that has sum of qty equal to zero. So this is what I've tried:
Field: InStock: IIf(Nz([SumOfInitQty],0),0,[SumOfInitQty]/[SumOfQty])
Total: Expression
Seems like it should work but its still showing #Num when I run the query.
I am setting up a form to send multiple attachments to an email.I have a query "qry_DwgEmail" that has an ID and a path column. On the form I have a button with the code below in the Click Event.The code below all works fine unless the path is incorrect, so I would like some error handling to be able to either:
1) Stop the code from running and display a message box with my message.
2) Continue the loop and then have the message box display what files could not be found (Preferred).
Note, the following code was taken from one of the forums I am not 100% on what it all means.
Code:
Private Sub btn_CreateEmail_Click()
Dim MyDB As Database
Dim MyRS As Recordset
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookAttach As Outlook.Attachment
Dim TheAttachment As String
[code]....
Hi,
Each client has either an entry with a correspondence number or a notes number. So, the table would look somewhat like this:
Client: 333, Correspondence: 1, Notes: Blank
Client: 333, Correspondence: 2, Notes: Blank
Client: 333, Correspondence: Blank, Notes: 3
Client: 333, Correspondence: Blank, Notes: 4
How would I make a report that will make it look like this
Client: 333, Correspondence: 1, Notes: 3
Client: 333, Correspondence: 2, Notes: 4
Thanks! Hope that was clear.
G
Dear All:
I am totally clueless on this one. Here is the statement I am using in a textbox in a report:
=DCount("[Transcript_type]","[Diplomas_requested_per_month]","[Transcript_type]='Official copy'")
This report is based on a query. The query is called "Diplomas_requested_per_month". The fields in the query are: "Transcript_type" and "Request_date". In this query there is Between [Start Date] And [End Date].
I am attempted to count the number of "Official Copy" for a specified month.
I am propted to input the start date and ending date, it works great when I run the query. But in the report, I get a "#error".
I am thankful for who have responded to the previous posting of this issue, but I am completely lost.
Any help is greatly appreciated.
Regards,
Dion
Please help
I have created a database to track student grades. I have made a report that shows the different grades for each criteria of each unit but, because the students get to do the unit many times it shows the same criteria many times on the report. What I want to do is have the report show only the best grade for each criteria.
i also want to be able to work out the average grade for each unit from the best grade for each criteria and store this for use in another table.
If you require more info i would be happy to supply this. Thanks
I have a query that runs - off the back of this, a report. The query will show a name eg dave however the report will show Daves unique key (eg 3) and not just say dave how do I sort this?
View 2 Replies View RelatedColm and Baxter, you've been great helps to me so far, and I will include you in the special thanks in my programming credits. I ask your help once more-
My program tracks how many calls are received per day at the office. I have a report showing a chart (thank goodness for wizards ) that lists the calls per day. This all works fine, and I was extremely proud of myself for doing so. However, after thinking about it, I realized that after a while, my client might not care to see ALL of the calls per day ALL of the time, and might wish to see maybe a week's worth or a month's worth at a time. I was thinking I could solve this by using a form to enter "from" and "to" information, but I'm not quite sure how to apply this so it would work with my report.
Also, if I can get this to work, on this same form I would like to have an option field that the user can select so that the usual options (today, this week, this month, this year, all) require only a click, rather than having to figure out what days are in this week (a tedious task, I know, but we're going for efficiency here ) but they also have the option of seeing specific dates they want.
The fields that I'm using for this are very simple- tblCustomer.CallDate and tblCustomer.LeadType, where CallDate is just a date and LeadType is a string from a lookup table that is either "Call-in" (the one I'm tracking) or "In-field".
I know this sounds like a lot of coding, but I'm sure if you could get me started, I could figure out the rest myself. It's just that the way Access does dates is so confusing to me, and I have midterms coming up and not a lot of time to figure this out by myself from scratch. Anyways, thanks for your help in advance!
Jason
I have a main report with one subreport. The main report contains details of a payment being made to a supplier. There is the total amount being paid, and the cheque number being transferred. There is also a field called payref which is made invisible. This is used to link up with the subreport. The amount is the total of several invoices for which payment is being made.
The subreport contains details of each of a number of the invoices being settled. The subreport is linked to the main report via a common field called pay-ref, and the subreport is 'visible'. The subreport prints when placed in the page header section of the main report. However when there is a large number of invoices being shown in the subreport only a certain number appear. It appears that the subreport can only hold a certain number.
When the subreport is put, as it should, in the detail section of the main report, it does not appear at all in the main report. I have no clue why and I have made several reports like this one before.
I am trying to show the Current Repair Estimate total in currency form on my report. The attachment shows my criteria, which works on the query, but does not show in the report. The second attachment shows what pops up when I try to view the report. What can I do to get this current rep estimate to show correctly in currency form on the report?
View 8 Replies View RelatedI have a REPORT containing 7 ('columnar') subreports. Each subreport is to show showing a days worth of medical doses.... to visually represent a wall planner.
When the report loads - user enters a week value # via Inputbox(). This value is written to a TEMP table. Each subreport accesses this same TEMP table to retrieve the week # value. In the Recordsource for each subreport I have the following code :
SELECT * FROM GETPATIENTREADINGS_WEEK WHERE (((Format([DateR],'ww'))=DLookup("WeekVal","[TEMPTABLE]")) AND ((GETPATIENTREADINGS_WEEK.DayVal)=1));
... where the DayVal goes from 1...7 corresponding to the columnar position of each subreport on the display ie. for each day of the week.
The problem I am having is that when the report runs - I see the display showing the data from when the report was previously run. ie. I have to run the report twice to see the data for the correct week value entered. All the SQL works as expected when I run from Query view but when I run through VBA..
On design, layout and report view, everything looks exactly how I want it. However, when I display it in Print Preview mode, checkboxes appear about the Project Name.There's nothing in my report to show that I have these checkboxes on the report. Where these could be coming from and why they only show in the Print Preview layout?
View 2 Replies View RelatedI created a Report from a query. The query shows the correct data that should be on the Report. I created the report to sort by Field A and then sum Fields D, E, & F. None of the query data shows up on the Report. I;m stymied as to why I can see data on a query, but the ONLY data that shows up on the Report is Field A. None of the summations show. All are blank with the box outline.
I've created the report 3x thinking I did something incorrect. Whatever it is, I did it 3x!
I have a subreport with bitmap files attached, the sub works great until I link it to the main report then the sub shows nothing.
View 2 Replies View RelatedOn report, date shows as: 5/23/2015
I want it to show as: 05/23/2015
The input date in main table has the same format as the fields without the '0'.
Property for all date fields appear the same...