General :: Retrieve Links To Find Some Documents - Adding Message Box?
Dec 21, 2012
I have a report named Link_report which retrieve links to find some documents. I would like to add a Msgbox to say: " No link has been found for this document" when the case link is empty.
I'm currently working on a way to import data from many word documents into a table - I've got this working fine using the following code:
Code:
Private Sub bImportFiles_Click() On Error GoTo bImportFiles_Click_Err Dim objFS As Object, objFolder As Object Dim objFiles As Object, objF1 As Object Dim strFolderPath As String
[code]....
However, I'm wanting to add a link to those files to the table so that the user can click on the record (or select one and then use a button) to open each document in it's native environment (MS Word). I've tried adding a self-referencing hyperlink to a form in the word document and then reading that in - but that doesn't seem to work. As these files may move around (and there are a lot of them) I need to make sure it's done automatically so can't really get the user to write it in manually.
I have a simple database for my rv rental business, I want to be able to import an existing form into access and then use the data in my dbase to fill in the forms to print and have the customer sign the contract etc. I use 2003 how would I go about doing this?
I am attempting to create a database where I can input a number that will display a word document, and pdf's, and be able to toggle through them. I have all the data compiled. I just need to present it in some type of a front.
I receive mails through LN and loop through a certain folder, reading DeliveredDate, Body, Subject and writing those items into an Access-table.This works fine, before I go for the loop I put the doc in another folder and remove the current doc from the folder.
Call LNDoc.PutInFolder("SMSBackup", False) Call LNDoc.RemoveFromFolder("SMSResponse") Set LNDoc = LNView.GetNextDocument(LNDoc) Loop
Without any error, without anything abnormal in the mails the code exits after a few loops, sometime after more or sometime after less read mails.The problem ist the RemoveFromFolder, not the PutInFolder function.
So to avoid this behavoir, I changed my code to finish the loop without Call LNDoc.PutInFolder("SMSBackup", False) Call LNDoc.RemoveFromFolder("SMSResponse")
and added after the loop a NotesCollection which should do ALL at once.But this part of the code does nothing at all (allthough found on the web).
With LNCollection .PutAllInFolder "SMSBackup", False .RemoveAllFromFolder "SMSResponse" End With
The complete code looks like this:
Set objNotes = GetObject("", "Notes.NotesSession") Set LNdb = objNotes.GetDatabase("myServer", "MyNSF") If Not LNdb.IsOpen Then LNdb.OpenDatabase If Not (LNdb Is Nothing) Then Set LNView = LNdb.GetView("SMSResponse")
I have a code to add links to files into a field, I recently migrated from Windows 7 to 8 and the name of the folders in 8 are different; therefore the database I have does not find the linked file anylonger.
To avoid this happening in future, I would like to have the option for the user to set the folder path through maybe a table and then the link will refer to the settings in the table.
Currently I am using the following code:
Private Sub AddLinkDoc_Click() Dim strFilter As String Dim strInputFileName As String Dim varDirectory As String varDirectory = "C:UsersMarco TagliaferriDocumentsBA CityflyerCrew SchedulerDocumentationDocs"
Because of certain design considerations and the amount of data I'm maintaining, I have chosen to use tabbed documents rather than floating windows or subforms.
The hierarchy is supposed to be a person who is categorized as either a client, family member, donor, etc. Further, a client may use one or more services. In the example, our client uses Specialized Home Care. However, the tabs are intuitively out of order: the people tab is left-most, followed by the Specilaized Home Care tab, and lastly the Client tab. It should be People, People:Client, People:Client:Service. If a person uses a lot of our services, there will be separate People:Client:Service tabs and the People:Client tab will scroll off to the right. I'd like Access to order them properly but see no way to do it.when the forms are opened, it's people first followed by the high-level classification (i.e. Client), and the lastly the specific Client:Service tabs. I would expect Access to open and display them left to right, but, as you can see, it doesn't.
I have a button that when pressed it checks a specific file for documents with the same name (example: Test, Test 1, Test 180, ect...)
Code: Dim StrFile As String StrFile = Dir("C:UsersJohnDesktopTest*test*") Do While Len(StrFile) > 0 Debug.Print StrFile MsgBox StrFile StrFile = Dir Loop
The problem with this is if there are 2 files with Test (Test, Test - Copy) It gives me 2 separate message boxes. The first with Test. Then a second message box with the second file, Test - Copy. I want to combine both of the message boxes in to one. So the message box would look like:
I want to use information supplied to me by suppliers as spreadsheets to create a database that i can navigate through by selecting from drop down options.
Example; Imagine a product being broken down by its features, such as a washing machine.
Here is a list of what i would need to sort on,
Manufacture Model Type Size Price Colour...and so on
So, if a customer asked "what 8kg 1200rpm washing machines do you supply for under £300 and in black" i would like to able to find all that info by drilling down a few selections.
I would like to Create a database for indexing / organizing PDF documents. My Company currently use a 3rd party accounts program and we raise sales and purchases using numerical numbers ( but we can Jump to a new range of numbers within the program) for example if the purchase order numbers become simliar to the sales order numbers. But this 3rd party software does not let us scan documents into it hence the need for an alternative database.
For the data base I was thinking if only creating a index of the sales order numbers to start with. the first few question I have are.
1.) Should I Use the Autonumber as my first index column or should I replace it with our own sales order numbers in that column.
2.) is there a way to autopopulate the sales order numbers in a table for historical sales numbers.
3.) can you scan directly into Access
How to start planning the design off the database as I know this is almost the most important aspect of a database.
Once a year we have a conference that has about 400 people attend. These people will participate in several classes, randomly, over a four day period. Each class hands out an evaluation form. This form has six categories and asks you to rate each from 1 to 5. This is done with a grid on the form labeled with 1 2 3 4 5 across the top and the attendees will put a checkmark or X in the appropriate box. This results in approximately 3000 evaluation sheets.
I will take these and manually enter the scores into a database I created in order to tally the results and generate reports. I have been asked to see if this process can be expedited by using a scanner to pull the scores from the sheets.
I have an access program and i want it to save a copy into a location... ive got it so it can save however - i want it to save to the current users documents folder (win 7)
I have a main form (in a single form view) that show a record from a table. I am going to add a sub form (probably a continuous form view) which can show a list of fields (probably a name) from all records from a child table that match condition PrimaryKey = ForeignKey.
What is the best way to make the list of the fields sort of clickable so that I can click on any of them and e.g. open a form with information about a child record? Should I look for hyperlinks in reports, a list box, a continuous sub form with records?
I'm saving links to a combobox in a form, but each time I close out of the form and reopen it the Combobox doesn't keep the list of data I entered before and only keeps the last selected one in its drop down menu.
Is there a way to make the Combobox store/keep the data?
I have a client who needs a Database created in Access for him. he would like to regularly auto-populate this Access DB from an Excel file - like twice a week.In addition, he wants me to create Forms, Queries, reports and Macros for him in the Access, which will have 2 Tables from Excel files and about 3 Tables created in Access.I figured that I could do that if I gave him a link to the Tables he needed from the Excel file(s). But how do I work remotely for him- the path to those files is on his computer. I can load them to mine, but then he can't open the files.How can I create Forms etc. in an Access DB which uses links from source files as its Tables?
I have limited programming skills but a basic understanding of databases.I want to create a database in Access that links to contacts in an Outlook pst file, and in the Access database I want to create a series of date dependant tasks or processes that I can apply to the relevant contact.The object being to to save that collection of tasks to apply to different contacts within Access.
I have a database that pulls images from a shared folder on our network with links. Is it possible to create a button to email the current record on a form and attach the file it references in the link?
The attachment is a pdf signature. I didn't want to include the files in the database for space issues.
I am using Access 2007. We out outlook as our email client.
i have the following code and i have the below error:
can't find the project or library in red part
Code: Option Compare Database Option Explicit Function DatumUmwandeln(Datumstring As Variant) As String Dim Monat, Tag, Jahr As String If Datumstring <> "" Then Tag = Format$(Datumstring, "dd")
I am not sure where to start or go about creating message box that would display "No results found" if my queries return no results. My search of the forums hasn't been fruitful.
I have created one form that has a text box and a button that works as a search function to run through the tables and displays the applicable queries. Currently, if no results are returned nothing happens. Preferably I would like a message box to display stating that there were "No results found". I would assume that the code would be associated with the "Find" button. Here is the VBA code as it stands, again, I haven't even attempted to add code for a message box.
Private Sub Find_Click() On Error GoTo Find_Click_Err
If DCount("Heading", "Service Desk Manual Query") > 0 Then DoCmd.OpenQuery "Service Desk Manual Query", acViewNormal, acReadOnly End If
I built a form—frmDataEntry—whose Record Source is a query called qryEvent, which contains various fields from tblEvent. The primary key field is called EventID.
I also build a subform—sfmDataEntry—whose Record Source is a query called qryEventImages, which contains various fields from tblItem. One of those fields is ItemEventLink, which links records from tblItem to the EventID field in tblEvent. There is also an image box in this subform: filling in the field ImageFile with an image name (example: Logo.jpg) causes that image to display in the image box.
I’ve inserted the subform into the form using the Subform Wizard. Now I’m getting an error message that says "2450: Microsoft Access cannot find the reference form ‘sfmDataEntry’." Why this is popping up. The Link Master Fields and Link Child Fields sections of the property sheet are filled in correctly. Moreover, the subform records are still appearing, but the images linked to each record aren’t loading.
I get an error message when I add a new record to my database. It occurs when I open my form and use the [arrowright*]-button and when I use the switchboard button to add a new record using a form.
An error message is displayed, but when I dismiss the error (click OK), then everything seems to be normal and the record is added normally with the entered info. It is a bit annoying, though.
Since I have the dutch version, I'll try to translate the message: "You can not add/append a value to this object
* The object possibly is a control-element in a read-only form * The object is part of a form that is opened in the design view * The value is too large for this field"
The error occurs right after I have typed the first character into a field on the form. The form consists of a few subforms. And I don't think any of the by access suggested errors have anything to do with this...
Any help is appreciated, Thanks in advance, MuFfiNimal
How to write Sample Code to Retrieve the Current User Name?I have done for short name only and I need it full
Private Declare Function apiGetUserNameWindows Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function fOSUserName() As String Dim lngLen As Long, lngX As Long Dim strUserName As String