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]Condição na Função

    marcelo3092
    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 19/08/2010

    [Resolvido]Condição na Função Empty [Resolvido]Condição na Função

    Mensagem  marcelo3092 em 19/10/2019, 04:28

    boa noite pessoal estou com um problema nessa função gostaria que antes de adicionar ele verifica-se se o candidato ja esta adicionado se tiver não adiciona se nao tiver adiciona.

    Public Sub Seleciona()
    Dim StrSQL As String
    Dim Rs As DAO.Recordset
    Dim DB As DAO.Database

    StrSQL = "SELECT * FROM SMS WHERE enviar =-1;"

    'Seta o Db
    Set DB = CurrentDb
    'Seta o Recordset com a SQL
    Set Rs = CurrentDb.OpenRecordset(StrSQL)

    Do While Not Rs.EOF

    CurrentDb.Execute "INSERT INTO SMS_Selecionados ( status,idcandidato,candidato,ddd, celular1,enviar)" _
    & " SELECT """ & Rs!Status & """,""" & Rs!idCandidato & """,""" & Rs!Candidato & """,""" & Rs!DDD & """, """ & Rs!Celular1 & """, """ & Rs!enviar & """;"

    Rs.MoveNext
    Loop
    End Sub


    Desde já agradeço a todos a atenção.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Condição na Função Empty Re: [Resolvido]Condição na Função

    Mensagem  Alexandre Neves em 19/10/2019, 12:13

    Bom dia

    Public Sub Seleciona()
    Dim StrSQL As String
    Dim Rs As DAO.Recordset,Rst as DAO.Recordset
    Dim DB As DAO.Database

    StrSQL = "SELECT * FROM SMS WHERE enviar =-1;"

    'Seta o Db
    Set DB = CurrentDb
    'Seta o Recordset com a SQL
    Set Rs = CurrentDb.OpenRecordset(StrSQL)
    Set Rst = CurrentDb.OpenRecordset("SELECT * FROM SMS_Selecionados")

    Do While Not Rs.EOF
    'verifica se já existe na tabela
    rst.findfirst "idcandidato=" & Rs!idCandidato
    if rst.nomatch then
    CurrentDb.Execute "INSERT INTO SMS_Selecionados ( status,idcandidato,candidato,ddd, celular1,enviar)" _
    & " SELECT """ & Rs!Status & """,""" & Rs!idCandidato & """,""" & Rs!Candidato & """,""" & Rs!DDD & """, """ & Rs!Celular1 & """, """ & Rs!enviar & """;"
    end if
    Rs.MoveNext
    Loop
    End Sub


    .................................................................................
    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
    marcelo3092
    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 19/08/2010

    [Resolvido]Condição na Função Empty Re: [Resolvido]Condição na Função

    Mensagem  marcelo3092 em 19/10/2019, 12:48

    O Alexandre obrigado cara fico top show.

    Conteúdo patrocinado

    [Resolvido]Condição na Função Empty Re: [Resolvido]Condição na Função

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 22:42