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

    INSERT INTO Somente dados exlusivo.

    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    INSERT INTO Somente dados exlusivo. Empty INSERT INTO Somente dados exlusivo.

    Mensagem  Sidney 23/11/2018, 02:24

    Galera, Boa Noite!!

    Estou usando este código abaixo para inserir valores de um campos em uma tabela, está funcionando perfeitamente, mas gostaria que ele inseri-se somente os valores exclusivo, mas não consegui fazer isso, aguem poderia me ajudar?

    Dim strSql As String
    Dim intNFamSisNovo As Integer

    strSql = "INSERT INTO tab_CasosNotaveisAtual ( N_FAM_SIS ) SELECT Tab_Principal.CodFamSis FROM Tab_Principal ORDER BY Tab_Principal.CodFamSis"
    CurrentDb.Execute (strSql)
    MsgBox "Dados inseridos com sucesso!!!", vbInformation, "Aviso"
    End Function

    att; Sidney
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    INSERT INTO Somente dados exlusivo. Empty Re: INSERT INTO Somente dados exlusivo.

    Mensagem  Alexandre Neves 23/11/2018, 13:29

    Boa tarde
    Valores exclusivos em que tabela?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    INSERT INTO Somente dados exlusivo. Empty Re: INSERT INTO Somente dados exlusivo.

    Mensagem  Sidney 23/11/2018, 14:39

    Grande Alexandre, obrigado pelo interesse, consegui o código com o mestre Avelino, segue abaixo,



    Public Function InserirSeNaoExistir()
    Dim strSql As String
    strSql = "INSERT INTO tab_CasosNotaveisAtual ( N_FAM_SIS ) "
    strsql = strsql & "SELECT Tab_Principal.CodFamSis FROM Tab_Principal "
    strsql = strsql & "WHERE Tab_Principal.CodFamSis NOT IN (SELECT N_FAM_SIS FROM tab_CasosNotaveisAtual)"
    CurrentDb.Execute (strSql)

    MsgBox "Dados inseridos com sucesso!!!", vbInformation, "Aviso"
    End Function

    end Function


    att; Sidney

    Conteúdo patrocinado


    INSERT INTO Somente dados exlusivo. Empty Re: INSERT INTO Somente dados exlusivo.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 11:53