Choose Import Spec from option group

[thart21]

Hey there,

Is there a way to run DoCmd.TransferText and run a different Import Spec based on a user selection from an option group on a form? I can set it up to run a specific spec but do not see an argument for a "Where" option.

Private Sub Command17_Click()
Dim strfileName As String
strSpec = "Import-RDS"
strfileName = "\\Path\UnshipRDS.txt"
DoCmd.TransferText , strSpec, "Unship RDS", strfileName, Yes
End Sub



Ideally, I would love to have just one Import Spec with a variable using the same option group/form but from my searches don't see how that is possible using the automated Import spec process in Access.


Thanks!

[boblarson]

Let's say you have an option group with the options that have the values 0, 1, 2. You could do this:

Private Sub Command17_Click()
Dim strfileName As String
 
Select Case Me.OptionGroupFrameNameHere
   Case 0
      trSpec = "Import-RDS"
   Case 1
      trSpec = "Import-XXX"
   Case 2
      trSpec = "Import-SomethingElse"
End Select

strfileName = "\\Path\UnshipRDS.txt"

DoCmd.TransferText , strSpec, "Unship RDS", strfileName, True

End Sub

By the way that should be TRUE at the end of your TransferText line, not yes.

[thart21]

Thanks Bob! Regarding the strfileName path, how do I tell it which .txt file I want imported? Do I even need that argument if it is running the Import spec?

[boblarson]

You should be able to use code for a file dialog. I'll try to post instructions as soon as I can. Got an issue at work right now.

[thart21]

Hi Bob, I got it to work using this:

strfileName = optText.Value
strMyVariable = "\\MyPath\Current Data\" & strfileName & ""
DoCmd.TransferText , strSpec, "Unships", strMyVariable, True

When the user selects an option, I have it populate optText and use that to tell it what actual text file name to pull. Thanks for all of your help! Toni