Modules & VBA :: Zip Code Not Importing With Extension
Jun 27, 2014
I have a pretty basic TransferSpreadsheet module that works well except that if the Zip code has the four digit extension, it's not importing.
Option Compare Database
Dim myCheck
Function MeridianLinkFileImport()
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tbl_MeridianLinkFileImport", "R:DEPT-BRCONSUMER LENDINGMarketing Campaigns2014 Auto Loan PrescreenReport from LoansPQ.xls", True, "Sheet1!A3:AO50000"
End Function
If there is no extention, it is importing fine... 85086 works fine but 85018-4710 doesn't import.
How would one go about scanning a hard drive for all mp3 files (i.e. *.mp3) and importing all of the titles into a database? I'm sure the dir function comes into play, but it seems to only handle "current" directory and not sub directories.
I was just curious is all..... haven't really dabbled that much in the file/directory functions.
I have 12,000 cvs that i need to get into An access database so i can start to extract email info etc. They are stored in one folder All Cvs under each of their names edc.txt (i have converted them to .txt) i want to create one table with two fields name (taken from the cv filename and contents (taken fromthe contents of the .txt file). I am using Access 2007.
I need to create a command button to import a tab delimited text file into a table in Microsoft Access using VBA Code.
I have set up the button however I am unsure as to how I should approach it and what code i need. If anybody has any suggestions I would be very grateful.
I have a file that I need to import on a regular basis. There are two different issues with the import:
1. the first digit in the file indicates if it is a record I want to keep. In this case a 1 indicates a repair record and an 8 indicates it is just information such as email, contact info etc.
2. I have a field in the file that may change the import specifications
For example:
If the record is a Non wheel repair then column 167 is a 50 character description If the record is Wheel repair then column 167 is a 28 character description and the remaining 22 characters are broken down into 10 different fields
So I need to do the following
1. Read the first character in the line and determine if it is a number 1 and if not discard it 2. Read a field in column 109 that is two characters long and if it says it is a wheel repair the import will break column 167 -216 down to the appropriate 11 fields and if it is a non wheel repair it will import columns 167 - 216 as one big description field.
I have used the import specifications with Access but it seems this will have to be done in code in a module or something and I am not very good with VB. (only know the basics)
One other issue is I have dates in the file that are 130225 and 1302 (so full date and then Year/Month) if i take out the / date separator in the import spec the full date works but the Year/Month doesn't.
I have a text box and sometime the word in that text box is too long. So, is it possible to make the whole word appeared when the mouse is on the text box? I don't want to extented my text box.
I have just solved one problem concerning creating hyperlinks based on values in other fields: See Previous Thread (http://www.access-programmers.co.uk/forums/showthread.php?t=124590)
but now I have another, the hyperlink I have created links to a document, while for the majority of time it is a word document it is not always, occasionally .xls or .pdf
So I need a way of building into the hyperlink code the file extension, my thoughts are it would involve check boxes and if statements (one check box for each) but I am unsure of how to do this, can anyone help?
My code is currently:
Private Sub H_Enter() Form!H = "hyperlink#C:Documents and Settingscew1My DocumentsWORKSpecs" & Form!S & Form!PC & ".doc#" End Sub
I am new here and dont know much about access but I have to do some things.
I have a table filled in access. This table (dlb_tbl) contains serveral colums. One colum named "type". The records of this colum has to be changed like this:
one record: 0RD00S101 this has to be changed into: EDH01-RD00S101
So there has to come a new extension EDH01- and the 0 has to be deleted. This has to be done to the whole colum. How can I make a query to do this?:o
Several post in the recent past asked the question of how to package the db for distribution and how to run the Access db in computer not installed with Access. Before Access 2007, you must purchase another program for about one thousand dollar to do this. Microsoft now offer these two programs "Developer Extensions" and "Runtime" for free. The Developer Extension is a program that will package your db into an installation disk. You can package the Runtime program in the install disk for users that use computers without Access 2007. Here are the links to the MS website for the download.
I have an old program with ade file extension and I would like to add some filters in one of the forms but I don't have design view or layout view option.
I have around a hundred tables all with exactly the same format and headings that i would like to combine into one long table, but the copy-paste append data to table function doesn't do what i had hoped. How can I join my tables together? And is there an easy way to do all 100 at once?
Greeting All, I am trying the beta version of Access 2007 and realize that when converting Access 97 to Access 2007, the new db in Access 2007 has an extension of .accdb. I rename the db file name to xxxxx.mdb and the VB app fails to recognize it.
Is there any way to convert the xxxx.accdb (Access 2007 beta) to xxxx.mdb so that I can try my app against the Access 2007 db?????
What I need to do is remove the ".tif" part of the data. because of the way the path is output with regards to the tif image number, I'm having difficulty in targeting only that data that comes before the ".tif" extension.Is there a method I can use that will remove the right 4 characters and in conjunction with my expression above produce the following:
Hello. I have a mdb access file. When I open it, I can see lots of tables. How on earth do I open a form? Do I need another file, if so, what extension should I look for on my computer?? I really dont want to create a new form, since a person who did it has told me that its all have been already done. I just need to open the form and enter the data in. Thanks for any help!!!:)
I want to release an Access program to the production environment for users. I remember there being a file extention that can be used so the users cannot access the DB or Code.
Code: Private Sub Command0_Click() Dim dr As String dr = Dir("F:SomeFolder*.mdb", vbDirectory) DoCmd.TransferDatabase acImport, "Microsoft Access", "F:SomeFolder" & dr, acTable, "Table", "Table2" End Sub
This was just a test to see if I could get an import to work. My problem is that I have a lot of .mdb/.accdb files with similar tables that I need to add into one larger database and these similar tables could have different names in different folders. For example, a file named db1.mdb has a table named tbl. Another file named db2.mdb has a table with all of the same fields, but its called tabX. Furthermore, db2.mdb could even contain a second table that I need to import.
My question is:
Is there a way to simply import all the tables from an access database without knowing any table names using VBA?
We publish a PDF file every week full of taskings that our subordinate organizations need to accomplish for the following week. I would like to have parse the PDF and store the data in a table. I think the only way to start this operation is to first save the PDF to Text (Plain) as this create some way to delimit and parse the data. So, once it's saved as a txt file, it basically looks something like this:
Code: // Column 1 Data/StuffIDontCareAbout/ StuffIDontCareAbout/StuffIDontCareAbout//Column 2 Data StuffIDontCareAbout/StuffIDontCareAbout/ Column 3 Data
[Code] ....
...and so on and so forth anywhere between 50-100 more times
The entire text file will always start and end with "//" at the top and bottom. You also see that each tasking paragraph (starting with "Column 1 Data" and ending with "Column 3 Data") is preceded by a "//" on its own line, and also followed by a "//" on its own line. The text file will always look exactly like this with each tasking paragraph having the same number of forward slashes.
Column 1 Data always starts on a new line under "//" and runs until the first "/" (single forward slash). Column 2 Data always starts after the "//" on the 2nd paragraph line and runs until the end of the paragraph line Column 3 Data always starts on the 4th paragraph line and runs until the end of the paragraph line
Here's a quick example of what I'm talking about:
Code: // 37 NOS001/DCO/ TaskPer/TBD//310001ZAUG2014-292359ZSEP2014 GenText/Remarks/ (U/FOUO) This will contain the actual task description and details. You can see that "(U/FOUO)" contains a forward slash.
[Code] ....
So after it's parsed, my table would have the following new rows:
Code: Column 1 | Column 2 | Column 3 37 NOS001 |310001ZAUG2014-292|(U/FOUO) This will contain 582 NOS012 |280001ZAUG2014-022|(U/FOUO) This another task
I have 200 excel files in folder C:UsersLburchDocumentsHistoric DataTedan Data in Excel Worksheets - CopyAAA - Copy.The files only have one worksheet and the column format are the same. Worsheet name is different for every file though.Headings in first row.write a macro to import into 1 Access table so I don't have to do it manually.
I need, in some way or another, to be able to import an HTML code from an HTML file into Access. It would be ideal if the end result is a table with one memo field named "HTML".
I know is seems strange, but I need the code itself. I've managed to do a bit of duct-tape work, and import from HTML, but this results in only the text of the HTML code (Meaning the text of the web page, not the tags).
I know I'm crazy for wanting this, but is there anyone out there who can give direction/guidance?
I have table1 in my (Access 2010) database that has exising records. I have another table2 that after I run a query, it first deletes the data in table 2, then imports new records into that table. I run the import into table 2 on a semi regular basis but have yet to copy those records into table 1.
With that said, using either a query or VB, how do I copy all the (new) records from table 2 into table 1 without altering any records that already exist in table1?
BTW, Table 1 has a main form with a subform within it
