[Resolvido]Preencher registro na tabela

Pessoal bom dia,

Tenho uma tabela com vários campos e estou precisando preencher um dos campos com na seguinte condição:

Se o nome do arquivo que estou importando contem a palavra CNAST ele deve preencher na tabela Base na coluna empresa com GCN senão EDG.

Abs,

Mostre sua rotina de importação.

DamascenoJr.

Segue a rotina de importação do arquivo.

O meu problema é que no nome do arquivo "SelectedValues" contem a palavra "CNAST", na tabela "Base" no campo "SiglaEmp" deve ser preenchida com GCN caso contrario preencher com EDG.

Segue exemplo do nome do arquivo:

29_01_2022 CNAST.txt
29_01_2022.txt


Private Sub Importar_Click()

Dim file, arquivo As String

caminho = Application.CurrentProject.Path

file = InputBox("Informe o Nome do Arquivo " & SelectedValues & " ", "Importação Direta")
arquivo = caminho & "\" & file & ".txt"

DoCmd.TransferText acImportFixed, "Importar", "Base", arquivo, 0

End Sub

Bom dia pessoal,

Eu pesquisando melhor implementei o código abaixo mais não esta funcionando, vocês podem me ajudar.



Private Sub Importar_Click()

Dim file, arquivo, empresa As String

caminho = Application.CurrentProject.Path

file = InputBox("Informe o Nome do Arquivo " & SelectedValues & " ", "Importação Direta")
arquivo = caminho & "\" & file & ".txt"

empresa = Right(file, 5)

DoCmd.TransferText acImportFixed, "Importar", "Base", arquivo, 0

If empresa = "CNAST" Then
CurrentDb.Execute "INSERT INTO Base(SiglaEmp)VALUES('" & GCN & "')"
Else
CurrentDb.Execute "INSERT INTO Base(SiglaEmp)VALUES('" & EDG & "')"
End If

End Sub

Minha dica seria ter um campo do tipo sim/não na tabela, campo este chamado "NovoRegistro", e com o valor padrão igual a "sim".

Estando assim, você realiza sua importação conforme o seu código mostrado, ajustando somente a parte abaixo

Código:

docmd...

if Right(file, 5) = "CNAST" then
  call currentdb.execute("update Base set SiglaEmp = 'GCN', NovoRegistro = 0 where NovoRegistro = -1;")
else
  call currentdb.execute("update Base set SiglaEmp = 'EDG', NovoRegistro = 0 where NovoRegistro = -1;")
end if

End Sub

DamascenoJr.

Meu amigo obrigado, funcionou corretamente.

Abs,

O fórum agradece o retorno. Sucesso.