Can't Open PDF - Code Included

Sep 26, 2005

With this code, I can open Word and Excel files, but not PDF. Please let me know what I'm doing wrong. (I tried changing strProg = "C:Acrobat.lnk" including to a .exe file but nothing happens when I click the Open button)

---------------------------------------------------

Private Sub cmdOpen_Click()

Dim sSourcePath As String
Dim strProg As String
Dim objword As Object
Dim strFile As String
Dim XL As Object

sSourcePath = Me.FilePath

DoCmd.RunCommand acCmdSaveRecord

If fIsFileDIR(sSourcePath) = -1 Then

Select Case ParseFileName(sSourcePath, 3)

Case "xls"

Set XL = CreateObject("Excel.Application")

If IsNull(Me.FilePath) Then
MsgBox "You haven't Attached a File"

Else

With XL.Application
.Visible = True
.workbooks.Open Me.FilePath

End With

Set XL = Nothing

End If

Case "doc"

Set objword = CreateObject("Word.Application")

strFile = Me.FilePath

objword.Visible = True
objword.Documents.Open strFile

'--------------------------------------------------
Case "pdf"
'Open File

strProg = "C:Acrobat.lnk"

Call Shell(strProg & " " & sSourcePath, vbMaximizedFocus)


Case Else

MsgBox "File type not recognised"

End Select

Else

MsgBox "File cannot be found. Please check the file path. ", vbExclamation

End If

End Sub

View Replies


ADVERTISEMENT

Open Database From Code

Dec 16, 2004

is there a possibility to open a compleet other database from you database out?

no matter what the location is (i give the location)

thx in advance

View 4 Replies View Related

Executing Code On Database Open?

Apr 10, 2007

hi,

I was wandering if it is possible to implicitly execute code upon the opening of a database? If so how do I do this? I have code to convert the page settings of a report from a command click but wanted this to be done automatically...

cheers

tania

View 6 Replies View Related

Code To Open Form Using Msgbox

Mar 28, 2007

Hello,

My database has two main tables: Table1 and History

Users can add data to this table and decide if store part of data into the History table using an append query behind a cmdbutton. I do this to create an Historical Log of my records.

I then have a main form (form1) with the following code on the OnCurrent event:


If Not IsNull(DLookup("[SSN]", "history", "[SSN] = '" & [SSN] & "'")) Then
msgbox "Record present in the Historical Log!", vbOKOnly, "Warning"
end if


I would now like to change this code so that users are prompt with a message that allows them to either open the form1 or the Historical log (frmHistory)

I would need something like this but cannot get it to work:

If Not IsNull(DLookup("[SSN]", "history", "[SSN] = '" & [SSN] & "'")) Then
msgbox "Record present in the Historical Log!", vbYesNo, "Warning"
If vbYes Then
DoCmd.OpenForm "frmHistory", acNormal, "qryhistoryfrommsgbox", "", , acNormal

If vbNo Then '
'open the regular form1.


Another thing I cannot figure is why this pop up msg comes up even if I close the form. Is there a way to revome it from the close form event?

Thanks.

View 4 Replies View Related

All Rocords From One Table Included In Another.

Mar 21, 2005

I need to build a database to track projects.

There are 10 groups that may work on any given project.

Each group may perform any number of tasks.

I made 3 tables

1. Projects
A. PROJECT_ID
B. PROJECT_NAME
C. GROUP_ID

2. Groups
A. GROUP_ID
B GROUP_NAME
C. PROJECT_ID
D. TASK_ID

3. Tasks
A. TASK_ID
B. TASK_NAME
C. DESCRIPTION
D. TIME_SPENT
E. NOTES
F. GROUP_ID

Projects to Groups is one to many
Groups to Tasks is one to many.
The problem I think I am running in to is how to show all of the groups in each Project even if a given group has not performed any tasks.

View 1 Replies View Related

Combo Box Help (database Included)

Jul 25, 2005

hi All,
I've included an extremely cut down version of my database (33k zip file) with the example I'm trying to do.

There is a Combo Box (three options), I basically want this box to switch to the relevent record. (e.g. if you select Rural, it will switch to the next rural record) Rather, the combo box is changing the field of the current record to Rural which I don't want it do. I also want the ability to "Filter by Selection" too which it does but it just changes the current record :(

Any help would be GREATLY appreciated! It's been driving me crazy for days now.

If you click on "FOCUS OF SERVICE", the combo box in question is called "AREA" that is located up the top.

