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]Evitar importação duplicada

    avatar
    ggaldino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/08/2011

    [Resolvido]Evitar importação duplicada Empty Evitar importação duplicada

    Mensagem  ggaldino 23/8/2011, 16:33

    Senhores, boa tarde!

    Parabéns pelo forum, absorvi muitas das suas explicações.

    Tenho uma dúvida e estou precisando urgente no trabalho, gostaria de contar com a ajuda de vocês.

    Possuo um código de exportação e está OK, porém preciso bloquear de algum jeito que seja importado duas vezes.

    Postarei o código abaixo, agradecendo desde já. OBS: não achei lugar para o Excel, mas acredito que no VBA não haja tantas alterações por isso estou aqui.

    Posso conseguir de 3 maneiras: 1 movendo o arquivo após importar (o problema aqui é que o arquivo não é fixo, eu seleciono o arquivo pelo application.getopenfilename e não consigo manter o nome original do arquivo após isso.
    a segunda é fazendo esquema de importação por numeração: importar teste1.txt depois configurar automaticamente para só importar teste2.txt e assim por diante
    ou ainda quando for efetuar a importação verificar se a data é a mesma e se for não importar o arquivo. Ai entra o problema de mais de um registro da mesma data, então ele deveria bloquear apenas de o arquivo for o mesmo e não a data, pois a data se repete dentro de um mesmo arquivo.

    Segue o código abaixo. Obrigado e um abraço a todos!

    Private Sub IMPORTAR_Click()

    Dim cpf As String
    Dim valor As String
    Dim historico As String
    Dim dia As String
    Dim mes As String
    Dim ano As String
    Dim lin As String
    Dim arquivo As String
    Dim i As Integer
    arquivo = Application.GetOpenFilename("Arquivos de Remessa Itaú (*.01), *.01")
    On Error GoTo Erro

    i = 0
    Open arquivo For Input As #1

    Do While Not EOF(1)
    Line Input #1, lin

    If Trim(Mid(lin, 48, 10)) <> "" Then

    If Trim(Mid(lin, 48, 6)) <> "" Then
    If Trim(Mid(lin, 48, 2)) = "" Then
    Range("A1").Select
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = cpf
    historico = Mid(lin, 50, 25)
    Range("B1").Select
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = historico
    valor = Str(Val(Mid(lin, 87, 18)))
    Range("C1").Select
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = valor / 100
    dia = Mid(lin, 81, 2)
    mes = Mid(lin, 83, 2)
    ano = Mid(lin, 85, 2)
    Range("D1").Select
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = CDate(dia & "/" & mes & "/" & ano)




    End If
    Else
    cpf = Mid(lin, 72, 11)




    End If
    End If
    i = i + 1

    Loop
    Close #1
    MsgBox "Importação concluída com sucesso!"
    Erro:
    End Sub

    avatar
    Convidado
    Convidado


    [Resolvido]Evitar importação duplicada Empty Re: [Resolvido]Evitar importação duplicada

    Mensagem  Convidado 23/8/2011, 16:46

    é só na tabela que receberá os dados, no campo que não quer o registro duplicado colocar como Duplicação não autorizada...

    Desig Tabela, Geral, Indexado: Duplicação não autorizada.. na importação se o valor for o mesmo ele não permite a duplicação
    avatar
    Convidado
    Convidado


    [Resolvido]Evitar importação duplicada Empty Re: [Resolvido]Evitar importação duplicada

    Mensagem  Convidado 23/8/2011, 16:48

    É Excell???

    Bem.. o fórum é apenas de Access.. se for excell deves encontrar ajuda em um fórum proprio

    Saudações
    avatar
    ggaldino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/08/2011

    [Resolvido]Evitar importação duplicada Empty Re: [Resolvido]Evitar importação duplicada

    Mensagem  ggaldino 23/8/2011, 17:32

    Agradeço, peço desculpas por postar aqui. Mesmo que fosse access não seria possível, visto que em um mesmo arquivo, como eu havia dito, possui dados iguais como data, porém não posso importar um outro arquivo que possua a mesma data.

    Imagine uma base de dados onde há históricos. O arquivo tem uma data e essa data é colocada em cada pequena movimentação, repetindo algumas vezes na base. Porém não posso importar outro arquivo que eu já tenha importado.

    Abs
    avatar
    ggaldino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/08/2011

    [Resolvido]Evitar importação duplicada Empty Re: [Resolvido]Evitar importação duplicada

    Mensagem  ggaldino 23/8/2011, 17:44

    Se fosse em Access, como eu faria para parametrizar a importação impedindo que ele não importasse duas vezes?

    Assim posso observar a função e reproduzir no Excel com seus respectivos correspondentes.

    Abs
    avatar
    Convidado
    Convidado


    [Resolvido]Evitar importação duplicada Empty Re: [Resolvido]Evitar importação duplicada

    Mensagem  Convidado 23/8/2011, 17:47

    é utilizando a configuração na tabela que receberá o registro.. colocando o campo com duplicação nao autorizada
    avatar
    ggaldino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/08/2011

    [Resolvido]Evitar importação duplicada Empty Re: [Resolvido]Evitar importação duplicada

    Mensagem  ggaldino 23/8/2011, 17:57

    Mesmo assim não adiantaria porque ele bloquearia entradas do interior de um mesmo arquivo.
    Não quero que seja possível ele aceitar a importação do mesmo arquivo.
    avatar
    Convidado
    Convidado


    [Resolvido]Evitar importação duplicada Empty Re: [Resolvido]Evitar importação duplicada

    Mensagem  Convidado 23/8/2011, 18:35

    Eu tenho um código que importa XML e com a tabela desta forma... So importa registros não duplicados...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Evitar importação duplicada Empty Re: [Resolvido]Evitar importação duplicada

    Mensagem  vieirasoft 29/8/2011, 09:22

    Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

    Conteúdo patrocinado


    [Resolvido]Evitar importação duplicada Empty Re: [Resolvido]Evitar importação duplicada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:01