I figured out how to do what I needed to do.
Below is my code. It worked just fine. NOTE: In the first For... loop, I used Step 2 because it turns out I only needed the records from every other sheet beginning with sheet1. I also only needed the data from columns A and D from the first 51...
I do not know how to get to all the sheets in the workbook...only Sheet1. There are 212 sheets (Sheet1, Sheet2, etc.) and I need all of them. A point in the right direction would help a lot.
I have an Excel spreadsheet that has 212 worksheets and I need to import (or copy) the data from each of the worksheets into a single table in Access. I figured if I could specify the worksheet to import, I could loop through the worksheets importing the data for each one, but the...
Check out http://www.mvps.org/access/api/api0019.htm to address the maximize issue.
Check out http://www.mvps.org/access/api/api0022.htm to address the disable the X to close the application issue.
I hope that helps.
Deno
Try using the DateValue function with the DTPicker fields. I had a similar issue with DTPicker fields and it worked for me.
Ex: DateValue([Forms]![frmMeerMinderWerk].[cmbRedenAfwezig]) AS FK_afwezig_reden
I hope it works for you.
Deno
Hi!
If any one of the search criteria that the user enters on the form can be true to be returned in your query, then you should try replacing the current WHERE clause in your SQL statement to the following:
...
WHERE (((Main.Manufacturer) Like "*" & [Forms]![csearch]![Manufacturer] & "*") OR...
Something like this might also work. Note: you may need to change the .FileName line to match the naming conventions of the workbooks.
Sub ImportFireFighterForms()
Dim fName As String
Set fs = Application.FileSearch
With fs
.LookIn = "C:\FireFighterForm"
.FileName = "Tbl_Data*.xls"...
Check your References...you may need to move the reference to Microsoft DAO 3.x Object Library to a higher priority that the reference to Microsoft ActiveX Data Objects 2.x Library.
If this is not the issue, then you may also try changing the...
& "Like " * "...
Try using .TextBody instead of .Body.
I am running Access 2002/Outlook 2002. I reference Microsoft CDO for Exchange 2000 Library, so this is a different implementation, but it may be worth a shot.
You could create a Make-Table Query based on the table that you want to transfer to the backup database. In the Make Table dialog box, use the Table Name you want and point it to the backup database using the Another Database option.
Then you can use DoCmd.OpenQuery...
I hope that works for you.
I think I understand your problem. Based on my understanding, I created a table, VLoans with columns ToLoanID, FromLoanID. VLoans had the same data in it that you noted in your example above. Then, I created an empty table, HLoans with the following columns...
blute,
I would suggest modifying your module...
Add a sub that iterates through your customer table and as it iterates through each record, have it call your other sub that makes the table and exports it to Excel.
I'll assume that your sub that makes the table and exports it has an argument...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.