Caros, bom dia!!
Sou novo no forum e no uso do access e VBA,estou criando um processo para importação de arquivo txt, porém estou tentando executar um procedimento para apagar os dados antes da tabela, onde o nome da tabela que trazer de um campo do formulário.
Segue parte do código para auxilio.
Private Sub Comando6_Click()
Dim Delimitador As String
Dim DB As Database
Dim fnum As Integer
Dim LinhaDoTexto, LinhaDoTextoTemp As String
Dim InstrucaoSQL As String
Dim Posicao As Integer
Dim QtdDeRegistros As Long
Dim ArquivoTexto As String
Dim strBanco As Databases
Dim strTabela As String
'DoCmd.RunSQL "DELETE * FROM [Forms]![Formulário1]![Texto9] " 'Testei esses 2 metodos e não obtive sucesso
'CurrentDb.Execute "DELETE * FROM [Forms]![Formulário1]![Texto9]", dbFailOnError
ArquivoTexto = Me.Texto7 'caminho do arq de texto
strTabela = Me.Texto9 'Tabela onde será importado o arquivo
Sou novo no forum e no uso do access e VBA,estou criando um processo para importação de arquivo txt, porém estou tentando executar um procedimento para apagar os dados antes da tabela, onde o nome da tabela que trazer de um campo do formulário.
Segue parte do código para auxilio.
Private Sub Comando6_Click()
Dim Delimitador As String
Dim DB As Database
Dim fnum As Integer
Dim LinhaDoTexto, LinhaDoTextoTemp As String
Dim InstrucaoSQL As String
Dim Posicao As Integer
Dim QtdDeRegistros As Long
Dim ArquivoTexto As String
Dim strBanco As Databases
Dim strTabela As String
'DoCmd.RunSQL "DELETE * FROM [Forms]![Formulário1]![Texto9] " 'Testei esses 2 metodos e não obtive sucesso
'CurrentDb.Execute "DELETE * FROM [Forms]![Formulário1]![Texto9]", dbFailOnError
ArquivoTexto = Me.Texto7 'caminho do arq de texto
strTabela = Me.Texto9 'Tabela onde será importado o arquivo