I have an error that ACCESS couldnt excute this comand.
Whats wrong is here?
Thanks

Private Sub Command1_Click()
 Text1.LinkTopic = "MSACCESS|test.mdb;TABLE ngMoneyFilScr"
      Dim cmd As String
      cmd = "[DoCmd.TransferText ,,ngMoneyFilScr,my.txt]"
      Text1.LinkMode = 2    
      Text1.LinkItem = "All"
      Text1.LinkExecute cmd
      Text1.LinkMode = 0    
End Sub

Hi,

Private Sub Command1_Click()
 Text1.LinkTopic = "MSACCESS|test.mdb;TABLE ngMoneyFilScr"
      Dim cmd As String
      cmd = "[TransferText 2,,'ngMoneyFilScr','c:\my.txt']"
      Text1.LinkMode = 2    
      Text1.LinkItem = "All"
      Text1.LinkExecute cmd
      Text1.LinkMode = 0    
End Sub

Or you can make a macro first and then call the macro in VB

    Text1.LinkExecute "macro1"

Regards,
Steve

This posting is provided ?AS IS?, with no warranties, and confers no
rights.