I have created a Switchboard where users can enter data via a form and run reports. I tried testing by entering data into the form and switched over to see my entry in the report it's not there...
How do I automate it so that when the users run a report it updates it will their entries?
Access 2003
I managed through a code on this forum to do compact and rapair on a button click as follows:
CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction
but then the dialogue winodw pops up to ask me to opn the comacted databse or not.
I want to set that to open automatically after the compact and rapair.
reason is that I will run another code after that to backup the databse.
any way to that
I have a data bate that sends automated emails or it should. The thing is it will not open with the Icon there for it will not run with the windows scheduler. Has anyone ever seen this error before. I get this when I click on the Icon. But I can open in design and all works fine.
""Cannot find the file ;’CDocumentts and Settingd41668
DecktopCalibrationDBAutoMailer.mdb’(or one of its components). Make sure the path and file are correct and that all required libraries are available.""
I would like to create a program within access that is linked to a specific folder on my C: drive and waits for a file to appear within the folder. Once the file appears, i would like access to process the file and return the output back to the folder. Is there a way to do this?
example: test.txt appears in folder C:Test. Access grabs the txt file, opens it, processes the information and then writes the output back to C:Test. I will need access to continously check the folder for new files.
thank you
Hey folks -
Is there a way to open a different data base from within another?
I would love to have a command button that closes the current database and opens a second. (My project is growing and it would make things much easier if the next several sections would be on their own - esspecially since they are unrelated to the main portion of the project).
Many thanks for your input,
t
Guys I am having a blond moment
I have a qry that i wish to export to xls - but i want it to be automated
what i have is transactions and I need to have these exported in xls on the following basis
Sterling transaction - with
tax type 1 (5%)
tax type 2 (2%)
tax type 3(N/A)
etc
then .
euro
tax type 1 (5%)
tax type 2 (2%)
tax type 3(N/A)
etc
Dollars
tax type 1 (5%)
tax type 2 (2%)
tax type 3(N/A)
etc
other currencies - South african Rand - Idian Ruples etc
all seperated out
by currency and by tax
now my reports - done - fine
the xls transfer is throwing me
I know there is a key word that shows me how to do it (So let me know this word and then i should be able to take this a step forward)
now how I intend on doing this (given my limited knowledge on coding) is to run 1 qry per currency per tax rate and export into a xls book and each qry to be on a seperate tab/sheet
so let assume that each currency will have 3 tax rates (there willb e more)
so i will need 3 per currency in the example above
sterling , euor and dollar giving 9 qry to make - now the qry themselves are easy no problem on this - but is this the best way to do this or is there a better way ??
your thought smuch appricated
g
Looking for a way to count the number of pages in a word document (while in MS Access)
Also looking to delete a page of Word while in Access.
In simple terms please explain what an Automation object is. The Access help is any help!
When I try and enter a value it comes up with "The object doesn't contain the Automation subject "Surname"" The only surname field I have is on the header of the form and is not related to the field that prompts the message.
Any ideas much appreciated
I'm trying to take a value in an Access form text control and populate a single cell in an Excel file.
I can open the file I just don't know the VBA syntax to populate accordingly. Any help will be appreciated.
Thanks.
My table has pre existing data in 5 fields. I want to be able to schedule
and automatically append 25 records to the fields once a week. What is
the best way to approch this.
Thanks
I have a small mdb database that I archive every week, usually during the archive I delete all the forms expect (logon, switchboard, and three others) and keep the tables, queries, and reports. (use the forms to only enter data, which are not needed for the archive and deleting them reduces the file size)
is it possible to have something in vb,
- that will run if its Friday 5pm
- will backup the data base to a location on a mapped drive,
- with a given file name mmddyy_data.mdb,
- and have all but the 5 forms (mentioned above) deleted
I have a VBA script that opens a intra net web page and downloads data from it. The data is stored locally in Access tables. After the tables are filled, the script ftp's the database to the web. This script is set to run every night at midnight and has worked well for months now.
I had to upgrade my website's database to MSSQL server from MS Access. So now my script needs to be modified. I need to take these access tables and upload them to SQL Server instead of a simple ftp upload.
In SQL management studio I can import an access database easily. It transfers all of the data in 5 minutes or so. But I have to do this manually and click through a wizard.
I have tried setting up linked SQL tables and running append queries with VBA using DoCmd.RunSQL This method is way too slow. I tried saved append queries using query design grid and it is only a little faster.
I am transferring 10 tables or so, with anywhere from 1000-100,000 records. I've read through 3 pages of SQL Server searches and I am still at a loss. I really need to automate this process.
Any help is greatly appreciated as always...
I made a table with a Date and Age field. If I have typed in 12/14/04 for the date and 25 for the age in the first record, how can I make Access display 12/15/04 and 26 in the next record automatically, then 12/16/04 and 27 in the next record after that and so on (as a default value for new records). I have tried the different built in date expressions, but I always get a type mismatch error. Can anyone help me with this? I am sure it's simpler than I think. Thanks.
View 3 Replies View RelatedThe SQL statement
SELECT pendingdetailsDrum.ID, DateValue([orderDate]) AS DatePortion
FROM pendingdetailsDrum
WHERE DateValue([orderDate])=DateValue('1/2/2006')
is giving me Internal OLE Automation Error, however when I remove the Where clause it works.
Can someone explain why? OR...
The reason I am using DateValue is because the orderDate field has a date portion and a time portion. When I put a date in the criteria it is not found because of the time portion. I guess I could run an update query and change all the date + time to just date, however , I would rather use the SQL Statement using the DateValue function.
Thanks so much for your responses.
Need a second opinion on this one, if someone has the time.
The boss is asking me about this:
Small db to track keys issued to individuals.
2 tables:
#1. ID, (with auto numbering for ID,) and basic name, SS #, etc.
#2. ID and Key number, Date Issued, etc, without auto numbering.
1 to many relationship (#1 to #2).
Cascadeing Update and Delete, and referencial integrity.
He has a form and subform based on a query, wants to do basic info entry on main form (for table #1), then tab to subform to enter specific info for (for table #2).
Problem is, when he tabs to the subform, he gets "Automation Object "Keys Issued" Not Available" error message.
I've found that in his querry, he is pulling the ID from both tables.
I can stop the error by eliminating the the ID from Table #1, using only the one from Table #2.
Is this just a fluke, or do you think I may have hit on the root cause? Any suggestions for problems to watch out for?
Thanks in advance,
BeckieO
I have a pretty basic database going. I have imported some information.
1. I have a text column with "Y" and "N" and I want to change the data type and automatically convert my exisiting "Y's and N's" to check boxes when there is a "Y".
2. I will be entering my data in a form as digits (mm/dd), which is linked to just one table.
- How can I get the year to automatically add itself to the entry?
- How can I get it to convert the "number month" to the "month name" automatically after I enter it.
Please help. I've been all over the intertnet and library trying to solve this problem.
-- Nerdette88
Microsoft Access 2003
Windows XP Proffesional
I'm opening a second database (db2).
Copying the structure of a db2 table to db3.
Populating the table in db3 with a subset of records from db2.
I've gotten as far as opening the db2 and copying the table structure. Can't figure out how to run the query using execute rather than docmd.openquery.
Code:
Dim appAccess As Access.Application
Set appAccess = New Access.Application
appAccess .OpenCurrentDatabase "DbPathString"
'copy the table structure to dbQn, overwrites any previous with same name
[Code] ......
I'm trying to add a value from access into a combo box on a web page. I can get the combo box to refresh, but not add in a value..The HTML for the combo box is
<tr><td align="right">Campaign: </td><td align="left"><span id="LogiNCamPaigns"><select size="1" name="VD_campaign" id="VD_campaign" onfocus="login_allowable_campaigns()">
<option value=""></option>
And I've been using
ie.Document.all.Item("VD_campaign").focus
To refresh it (works great)
And attempting to put a value into it (which is an option in the combo box)
ie.Document.getElementById("VD_campaign").Value = "201 - Campaign-1"
But nothing happens - not even an error
Hi,
I have an MS Access application installed on a number of machines and it is running fine on all of them except one.
On one of the server when I am submitting a form to search the database I get the error message:
"Automation Error. Element not Found."
Same version of MS Access on all machines. We are thinking of reinstalling MS Access on the machine to see if this would resolve the problem but just want to check if anybody else has any other suggestions???
Has anyone come across this problem before?
Any ideas or suggestions about how I might resolve it would be appreciated.
Thanks
I get the message "The expression On Click you entered as the event property setting produced the following error: Class does not support Automation or does not support expected interface"
I receive the message on a PC running Windows 7 Professional using the Access 2013 Runtime. This pc does not have Access 2013 installed.On my pc, I do not get the error. I have Access 2013 installed and run Windows 7 Professional SP1. The "code" which gives the error is as follows and is invoked by clicking a button on a form
Code:
MsgBox "1"
Dim rst As ADODB.Recordset
MsgBox "2"
Set rst = New ADODB.Recordset
MsgBox "3"
[code]....
The error takes place after Msgbox "2" and before Msgbox "3".The strange thing is that I can run without a problem a sophisticated software package on the pc which gives the error, using Access 2013 Runtime. This package I converted from Access 2003.
I have a form on access which allows users to upload csv files.
The files can be in any layout, so the field names and the number fields will always be different each time.
This can cause issues on data types, as access assumes a certain data type for a field, but the data may not always reflect that.
For example telephone numbers, access assumes this is a numeric field, however sometimes there will be symbols in this field such as +44. Which then causes import errors.
Is there any way to import these files without getting these sort of errors?
Currently the import process uses a simple TransferText method
DoCmd.TransferText acImportDelim, , "Original Data", Me.filelist.RowSource, True
This imports the data into a new table called 'Original Data'.
I had the idea of saving the table structure of the csv being imported (Importing the data with errors, then deleting all the records to just leave the structure) However I can't find a code to change the data types of that table to TEXT format, when I can't tell what the field names will be.
This whole thing is an automated process, which why there are loads barriers btw.
Hi folks, I need your help.
Did any one get a error message like the one below:
“
Run-time error ‘3061’:
Too few parameters. Expected 1.
“
Basically I have a form with a command button and a combo box. The combo box's row source property is set to the following sql:
SELECT DISTINCTROW tblProjts1.intProjectID, tblProjts1.chrProjectName FROM tblProjts1 ORDER BY tblProjts1.chrProjectName;
I have a command button which runs the following procedure (Thanks, credit goes to madrav72):
Private Sub cmdSendToExcel_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
'Set rs = db.OpenRecordset("qryOne", dbOpenSnapshot)
Set rs = db.OpenRecordset("qryTwo", dbOpenSnapshot)
'Start a new workbook in Excel
Dim oApp As New Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Set oBook = oApp.Workbooks.Add
Set oSheet = oBook.Worksheets(1)
'Add the field names in row 1
Dim i As Integer
Dim iNumCols As Integer
iNumCols = rs.Fields.Count
For i = 1 To iNumCols
oSheet.Cells(1, i).Value = rs.Fields(i - 1).Name
Next
'Add the data starting at cell A2
oSheet.Range("A2").CopyFromRecordset rs
'Format the header row as bold and autofit the columns
With oSheet.Range("a1").Resize(1, iNumCols)
.Font.Bold = True
.EntireColumn.AutoFit
End With
oApp.Visible = True
oApp.UserControl = True
'Close the Database and Recordset
rs.Close
db.Close
End Sub
qryOne:
SELECT tblProjts1.intProjectId, tblProjts1.chrProjectName, tblProjts1.chrBlrPropNum, tblMaxLoad.*
FROM tblProjts1 INNER JOIN tblMaxLoad ON tblProjts1.intProjectId = tblMaxLoad.intProjectId;
qryTwo:
SELECT tblProjts1.intProjectId, tblProjts1.chrProjectName, tblProjts1.chrBlrPropNum, tblMaxLoad.*
FROM tblProjts1 INNER JOIN tblMaxLoad ON tblProjts1.intProjectId=tblMaxLoad.intProjectId
WHERE (((tblMaxLoad.intProjectId)=Forms!frmReprtSelen!cb oProj));
My problem: When I run cmdSendToExcel_Click procedure with “ Set rs = db.OpenRecordset("qryOne", dbOpenSnapshot) “ it loads the excel and export the data to Excel without any problem. The Excel spreadsheet will show the rows as follows:
ProjtIdProjName Column3Column4 Column5, etc
8Bechtel xxxyyy
9WOPS aaabbb
11Spring zzzttt
12AgP mmmnnn
But when I run with Set rs = db.OpenRecordset("qryTwo", dbOpenSnapshot), I get the error
“Run-time error ‘3061’:
Too few parameters. Expected 1.”
I even tested the qryTwo using a separate command button with the following code on the click event:
stDocName = "qryTwo"
DoCmd.OpenQuery stDocName, acNormal, acEdit
and it produces the single row based on the projectId selected on combo box (as shonw below in datasheet view):
ProjtIdProjName Column3Column4 Column5, etc
8Bechtel xxxyyy
Does any one have any clue what this error 3061 is? Please help. I am struggling almost a week to figure this out, NO LUCK.
Thanks for your time and help in advance.
Shan.
Hi,
I have created a text box for user to enter some descriptions of a particular product. On Enter, i want to have bullets... For example, when the user press enter one time, one bullet will appear, and he/she can continue typing, press enter another time, another bullet appear.Could anyone advise on this?? :(
I have just started to develop a database that will export data directly into a word template. I have used Word automation quite a lot but I'm new to trying to automate Word from Access.
It's going OK at the moment, I have got the db to open up the template, write data and then close. My objective is to add the data to multiple tables within word. So I have created several tables in my word template and then tried to select these tables and write to the them. Everything is thing for the first table but for any other table I get an error message saying that the member of the collection doesn't exit i.e. the table isn't there. I select the table using:
Code:
objWord.selection.tables (2).select
I then used:
Code:
objWord.selection.tables.count
To show how many tables were in the document and it doesn't matter how many there are, it always says there is 1 table.
why it can only see 1 table and what I can do to get around it?
I have a form for adding new records. They are for people and I add in a bmp image of them. I want to create an automation. Where you press a button to add a photo. Find a jpeg you want. Then it is resized, converted to bmp and saved in the database. Is this easy enough to achieve? (size 256x188px)
View 4 Replies View RelatedI have programmed a letter using automation to Word VBA. The letter works like a mail merge so it might cycle thru several records when it runs. I've separated each letter in the document with a section break. I'm having a problem with the header. I've successfully added a header, but when it moves to the next record, it replaces the header in the entire document with the current record. I want each section to insert data from that record. How can I fix this? Below is a sample of my code (note: the linktoprevious doesn't seem to work either).
x = 1
'Create Header
With ActiveDocument.Sections(x)
.Headers(wdHeaderFooterPrimary).LinkToPrevious = False
.PageSetup.DifferentFirstPageHeaderFooter = True
[code]....