Command Button Export Text File 1

[ThunderGeek]

I have a form with command button to export a text file with this code attached to the onclick, the code blelow works well:

DoCmd.TransferText acExportDelim, "ProductsNewExportSpecification", "ProductsNew", "C:\SHOPSITE\products\New Folder\newproducts.txt", True, ""

However I would like to change the file name to a text string stored in a combobox named [SupplierBox] on a form named [Supplier].

I keep getting error code and know that I am not getting the string in properly.
Any help is appericated
Thanks Thundergeek

 

[TheAceMan1]

How are ya ThunderGeek . . .

In a [blue]module[/blue] in the [blue]modules[/blue] window, copy/paste the following routine:

[blue]Public Sub XferToFile([b]FileName[/b] As String)
   Dim [purple][b]FileSpec[/b][/purple] As String
   
   [purple][b]FileSpec[/b][/purple] = "C:\SHOPSITE\products\New Folder\" & [b]FileName[/b]

   DoCmd.TransferText acExportDelim, _
                      "ProductsNewExportSpecification", _
                      "ProductsNew", _
                      [purple][b]FileSpec[/b][/purple], _
                      True, _
                      ""
End Sub[/blue]

A call to the routine would look like:

[blue]   Call XferToFile("newproducts.txt")[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

 

[ThunderGeek]

I modified the code just a bit, added the FileName = line.

Public Sub XferToFile(FileName As String)
   Dim FileSpec As String
   FileName = Forms!supplier!SupplierBox & ".txt"
   FileSpec = "C:\SHOPSITE\products\New Folder\" & FileName

   DoCmd.TransferText acExportDelim, _
                      "ProductsNewExportSpecification", _
                      "ProductsNew", _
                      FileSpec, _
                      True, _
                      ""
End Sub

works great, thanks for the help.
ThunderGeek

 

[TheAceMan1]

ThunderGeek . . .

If you take a good look I [blue]designed the routine to be universal[/blue] (you can call it from anywhere in the DB including VBA).

To [green]maintain universal posture[/green], [purple]instead of the FileName line[/purple] your call would be:

[blue]   Call XferToFile(Forms!supplier!SupplierBox & ".txt")[/blue]

[blue]The choice is yours! . . .[/blue]

See Ya! . . . . . .

 

[ThunderGeek]

Thanks - I totally missed that simple solution.
ThunderGeek