databasedemo.zip (http://www.deakin.edu.au/~apb/databasedemo.zip)

thanks,
andrew

View 3 Replies View Related

Code To Open A Wordpad File From A Button?

Aug 24, 2007

Does anyone know the code for opening a specific notepad file from a button? I know there's a default button but it only opens a blank notepad page. I need to open some written instructions from a button you see.

Thanks.

View 3 Replies View Related

Close Current Form And Open A New One Code

Aug 29, 2005

Hi

I need a button code in the OnClick event.

I want when clicking on the button, to close the currently opened form and open another one.

Any help will be very much appreciated!

Thanks guys!
C.

View 10 Replies View Related

Form Open Code To Select A Parameter

Oct 9, 2006

I have a database with lists clients across the UK. I have now been asked to provide options where users can select clients grouped by geopraphical area e.g say clients in Scotland.

I can of course do this but having numerous identical forms where the source queries have different parameters depending on the regions required.

The only problem with this is that I would need numerous forms and queries. Additionally, there are options on the form to navigate to linked forms which would all need to be unique.

What I would like to have options on my main (Switchboard Type) Introduction Form to select the region. The code on the relevent command button would include the parameter. I would therefore not require the additional forms.

The open form codes includes:

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmClients"
DoCmd.OpenForm stDocName, , , stLinkCriteria

I feel i need something after "frmClients" such as qryClients.ClientArea = "Not Scotland". Various attempts to incorporate something has created errors.

Any quidance on code would be appreciated.

Thank you...Paul

View 3 Replies View Related

Need Help With Double Click Open Form Code

Dec 14, 2006

Hello..

I have the following code that I have been trying to get to work:

Private Sub txtSocNumber_DblClick(Cancel As Integer)
On Error GoTo Err_txtSocNumber_DblClick

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmApplicantFullDetails"

If IsNull(Me.txtSocNumber) Or Me.txtSocNumber = "" Then
MsgBox "This record is empty", vbInformation, "No Data"
Me.txtSocNumber.SetFocus
Else
stLinkCriteria = "[ApplicantID]=" & Me![InvestigatorID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Exit_txtSocNumber_DblClick:
Exit Sub

Err_txtSocNumber_DblClick:
MsgBox Err.Description
Resume Exit_txtSocNumber_DblClick
End Sub


I have the following two tables:

Applicant and Investigator

Applicant:
ApplicantID
InvestigatorID
etc

Investigator:
InvestigatorID
etc

The relationship is setup as 1 investigator to many applicants.

What I am trying do is this. I have form with a subform in it. In the subform there is applicant info IE SS# LName, FName and that is it. What I want to do is be able to double click on the SS# have the form "FrmApplicantFullDetails" open so you can view the work up on the applicant or edit info on the applicant.

Am I going about this the right way with the above code? Or is there something else I am missing in the code or is there code out that will do what I am looking for that is easier?

Thanks
R~

View 5 Replies View Related

Open File Code In Visual Basic

Jan 5, 2007

Hello!

I am an access novice so was wondering in anyone can help me.

Can anyone post the code I need to enter to do the following;

1) Import a file from my local hard drive into a designated table in access

2) Export a number of tables back onto my local hard drive

I would like it so these actions occur when I click on the relevent command box on my form

Any help would be very much appreciated

View 1 Replies View Related

General :: Open File In Dialog Box Code

Aug 8, 2013

this cod ein access vba for opening a file dialog and selecting a file in a textbox ..

Private Sub Command26_Click()
Dim fDialog As Object
Set fDialog = Application.FileDialog(msoFileDialogOpen)

[Code]....

this code,on the form i have a button whose click event is this code and a a text box with it which is text29.

It gives an erro

Run time error '2185':

you cant refernce a propery or method for a control unless the control has the focus .

View 1 Replies View Related

Forms :: Show VBA Code On Form That Will Not Open

Dec 19, 2014

In the initial Form_Open code there is a string that fails before the form is open, preventing me from opening the form and accessing the VBA code to correct the problem.How can I access the VBA code to correct the problem if it otherwise prevents me from opening the form so I can access the VBA code?

View 7 Replies View Related

Modules & VBA :: Code To Search For TIF File And Then Open It

Aug 15, 2013

How to write some code that will search a known drive and folder structure for a tif file and on finding it, open that tif file.

The known drive/folder structure is as follows:

M:CustomerSatisfactionStdDGImages

or it could have the full path as follows:

prdfs01QUESTIONSCustomerSatisfactionStdDGImag es

and then there are the following folders which contain any number of tif images:

