Hey,
I have an access database that imports a certain range of a certain sheet from 30 files all of which are in the same folder and I am trying to get that BOTTOM MOST peice of code to automate the process.
Now one of my many complications was that the excel files are workbook protected, and so it would give the 'cannot decrypt error' that’s why I have all that code regarding unprotecting it... but for some reason its not working
It gets to the line where it gives it the password and it tells me the password is unaccepted, and yes the password is correct...
It must have something to do with the do loop, because it works fine whenever I used it over one import file and thus without the loop... Like this for ex works perfectly fine
So Please tell me what is wrong with this bottom piece of code...
And secondly, I have a table which contains a list of names, whether they are active (checkbox) and their filenames each on a column of its own...
Can anyone show me how i can include into my code (assuming the password problem is fixed) that would allow me to place an if statement that checks whether the user is active or not... IF he is then it imports his file (using the filename column next to his name).... If he is not active then it just goes onto the next person without importing him/her
Right now I have it importing all the files in that folder
Code:Option Compare DatabasePublic xlapp As New Excel.ApplicationPublic Sub ImportAll() Dim strPath As String Dim strFileName As String strPath = "G:CBT" 'Set Path strFileName = Dir(strPath & "*.xls") 'Set first file Do On Error GoTo ErrTrp DoCmd.TransferSpreadsheet acImport, 8, "Test 2", strPath & strFileName, True, "Access_Upload!C13:L34" ErrTrp: If Err.Number = 3161 Then 'Encription error so unprotect workbook xlapp.Visible = False 'Open Excel xlapp.EnableEvents = False 'Disable Events (Macro's) xlapp.workbooks.Open strPath & strFileName 'Open File xlapp.ActiveWorkbook.Unprotect (blah) 'Unprotect 'Try and Import again DoCmd.TransferSpreadsheet acImport, 8, "Test 2", strPath & strFileName, True, "Access_Upload!C13:L34" xlapp.ActiveWorkbook.Save 'Save xlapp.EnableEvents = True 'Enable Events xlapp.ActiveWorkbook.Close 'Close File xlapp.Quit 'Quit Excel Else End If strFileName = Dir() 'look for next file If strFileName = "" Then 'no more files Exit Do End If LoopEnd Sub
Please let me know what I can do with this
I am a novice at coding...Just tell me where to put the code
I've been working on a database for the last month or so. It's been a slow process since I've been learning Access and VBA in the process.
But my supervisor wanted a copy of it as a progress check to send to his boss. So I sent an email with a copy of the database as an attachment.
THe email went through, but when my supervisor tried to open said email, a dialogue came up saying that Access couldn't open the file because it was "out of the intranet or on an insecure site" or something along those lines
I was just wondering what this meant and how I would be able to send my boss a copy of the database so that it can be reviewed and such. Would this require splitting it?
I'm having trouble creating my query I have a table representing the company's products. Ever once in a while the products get replaced by a newer product. Like below _____________________________ Product - Replaces - Replaced By a..................................b --------|----------|----------- b.................a...............e --------|----------|------------ c --------|----------|------------ d ------------------------------ e.................b
Can someone help me write a query so the result below will be shown in three fields.
Product - Replaced by level 1 - Replaced by Level 2-Replaced by level 3 ....a..................b.......................... . e......................and so on
Hi, I’ve been having some problems being able to do some things on my database, I was doing ok creating my system but now I’m a bit confused about what to do and I’ve been trying but getting no where. Firstly on my order form I need a total for the products which are in an subform and after the order is complete I need to be able to create an invoice and keep all the order information in the 'invoice' and 'invoice details' tables. I also need it to update the stock levels after the order is complete. Then I had created a tab in 'view customers' and I wanted to have it so that past customer orders could be viewed. Any help is appreciated; here is a link to my system: 'Gamez System' (http://www.savefile.com/files/5877934)
Hi! I have a problem with my form [EDITAR], the problem is that i did a form basing me on a table, but now i want to create a command that when i press it, it has to let me edit my data. i don't know how to explain me very well. i want to change my data but changing it with my form and save that information.
the other problem is that i want to create the same form for but only to add new data on the same table, i want to create a command that i will press if i want to add new records.... help i really need help:confused:
I have a table with 2 fields (pr_row, pr_col). All i want to do is: I want to update the table so that every 21 records, the pr_col field will increase from 1 to 21 and so on, and the pr_row field will remain with the same value (but increasing by 1 every 21 records) Explaining pr_row-pr_col =========== 1 - 1 1 - 2 1 - 3 . . . . 1 - 21 2 - 1 2 - 2 2 - 3 . . . What is the update query that i must execute?
I am having difficulties with working out how to create a correct query from my database. :confused:
These are the two results I require:
What strength of whisky sells the best at Christmas (How do I do an 'In-Between' date condition regardless of the year? i.e. >= #01/12/____# AND <= #31/12____#) Which companies have not purchased at least one bottle from each region?
However, I am not sure how I would go about getting these specific results from the database. I have done serveral previous questions based on the database (which can be seen in the .mdb file) however these two are proving troublesome. I have attached the database to this post if anyone who is at ease with queries would be kind enough to have a quick peeky at it.
Any help would be greatly appreciated !
Note. the database information is fictisious. :rolleyes:
i stumbled upon this site via google while i was trying to find a solution to my problems! i'm a pretty proficient pl/sql writer and this is my first time trying to learn jet sql so a lot of the things i'm used to in pl/sql can't be done in jet sql!
1) i'm trying to create a summary record from RR_FT_COMPONENT to RR_FT_TOT_PAYOUT. this is basically summing some payout fields by grouping by payee_id and period_id. from my research i've seen that jet sql doesn't like sum or group by's for updates. is it the same for doing select statements for insert into?
when i run the query i get the following error: "ms access can't append all the records in the append query. MS access set 0 fields to null due to a type conversion failure"
all of the fields on both tables have the same type. is this a group by and sum problem? i ran the select statement separately and it worked fine.
SELECT max(rc.market), max(rc.region), max(rc.financial_center), rc.payee_id, max(rc.employee_name), max(rc.manager_flg), max(rc.lic_code), max(rc.job_code), rc.period_id, sum(rc.volume), sum(rc.cp_spread), sum(rc.ytd_spread), sum(cp_comm), sum(ytd_comm), max(prior_yr_flag) FROM RR_FT_COMPONENT AS RC GROUP BY rc.payee_id, rc.period_id;
2) in this next code i'm trying to sum spread information in the ft_txn_summary table for a given payee_id, market and period_id. i'm using dsum and have the appropriate joins to keys on the tables, yet this update sums ALL records in the ft_txn_summary table rather than summing the specific payees in the join. any idea on what's wrong or how to debug dsums?
code: UPDATE rr_ft_component AS rc SET rc.cp_spread = Dsum("txn_spread","ft_txn_summary","ft_txn_summary.payee_id= " & [rc.payee_id] AND "ft_txn_summary.market= " & [rc.market] AND "ft_txn_summary.period_id= " & [rc.period_id]) WHERE rc.component_name='Total Revenue';
I am a newbie at Access and am basically designing my first database. This database is for a short term project and is designed to track the attendance of employees at acompany. Here is a brief description of the tables and forms in question.
EmployeeInformation - this table stores records of each employee, their ID, DOB and SIN.
AttendanceProfile- this table stores records of prolonged absence periods for each employee. A given employee can have many attendance profiles, meaning that this table is linked to the EmployeeInformation table via a one-many relationship. This table will provide detailed information about the status and history of each Profile. So for example if an employee misses work for 12 days due to an appendicitis operation, the exact nature and dates of this absence would be listed as a new profile. The primary key for this table is an autonumber field called ProfileID
ActionLog - this table stores the actions taken by company employees (if any) in response to each AttendanceProfile. It is connected to the profiles table via a one-one relationship with ProfileID being the foreign key in this table. Another main field is the ProcedureNum field which will list the number of each procedure taken for a given ActionLog record. This table is needed to track what the company has done/is doing to track an employees prolonged absence.
Allow me to illustrate with an example. An employee, John Doe misses 15 days in June 2001 due to an illness in the family. An AttendanceProfile record is then made for this period illustrating the exact nature of Mr. Doe's absence as well as tracking what official documents he has submitted (eg medical note, official company documents). Another matching record containing the same ProfileID is also made in the ActionLog table describing what the company has done so far to track this absence. So if an HR employee calls Mr Doe's physician to verify this illness or sends a letter requiring further documentation, each of these steps is listed in this log for this absence profile.
Sorry for the long-winded explanation, but better now than to have to clarify myself later. Here is where I'm stuck. I would like to set up two data entry forms, to create new AttendanceProfile records and related ActionLog records. Obviously, these corresponding records are linked directly by the ProfileID field. After completing the AttendanceProfile form, I would like the user to be able to click a command button to open another form (I am avoiding a subform in this case because my attendanceProfile form is huge and I cannot conveniantly fit a subform on it) to open a new form where they can enter Procedure descriptions and dates on the ACtion log. For each new procedure the user enters, an autonumber fields automatically increments the procedureNumber for that specific ProfileID.
Finally, my question to any of you is, assuming that I have already designed the AttendanceProfile table and form, how shall I design the ActionLog table AND forms to accomplish this exact task.
Once again, sorry for the excessive detail. Your assistance is greatlys appreciated.
I have a stock control database which i have nearly completed. This has Manufacturer, which is linked to products, which is linked to Sub Product(which also has field partCode). i.e. Manufacturer1 can have 3 products, and each of these products could have 5 subsystems and partcodes. Each partcode is unique to that subsystem/product/manufacturer.
I then have a pricing spreadsheet in excel, which has many tabs. A new column has been added for each item for Manufacturer,Product,Subsystem and Partcode.
I need to import these manufacturers,products,subsystems and partcodes, but into the tables with the correct relationships, i.e. product1 and product2 are products of manufacturer1 and so cannot come under manufacturer2, and so on.
I hope this makes sense, Thanks in advance for any help you can give!
Hello, I'm trying to import xls files in access, but it always gives a failure notice: .xls contains no object. What does this mean? Please help me - urgent! Thanks. please e-mail me (karolien.hellemans@leuven.be)
So I have inherited 6 .WDB files that I need to get into my database and create some forms with. Problem is, I don't have MS Works to save as another file type. getting these .WDB databases into Access would be amazing!
After a week of hair pulling problems with no solution, I've decided to ask my question here, knowing someone will be able to help me...
To the point: I'm to use a QBF with more then one criteria, (I'm using: like "*" & forms![f_name]![TB_first_name] & "*" or is null), I'm having a problem with this because when I leave a text box blank, it retrieves everything (because is null = true), what I'm trying to say is: I have a QBF when using, lets say, 3 text boxes, unless I fill all of the text boxes with text, the query retrieves all of the records, can it be fixed ? I've tried to use IIF but with no success... can anyone help ? :confused:
and another problem: while trying to import data which is not in English, from a Visual FoxPro data base to access, it turns out unreadable, what can I do to transform ASCII to ANSI or Unicode? :confused:
Hi, I’m trying to Import an external CSV file in to Access and then Update/Add the record into a table. I need to be able to do it using SQL and I’m not allowed to touch RecordSet! Does anyone know How I could do this or where I would be able to find help on this.
Hi... i have a excel file..... from which i have imported records.... after importing.... the records sequence in my table has changed..... can anyone tell me how to preserve the sequence that i had in excel..........
Hello all, I am all new to access and I am trying to convert a program I made from excel VBA to ASP.net using access data bases. I am not even sure if this is possible, but I started looking into access couple of days ago, and reading examples of using it for websites etc. that I think it might have the potential. My question is: I have an excel file that has the following format: months 1 2 3 4 5 6 7 8 9 10 11 12 Products
Now the way I pull data out of this sheet of excel is if a user asks for the total number of products sold in february, the program will search for the month (2 in this case and that would be the fixed column) then it will add up all the entries in that column after row 1 (row one is the row that has the month numbers) and display the total (for this example it would be 41).
This is a real simplification of what is done but I think is brings out my question of how to build a data base for such data where I would need to make a 2 dimensional search, since from what I could not figure out how to incorperate my months into the data base in access when I tried to convert the file from excel to a database table in access.
I hope someone could help me. and I thank you all for you comments and replies in advance.
I'm trying to import an excel sheet to access and one field is y or n and I am not sure how to convert this so the value is right so I can query it.What should I put in my excel sheet "yes","no' or Y,N or numeric values??Access doesnt show it help please!!!
Hi, I am importing a custom field (containing six digit integers, e.g. 000099, 012000, 102300, ..) from Excel. This custom field in Excel is formatted 000000.
The corresponding field in Access is a text box with input mask !000000. (the Format property for this text box is blank). However, on importing, 000099 enters as 99, 012000 as 12000 etc.
What have I done wrong! Any help very much appreciated.
I'm importing .csv and .xls files into access using docmd.transferspreadsheet and it's simple enough except for a couple of issues I'm having:
1. The .csv file has leading ' and if I converti it .txt if has leading " in some of the columns .....what's the best way to get rid of these and is it better before or after the importing process.
2. a .xls file has a few rows of totals at the top so I need the importing to start at row A7 instead of A1...is there a way to control where it starts rather than manipulating the file prior to importing because it's all going to done by clicking a button on a form by user.
And there's a 3. one of the .xls has additional blank rows that it seems to import into the access table....what's th solution for that.
All the files will vary in number of records on a daily basis so I can't specify range like the DoCmd.
I have a dbf file that I need to somehow get the table data out of, and into access, excel, or some other usable format. I searches the MS Knowledge Base and read several articles on updating the Jet 4.0 drivers (up to date) and updating Foxpro ODBC drivers, etc. I also searched these forums, and I have yet to find any solution that works.
I think this dbf file might be Foxpro, but I'm not sure. I don't know anything about Foxpro. I was getting an error message "unexpected error from external database driver (8961)", until I read an MS article stating that I should change the name of the Borland folder to BorlandOld and try re-importing. Now Access 2003 just says: "external table not in the specified format".
I wanted to know if anyone else is having issues with getting external data into access from excell? For some reason this function is not working for me today.
