MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  marcelo3092 em 19/10/2019, 00: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 : 7779
    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, 08: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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

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

    O Alexandre obrigado cara fico top show.

      Data/hora atual: 25/11/2020, 10:01