Pessoal boa tarde,
Estou criando um banco no access para importar um arquivo .txt e apos a importação preciso excluir todas as linhas da tabela TB_EtqReenvio onde na coluna Tipo esta com registros em branco.
Segue abaixo o código que estou utilizando.
Private Sub Comando1_Click()
Dim arquivo, destino, tabela As String
Caminho = Application.CurrentProject.Path
Edicao = Forms!FM_Principal.txt_data
Empresa = Forms!FM_Principal.txt_empresa
nome = "etq_reenvio" & "_" & Edicao & "_" & Empresa
arquivo = Caminho & "\" & nome & ".lst"
destino = Caminho & "\Tansformado\" & Replace(nome & ".lst", ".lst", ".txt")
FileCopy arquivo, destino
DoCmd.TransferText acImportFixed, "Etq_reenvio", "TB_EtqReenvio", destino, 0
DoCmd.RunSQL ("DELETE * FROM [TB_EtqReenvio] WHERE ((([TB_EtqReenvio].Tipo) = null));") ' esta e o código que estou utilizando para excluir os registros e não esta funcionando.
End Sub
Estou criando um banco no access para importar um arquivo .txt e apos a importação preciso excluir todas as linhas da tabela TB_EtqReenvio onde na coluna Tipo esta com registros em branco.
Segue abaixo o código que estou utilizando.
Private Sub Comando1_Click()
Dim arquivo, destino, tabela As String
Caminho = Application.CurrentProject.Path
Edicao = Forms!FM_Principal.txt_data
Empresa = Forms!FM_Principal.txt_empresa
nome = "etq_reenvio" & "_" & Edicao & "_" & Empresa
arquivo = Caminho & "\" & nome & ".lst"
destino = Caminho & "\Tansformado\" & Replace(nome & ".lst", ".lst", ".txt")
FileCopy arquivo, destino
DoCmd.TransferText acImportFixed, "Etq_reenvio", "TB_EtqReenvio", destino, 0
DoCmd.RunSQL ("DELETE * FROM [TB_EtqReenvio] WHERE ((([TB_EtqReenvio].Tipo) = null));") ' esta e o código que estou utilizando para excluir os registros e não esta funcionando.
End Sub