Open Database From Code
Dec 16, 2004is 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
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
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
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
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.
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.
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.
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
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~
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
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 .
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 RelatedHow 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.
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.
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 RelatedI 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
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.
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.
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. :-)
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
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?
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
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
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.
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 RelatedI'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.
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!