TransferText Question

[optum77]

Hi,

I am trying to develop a macro or sub function that will utilize TransferText if data is present in a table. If there is no data in the table i.e. completely null; then TransferText does not process. So far I am having no luck and I dont know where to start. Is this even possible? Thanks!

 

[Molly Coddlez]

maybe if you check the record count. something like this;

Sub sTransferStuff()
   Dim rstTheTable As Recordset
   Set rstTheTable = CurrentDB.OpenRecordset("tblTheTable", dbOpenDynaset)
   If rstTheTable.RecordCount > 0 Then ' so the table is empty of data
      '' do your DoCmd.TransferText stuff here
   End If

   rstTheTable.Close
   Set rstTheTable = Nothing
End Sub

That help?