01_Q
02_Q
03_Q
04_Q
05_Q
06_Q
07_Q
10_Q
11_Q
12_Q
13_Q
14_Q
17_Q
18_Q
19_Q
20_Q
21_Q
23_Q
24_Q
28_Q
29_Q
30_Q
31_Q
32_Q
33_Q
34_Q
35_Q
36_Q
37_Q
38_Q
39_Q
AR_Q
HE_Q
SKY_SKY3B

I would like to have a button in a form that the end user clicks and they then enter the name of the tif file they are looking for and on pressing enter the file is searched for and if found it is automatically opened up for them to see, if it is not found then a message "File Not Found" is displayed.

I Believe that I will need something like this:

Code:

Dim FS As FileSystemObject
Dim filenum As Integer
Dim tmp As String
Dim Folder As Folder
Dim subFolder As Folder
Dim File As File

[Code] .....

It's when I get to this point that I've got stuck, I don't know how to structure the code required to do the search and on finding the tif file open it.

An example tif file I might search for is: 0H214_2CJ0001905.tif.

View 11 Replies View Related

Imported Table Not Included In Reports!

Sep 2, 2004

I have an imported table that I created a form for (containing 400+ entries). I created a subform on it for a new table that I will be entering information to tie in with the imported form.

However, when I try to create a report, the report won't acknowledge any of the information. It's all outlined in the SQL, but nothing appears.

I did discover, though, that if I create a new entry on the imported table, that information appears on the report, but nothing for the existing data that was imported.

Please help!!!!!

View 1 Replies View Related

Modules & VBA :: Code To Open A Form To A Specific Record

Sep 4, 2014

I am using a datasheet view with dbl click code to open a form to a selected record. I was able to use pbaldy's code and it worked perfectly.

DoCmd.OpenForm "Asset Status", , , "[Project Number] = '" & Me.Project_Number & " ' "

Then I realized I really want to be able to go to other records after I have gone to this form and tried this:

Dim rs As Object
Dim lngBookmark As Long
'set variable to the current record
lngBookmark = Me.Project_Number
'open new form

[code]....

But to no avail. Project_Number is a text field.

View 12 Replies View Related

Missing Records When A Table Is Included In A Query

Mar 1, 2006

I am working with a normalized database that has MANY tables. Most of these consist of lists of options to select from for the primary table. The primary table is linked to the secondary tables (and those to tertiary tables) by Primary Key ID fields, and the other tables contain additional information.

For Example, the Name list table is related to the Actions table by the SSN field, and the Actions table is related to the PayStatus table by an ID number collected by a lookup field.

When I pull all three tables into a query to display all the information related to a particular individual an his action, there are more records if I remove the PayStatus table from the query. It seems to only pull reports for which a PayStatus has been selected.

How can I get the query to display ALL the records, whether or not the individual has a pay status? Whether or not the individual has one is irrelevant, but I want his name to be displayed, whether or not he has one.

Thanks for any suggestions.

View 2 Replies View Related

Trying To Have Sums And Individual Records On The Same Page (picture Included)

Sep 8, 2006

well i tried asking for help on this earlier, but i wasn't able to find any help so here is my problem.http://img330.imageshack.us/img330/2850/pictureaccessro7.jpg (http://imageshack.us)the sales - net = profit is fine but what i want to do is have a totals at the very bottem. everytime i try to do this, i can only get the totals to show and each individual record dissapears, or nothing shows at all. i've tried using a report but i can't seem to pull it off either. if anyone knows what i'm talking about and knows what i have to do then please help me :)

View 4 Replies View Related

Query Records With Todays Date But I NEED The Time Included

Dec 13, 2006

I have a basic trouble ticket type database that I built. It records troubles and auto fills the date and time when a new records created. I want a simple query that will display the number of calls that each person has taken today.

The problem being that If I use >Date()-1 I will get calls from this time yesterday until now. Is there a way to round down the time to today only? I don't want to lose my time stamp.

View 8 Replies View Related

Modules & VBA :: Export Pdf With Field Names Included With File Name

Feb 7, 2014

I have a report that I would like to export to a folder, and I would like to include the FullName within the naming convention of the PDF. When I run the report it prompts for the Employee ID..Here is what I have so far, I'm getting an error of "Run Time Error 424 object required" on the String Report Name,

Private Sub Create_PDF_Click()
Dim myPath As String
Dim strReportName As String
DoCmd.OpenReport "Report_Salary_Worksheet _Finalized_By_EmpID", acViewPreview
myPath = "W:COMPENSPHYSICIANSComp Plans"
strReportName = Report_Salary_Worksheet_Finalized_By_EmpID.[FullName] + ".pdf"
DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True
DoCmd.Close acReport, " Report_Salary_Worksheet _Finalized_By_EmpID "
End Sub

