Transfer from text box to field

adgjqetuo · #1 07-02-2009, 09:40 AM

I'm very new to access - so please bare with me here (I'm more of an excel guy)

I have a database with a form. When you click the button on the form, it opens an input box which asks you to "enter the date in YYYYMMDD format"

Once you enter 07012009 it looks up a text file in a specific folder with that same end trail, then imports it with specific delimited specs I have pre-set.

It then imports all the records into it new individual table (using the end date trail) but also dumps it into a master table as well.

Okay - so knowing this - heres my quesiton:

How do can I get the input box "YYYYMMDD" into the column called "Date imported" within the master table and formated as "MM/DD/YYYY". Also, how can I get it to automatically put the text "IMPORT FILE" in the column called "Media" for each record?

It's VERY important that it only does this for the imported records. Is this possible?

Here is the code I have so far:

Code:

Private Sub Command1_Click()
Dim Importdate As String
On Error GoTo Errormsg
Importdate = InputBox("Please date of text file (YYYYMMDD):")
DoCmd.TransferText acImportDelim, "textfile", "textfile_" & Importdate, "S:\Brochure_" & Importdate & ".txt", N
DoCmd.TransferText acImportDelim, "Textfile", "MasterTable", "S:\Brochure_" & Importdate & ".txt", N

MsgBox ("Complete!")
Errormsg:
If Err.Number = 3011 Or Err.Number = 13 Then
MsgBox ("Please try again!")
End If
End Sub

split_atom18 · #2 07-02-2009, 09:43 AM

I ask this question to most people, what version of Access? Lots of things change in access from version to version.

adgjqetuo · #3 07-02-2009, 09:52 AM

Thanks for the quick reponse! I have Access 2003

split_atom18 · #4 07-02-2009, 01:20 PM

I would use an Update Query to add the data you want to each column that you want to update. Then call the Update Query from the code.

Hope this helps,

Dan

Welcome to the Excel Forum

Forum Statistics