Importing CSV

[mike02]

hey,

I have 9 buttons on my form. all have this on click command:

Function Import()
On Error GoTo Import_Err
  
Dim strFilter As String
Dim strInputFileName As String
  
  strFilter = ahtAddFilterItem(strFilter, "CSV Files (*.CSV)", "*.CSV")
  strInputFileName = ahtCommonFileOpenSave( _
                Filter:=strFilter, OpenFile:=True, _
                DialogTitle:="Please select an input file...", _
                Flags:=ahtOFN_HIDEREADONLY)
 'Actual import
  If Len(strInputFileName) > 0 Then
    DoCmd.TransferText acImportDelim, "Import Specification", "tbl_Import", strInputFileName, False, ""
    
  End If
  
Import_Exit:
  Exit Function
  
Import_Err:
  MsgBox Error$
  Resume Import_Exit
  
End Function

When this code runs i want it to import to append it to the table. each button corresponds with its table. if someone could show me how to write this, that would be fantastic! thanks

[help_me_with_access]

what is this doing for you now?

DoCmd.TransferText acImportDelim, "Import Specification", "tbl_Import", strInputFileName, False, ""

doesn't that work? if you want Access to teach you how, try creating a macro with this action and add all the arguments as necessary. then click the "convert to VBA" button on the ribbon for the macro.

[mike02]

it runs error, "The text file specification 'Import Specification' Does not exist. You cannot import, export, or link using the specification"

is there a way to run the append to table....tblname here..

Ie. Me.(Name of button?)=tblename, Append?

[help_me_with_access]

is there a way to run the append to table....tblname here..

Ie. Me.(Name of button?)=tblename, Append?

no idea what this is. no, that's not it.

it runs error, "The text file specification 'Import Specification' Does not exist. You cannot import, export, or link using the specification"

Do you actually HAVE an import spec saved in your file? if you don't, the message is valid. but there are unknown problems (to me) surrounding the concept of using save import and export specs using vb code. you should avoid it. I believe there is a bug in the program involved with import and exports specs and vb coding.

an immediate workaround though, would be to always import into a temp table, then run a simple append query from vb coding by spec'ing input criteria from where-ever...your form perhaps? for a double-transaction like that though, I would certainly use a DOEVENTS() between the 2 transactions.

don't forget too, your last post (since it was so long) might be a good reference even now that you've progressed a bit:

https://www.accessforums.net/forms/i...elp-26991.html

[mike02]

no idea what this is. no, that's not it.

I know thats not it. I was just seeing if there was something with that idea would work. What would i put for my specifications? I dont know what you mean by the file having a speccification for the import file:S sorry, still teaching my self VBA. thanks,

[help_me_with_access]

on the ribbon => "saved imports/exports". this is the feature that stores the schema which tells access what, where, how to import/export.

so to expand on what i mentioned earlier...save an import by creating one with the wizard and saving it under a name. import the data into a common-named table. so then if you have a saved import spec like that, you can do what you need (as a process) with 2 lines of code:

docmd.setwarnings = 0
DoCmd.TransferText (args)
  doevents
docmd.runsql "APPEND QUERY here, where you can reference object controls in the SQL command"
docmd.setwarnings = -1

that's a starting point. follow?