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 Replies


ADVERTISEMENT

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

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 1 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

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

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

Modules & VBA :: Open Database / Run A Query / Close Database

Aug 22, 2014

i have a database that runs updates from within itself.what i need is, this database to then open a another database run a update query, then close it.

View 4 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

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

Run Code On Database Closing

Jan 22, 2007

Where would I access the event properties for when the entire database closes? Something like the On_Close event for a form, but for the whole database.

I want to have Access prompt to back up the database upon exit, so when someone clicks the close button, a dialog box opens and asks "Do you want to back up?" with an Yes or No option. Yes would obviously run the backup code, and No would simply exit.

View 6 Replies View Related

Compacting And Repairing A Different Database Using Code

Dec 6, 2007

Hello

I am aware that there are a lot of existing threads relating to compacting and repairing but I cant seem to find what I am looking for.
Basically, I developed a complaints database for my employers and it is used by around 45 people at any one time. The database was one of firt I built so it is not the best and is serious bloatware. Our server management team gave me an ear bashing the other day because the BE was 145MB. I did a compact and repair which took it to 45MB. The problem is that I need to do this daily but it involves kicking everyone out of their linked FE so the BE can be compacted/repaired. As an interim measure before I rebuild the whole thing I am going to schedule a database to open that will compact and repair the Complaints Database BE. Can anyone tell me the code to use to compact another database other than the one I am using. I have been looking at the code in other posts but I cant get it to work. The code I was looking at is the DBEngine.CompactDatabase... but I dont understand what comes after this and why??

Thanks people. :-)

View 1 Replies View Related

Zip Code / Time Zone Database

Nov 7, 2005

Does anyone have a US zip code - time zone table or tables? I have been unable to find this data online without paying 150.00. I need this for a web application that i am doing.

As always thanks a bunch

View 2 Replies View Related

Compacting Database 'breaks' SQL Code

Sep 22, 2005

I had someone write some code to access an Access database. The code works with the database as is, however if I choose to compact & repair the database to minimize its size, the code no longer works. What could be different about the database once it's been minimized using the database utilities?

Thanks,
Rick

P.S. Does compacting the database make it more responsive to users on the web that query the database, or doesn't it much matter?

View 1 Replies View Related

ASP Code To Connect To A MS Access Database

Apr 17, 2006

Hi there,
Thank you for this great site, and a special thanks to all persons here who are giving a big help to newbees as me.
here is my prob:
I have set up some few ASP pages using dreamweaver 8 in wich I put some forms to collect data from users (actually I'm recruting subjects for a scientific research) and teste them on my local host using IIS server and access 2000 database. all things work correctly. My strconnection in my local machin is as follow:
Code:<%' FileName="Connection_ado_conn_string.htm"' Type="ADO" ' DesigntimeType="ADO"' HTTP="true"' Catalog=""' Schema=""MM_connsujets_STRING = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:InetpubwwwrootSujetsRecdbRecruSujets .mdb; Persist Security Info=False"%>
I have found a site (http://www.asphost4free.com) wich host free asp pages. I uploaded my pages but the connection to the data base is no longer working. the host site give this sample of code to get to connect to the data base:
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
strConnection = "DRIVER=Microsoft Access Driver(*.mdb);DBQ=" & Server.MapPath("/USERNAME/db/yourdatabase.mdb")
oConn.Open(strConnection)
....
...
oConn.Close
I have follwed it and I have changed the username and the database name with mine but I can't figure out what to put to replace the .... after oConn.open. I git error this error when I have tryed to connect:
Microsoft VBScript runtime error '800a01a8'

Object required: 'oConn'

/kin2006/Connections/connsujets.asp, line 11

I deleted the oconn but it doesn't help I have tryed many other combination without any success.
Any clue!!
thanks in advance

View 2 Replies View Related

General :: Code To Put Database On / Offline?

Jul 4, 2015

I am looking for some code that I can put into the on click event of a command button to turn my database on and offline

At the moment I use the option through external data tab

I'm happy to have two command button one for on line and one for offline

View 2 Replies View Related

Hide/Unhide Database Window With VBA Code

Oct 6, 2006

Hello,

I woul like to programatically (with VBA code) hide and unhide the database window.

In Access 97, this can be done with Tools > Startup > Display database window box (check/uncheck).

But I would like my program does that himself : when the user launches the application, the database window should be hidden and when he leaves, the database window should be shown again.

Thanks.

View 9 Replies View Related

Preventing Users From Editing Code For A Database

Feb 25, 2014

I have an access database which was created in 2003. I opened a blank database and imported the definition and data in access 2010 and made the file an accde file. Now this file has a lock symbol next to the access symbol. I am also unable to edit the main form.

View 7 Replies View Related

Get Table Names From Another Database File VB Code

Nov 6, 2013

I'm trying to find all the table names from another database file using VB code. This is what i have so far:

Code:
Function getFileNameOpen(path) As String
Dim f As Object
Dim varFile As Variant
Set f = Application.FileDialog(3)

[Code] ....

This function will show a browser window so that the user can select a file, and returns the file path.

Code:
Function OpenFile()
Call getFileNameOpen(path)
Dim db As Database
Dim td As TableDef
Database = path

[Code] ....

I have this function. I need to get all the table names from the selected access file into a list so I can do a for loop after.

I can't figure out how to set the CurrentDb() to the path one. This code gives me the table names and some other names of stuff which I don't know what they are. But for the current database not the one in the path.

View 2 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