View 5 Replies View Related

Queries :: IIF With Null Included Field - Lookup Table Values

Jul 1, 2013

I am currently working on an instrument datebase, I have a mainquery that takes care of user inputs from a form. The main fields that have been queried on are Type, System, and Manufacturer and they are all look-up fields that contain some null values.

On the same criteria row for these fields, I have

Like IIf([forms]![User Interface].[qtype2]="","*",[forms]![User Interface].[qtype2])
Like IIf([forms]![User Interface].[qsys2]="","*",[forms]![User Interface].[qsys2])
Like IIf([forms]![User Interface].[qman1]="","*",[forms]![User Interface].[qman1])

qtype, qsys and qman are the user inputs from the user interface that returns look-up table values.

This works fine when all 3 of these fields are all filled out for a certain instrument. The problem arise when some fields of the instrument are left blank or is null. The instrument won't show up in a query at all. What I wanted it to do is to show everything including the ones with null fields when the user input are null or "". When the user specifies certain requirement I only want to show the ones that are not null. I understand that putting them on the same row means AND, I have tried to OR them and did not have the result i wanted.

View 3 Replies View Related

Auto Backup On Entire Database Close / Forms Included

May 10, 2014

I have a database with multiple forms and I would like to on close I would assume of the form, save a backup to a specific folder. This will all change once I move the database to the server but for now want a backup on my machine. Here is my code:

Code:
Private Sub Form_Close()
Call db_backup
End Sub
Below is in a module

[code]...

The problem is when I run this the program will give me an error saying: runtime error 438 object does not support this property or method

View 8 Replies View Related

Correct Code Command To Keep Form Open After Selecting Close Control Box Button?

Oct 13, 2015

I am at my Login Screen, I want it to return to the Login Screen if you select "NO" and Close the DB if "YES"

Here is my current code:

Private Sub Form_Close()
If MsgBox("Would you like to EXIT the Database?", vbYesNo, "Quiting Database") = vbYes Then
Application.Quit
Else
???
End If
End Sub

View 5 Replies View Related

Queries :: Union Within Subquery - Specified Expression As Part Of Aggregate Function Not Included

May 27, 2014

I've created the following but it keeps coming up with the error message You tried to execute a query that does not include the specified expression 'ICE Team' as part of an aggregate function.

SELECT ztSub.[Master Sheet].[ICE Team], ztSub.[date], Count(ztSub.[Count])
FROM (SELECT [Master Sheet].[ICE Team],[Master Sheet].[Visit Date (planned for)] AS [date],Count([Master Sheet]![Visit Date (planned for)]) AS [Count]
FROM [Master Sheet]
UNION
SELECT [Master Sheet].[ICE Team],[Master Sheet].[Date retasked to?] AS [date], Count ([Master Sheet]![Date retasked to?]) AS [Count]
FROM [Master Sheet] ) AS ztSub
GROUP BY ztSub.[Master Sheet].[ICE Team];

View 5 Replies View Related

Modules & VBA :: Writing Code To Open Query After User Selected Fields To Include From ListBox

Jan 14, 2014

Access 2007-10
Listbox created: List62 (I know I need to rename it, but for now)
Multi-select: Extended
Row Source Type: Field List
Row Source: qryFieldList
Open Query: qrySelectedFields (I added primary key to first column, just to have at least one destination field).

Goal: to select multiple fields within listbox, click on command button to open query "qrySelectedFields" with selected fields from list box.This is the code I have on the command_click:

Dim varItem As Variant
Dim strSQL As String
If Me.List62.ItemsSelected.Count = 0 Then
MsgBox "Please select one or more fields.", vbExclamation, "Healthcare REIT"
Me.List62.SetFocus
End If

[code]....

It does absolutely nothing - doesn't add the fields to "qrySelectedFields", doesn't open the query, notta.

View 8 Replies View Related

Open "Print Layout" In Word By Code

Jul 16, 2005

In the menu in word there is some option to view the documents
1. Normal
2. Print Layout
3….


I open the word’s document from the access
I insert value from the access into word.

I asked here some question in last week and I helped so much.

My question now is:

In the document in the word I put some bookmarks.
One of the bookmarks is on the header (Title of the document)

And then when I open the document its open in a “Normal” view
I want to open the document in “Print Layout”

Can I open a document in “Print Layout” by code?

The problem code is:
objWord.ActiveDocument.Bookmarks("nivchan").Select
objWord.Selection.Text = Me.M_NIVHAN
Because the Bookmark: “nivchan” is on the header.

Thanks a lot and good week!

View 5 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved