MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Preencher registro na tabela

    avatar
    snogueira66
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 01/02/2017

    [Resolvido]Preencher registro na tabela Empty [Resolvido]Preencher registro na tabela

    Mensagem  snogueira66 3/2/2022, 14:28

    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,
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido]Preencher registro na tabela Empty Re: [Resolvido]Preencher registro na tabela

    Mensagem  DamascenoJr. 5/2/2022, 00:15

    Mostre sua rotina de importação.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    snogueira66 gosta desta mensagem

    avatar
    snogueira66
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 01/02/2017

    [Resolvido]Preencher registro na tabela Empty Preencher registro na tabela

    Mensagem  snogueira66 6/2/2022, 17:25

    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
    avatar
    snogueira66
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 01/02/2017

    [Resolvido]Preencher registro na tabela Empty Preencher registro na tabela

    Mensagem  snogueira66 11/2/2022, 12:03

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido]Preencher registro na tabela Empty Re: [Resolvido]Preencher registro na tabela

    Mensagem  DamascenoJr. 12/2/2022, 22:27

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    snogueira66 gosta desta mensagem

    avatar
    snogueira66
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 01/02/2017

    [Resolvido]Preencher registro na tabela Empty Preencher registro na tabela

    Mensagem  snogueira66 13/2/2022, 15:16

    DamascenoJr.

    Meu amigo obrigado, funcionou corretamente.

    Abs,
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido]Preencher registro na tabela Empty Re: [Resolvido]Preencher registro na tabela

    Mensagem  DamascenoJr. 14/2/2022, 02:15

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 24/9/2022, 21:50