MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Verificar se já existe registro de uma tabela em outra

    avatar
    rafazanu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 07/11/2013

    [Resolvido]Verificar se já existe registro de uma tabela em outra Empty Verificar se já existe registro de uma tabela em outra

    Mensagem  rafazanu em 7/11/2013, 15:01

    Bom dia a todos,

    Preciso de um código que verifique se o registro de uma tabela já existe em outra tabela.

    POssuo uma tabela com o nome : "Tabela1" , que contem diversos registros no campo "Proposta" e outra tabela chamada "Tabela2" com o campo "Proposta" .

    A tabela1 é atualizada constantemente com novas propostas, e então essas novas propostas devem ser inseridas na tabela2, porém somente se não existirem na tabela2.

    Obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Verificar se já existe registro de uma tabela em outra Empty Re: [Resolvido]Verificar se já existe registro de uma tabela em outra

    Mensagem  JPaulo em 7/11/2013, 18:09

    Ola;

    Abra uma consulta nova em modo SQL e cole este trecho;

    INSERT INTO tabela2 SELECT * FROM tabela1 WHERE NOT EXISTS (SELECT * FROM tabela2 WHERE tabela2.Proposta=tabela1.Proposta)



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new Instruções SQL como utilizar...
    avatar
    rafazanu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 07/11/2013

    [Resolvido]Verificar se já existe registro de uma tabela em outra Empty Possível no vba?

    Mensagem  rafazanu em 7/11/2013, 18:40

    Obrigado Jpaulo!

    Estou com uma rotina em codigo vba, é possível fazer essa verificação em vba?

    Exemplo:

    Descrever uma condição em vba onde:
    se algum registro da tabela1 já existir na tabela2, então verifica o proximo registro da tabela1....
    se não encontrar, então insere novo registro na tabela2.

    Da pra entender?

    segue codigo da rotina:

    Set db = CurrentDb
    Set tb = db.OpenRecordset("Propostas")
    Set tba = db.OpenRecordset("Dados")

    tba.AddNew
    tba!Proposta = tb!Proposta
    tba!Nome = NomeProp
    tba!Carteira = CarteiraProp
    tba!CR = CompResProp

    tba.Update
    tb.MoveNext

    Mas só quero que realize a atualização de informações da tabela "Dados" caso seja um registro novo.

    Atenciosamente.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Verificar se já existe registro de uma tabela em outra Empty Re: [Resolvido]Verificar se já existe registro de uma tabela em outra

    Mensagem  JPaulo em 8/11/2013, 12:42

    E o amigo vai esquecer essa rotina e fazer o seguinte ao pressionar do seu botão;

    Private Sub SeuBotão_Click()

    CurrentDb.Execute "INSERT INTO Dados (Proposta, Nome, Carteira, CR)" _
    & " SELECT Proposta, NomeProp, CarteiraProp, CompResProp" _
    & " From Propostas" _
    & " WHERE (Proposta NOT IN" _
                & " (SELECT Proposta" _
                       & " FROM Dados) AND NomeProp NOT IN" _
                 & " (SELECT Nome" _
                       & " FROM Dados) AND CarteiraProp NOT IN" _
                 & " (SELECT Carteira" _
                       & " FROM Dados) AND CompResProp NOT IN" _
                 & " (SELECT CR" _
                       & " FROM Dados))"

    End Sub
    Anexos
    [Resolvido]Verificar se já existe registro de uma tabela em outra AttachmentAdiciona_Se_Nao_Existir.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (14 Kb) Baixado 104 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new Instruções SQL como utilizar...
    avatar
    rafazanu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 07/11/2013

    [Resolvido]Verificar se já existe registro de uma tabela em outra Empty Re: [Resolvido]Verificar se já existe registro de uma tabela em outra

    Mensagem  rafazanu em 12/11/2013, 12:26

    Amigo, estou tentando adaptar ao que preciso, mas sem sucesso.

    Os dados que serão atualizados na tabela Dados, vao ser coletados de uma tela mainframe, por isso preciso identificar se a proposta já consta
    na tabela dados antes de buscar as informações.

    Segue arquivo para melhor entendimento. Muito agradecido pela ajuda.
    Anexos
    [Resolvido]Verificar se já existe registro de uma tabela em outra Attachmentscorema.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (60 Kb) Baixado 29 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Verificar se já existe registro de uma tabela em outra Empty Re: [Resolvido]Verificar se já existe registro de uma tabela em outra

    Mensagem  JPaulo em 12/11/2013, 12:40

    Para ser sincero consigo, não entendi nadica de nada, do que pretende fazer com estes códigos.

    Provavelmente estou a ficar velho...Sad 



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new Instruções SQL como utilizar...
    avatar
    rafazanu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 07/11/2013

    [Resolvido]Verificar se já existe registro de uma tabela em outra Empty Re: [Resolvido]Verificar se já existe registro de uma tabela em outra

    Mensagem  rafazanu em 12/11/2013, 13:06

    kkkkkkkk claro que não...

    esse código faz o seguinte:

    1 - insere novas propostas na tabela "propostas";
    2 - pega as propostas da tabela "propostas" e joga cada uma delas em um sistema para buscar as informações da proposta;
    3 - atualiza a tabela "dados" com as informações coletadas.

    Só preciso que ele não colete as informações se a proposta já estiver constando na tabela "dados".

    A idéia seria algo assim:

    If Propostas!Proposta já estiver em Dados!Proposta then
    Propostas.movenext
    else
    Coletar dados
    end if

    só não consigo achar uma forma de fazer essa verificação antes de coletar os dados.

    Acho que é a melhor forma de explicar hehe, se não conseguir entender tá tranquilo, dificil explicar por aqui

    Obrigado pela atenção.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Verificar se já existe registro de uma tabela em outra Empty Re: [Resolvido]Verificar se já existe registro de uma tabela em outra

    Mensagem  JPaulo em 13/11/2013, 13:15

    Veja se serve;

    Código:
    Private Sub Comando12_Click()
    'By JPaulo ® Maximo Access
    Dim strCampo As String
    Dim RstPropostas As Recordset
    Dim RstDados As Recordset

    Set RstPropostas = CurrentDb.OpenRecordset("Propostas")
        Do Until RstPropostas.EOF
    Set RstDados = CurrentDb.OpenRecordset("Select * From Dados Where Proposta ='" & RstPropostas("Proposta") & "'")

        If Not RstDados.EOF And Not RstDados.BOF Then
        strCampo = "Proposta"
        If RstPropostas(strCampo).Value <> RstDados(strCampo).Value Then
        End If
        Else
          RstDados.AddNew
          RstDados!Proposta = RstPropostas!Proposta
          RstDados.Update
        End If
     
        RstPropostas.MoveNext
    Loop

    RstPropostas.Close
    RstDados.Close
    Set RstPropostas = Nothing
    Set RstDados = Nothing
    End Sub
    Anexos
    [Resolvido]Verificar se já existe registro de uma tabela em outra Attachmentscorema_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 55 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new Instruções SQL como utilizar...
    avatar
    rafazanu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 07/11/2013

    [Resolvido]Verificar se já existe registro de uma tabela em outra Empty Re: [Resolvido]Verificar se já existe registro de uma tabela em outra

    Mensagem  rafazanu em 14/11/2013, 12:24

    Deu certo ! Quando for usar diretamente nas tabelas perfeito !

    Pra informação, consegui adaptar um outro comando que funcionou muito bem também! segue:

    novaproposta:
    If (Not IsNull(DLookup("[Proposta]", "Dados", _
    "[Proposta] ='" & tb!Proposta & "'"))) Then
    tb.MoveNext
    GoTo novaproposta
    End If

    Valeu JPaulo!

    Abraço!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Verificar se já existe registro de uma tabela em outra Empty Re: [Resolvido]Verificar se já existe registro de uma tabela em outra

    Mensagem  JPaulo em 14/11/2013, 12:25

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar se já existe registro de uma tabela em outra Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado

    [Resolvido]Verificar se já existe registro de uma tabela em outra Empty Re: [Resolvido]Verificar se já existe registro de uma tabela em outra

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/6/2019, 22:01