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]Dúvida com Recordset

    Edison Miranda
    avatar
    Edison Miranda
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/02/2024
    • Mensagem nº1

    [Resolvido]Dúvida com Recordset Empty [Resolvido]Dúvida com Recordset

    Mensagem  Edison Miranda 14/2/2024, 22:51

    Boa noite a todos.

    Estou iniciando hoje neste foram. Gosto muito de programação a a algum tempo atrás cheguei a criar alguns projetos com Access.
    Estou a procura de ajuda para retornar e aprender mais sobre esta ferramenta.

    De cara estou com um problema e precisando de ajuda.

    O meu programa é uma programa financeiro, e o que eu pretendo neste momento é escrever um código que todas as vezes que eu abrir o formulário principal, caso eu tenha valores a pagar ou receber no dia, abra uma MsgBOX informando "Exisitem títulos a serem liquidados na data de hoje!! "

    Escrevi este código:

    Dim consulta As String
    Dim Novo As Recordset

    consulta = "SELECT * FROM tb_teste WHERE vencimento = 'Data' "

    Set Novo = CurrentDb.OpenRecordset(consulta) 'Usando o método Open do objeto Recordset.

    If bancoVirtual.RecordCount > O Then
    MsgBox ("Foram encontrados competidores do Brasil!")
    Else
    End If
    MsgBox ("Não foram encontrados competidores do Brasil!")
    End Sub

    Mas estou tendo o retorno de erro "13" e não consegui resolver.

    Podem me ajudar?

    Muito obrigados a todos.
    • Ir para o topo
    ConectadoAlexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016
    • Mensagem nº2

    [Resolvido]Dúvida com Recordset Empty Re: [Resolvido]Dúvida com Recordset

    Mensagem  Alexandre Fim 15/2/2024, 03:31

    Edison boa noite,

    Seja bem-vindo ao fórum !

    O erro "13-Type Mismatch" ocorre quando não contém tipos de dados que não são correspondidos corretamente.

    Segue código ajustado. Copie e cole

    Código:

    Public Sub NomeDoSeuProcedimento()
    On Error GoTo trata_erro
    Dim consulta    As String
    Dim Novo        As DAO.Recordset

        consulta = "SELECT * FROM tb_teste WHERE vencimento = #" & Format(Date, "mm/dd/yyyy") & "#"
       
        Set Novo = CurrentDb.OpenRecordset(consulta) 'Usando o método Open do objeto Recordset.
       
        '-- Alexandre Fim ----------------------------------------------
        '-- O recordset bancoVirtual não existe
        'If bancoVirtual.RecordCount > O Then
        '---------------------------------------------------------------

        If Not Novo.EOF Then '-- Se não for o final do arquivo (End Of File)
            MsgBox ("Foram encontrados competidores do Brasil!")
        Else
            MsgBox ("Não foram encontrados competidores do Brasil!")
        End If
       
       
        Novo.Close              '-- fecha recordset
        Set Novo = Nothing      '-- Destroi da memoria
       
        Exit Sub

    '-- Tratamento de erro ------------------------------------------------------------------------
    trata_erro:
        MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
        Exit Sub

    End Sub



    Tente isso. Acredito que irá funcionar.

    Boa sorte

    Att,

    Alexandre Fim





    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Dúvida com Recordset Setinf11
    Sistemas e Tecnologia Ltda
    • Ir para o topo
    Edison Miranda
    avatar
    Edison Miranda
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/02/2024
    • Mensagem nº3

    [Resolvido]Dúvida com Recordset Empty Re: [Resolvido]Dúvida com Recordset

    Mensagem  Edison Miranda 15/2/2024, 16:39

    Oi Alexndre.

    Agradeço muito o retorno.

    Agora pelo menos não esta dando erro, mas esta ocorrendo o seguinte, a mensagem vem sempre a mesma, independente da situação.







    • Ir para o topo
    ConectadoAlexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016
    • Mensagem nº4

    [Resolvido]Dúvida com Recordset Empty Re: [Resolvido]Dúvida com Recordset

    Mensagem  Alexandre Fim 15/2/2024, 17:06

    Edison,

    Por gentileza, para ficar mais fácil e rápido de resolver, compartilhe aqui uma cópia do seu banco de dados, para melhor análise.

    OBS: Na minha assinatura tem um link que ensina a postar anexos no fórum.

    É isso

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Dúvida com Recordset Setinf11
    Sistemas e Tecnologia Ltda
    • Ir para o topo
    Edison Miranda
    avatar
    Edison Miranda
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/02/2024
    • Mensagem nº5

    [Resolvido]Dúvida com Recordset Empty Duvidas Recordset

    Mensagem  Edison Miranda 16/2/2024, 15:50

    Alexandre, segue BD conforme me solicitou.

    Grato
    • Ir para o topo
    ConectadoAlexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016
    • Mensagem nº6

    [Resolvido]Dúvida com Recordset Empty Re: [Resolvido]Dúvida com Recordset

    Mensagem  Alexandre Fim 16/2/2024, 16:12

    Edison,

    Não veio o anexo.
    Verifique

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Dúvida com Recordset Setinf11
    Sistemas e Tecnologia Ltda
    • Ir para o topo
    Edison Miranda
    avatar
    Edison Miranda
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/02/2024
    • Mensagem nº7

    [Resolvido]Dúvida com Recordset Empty Dúvidas Recordset

    Mensagem  Edison Miranda 18/2/2024, 15:38

    Segue BD
    • Ir para o topo
    ConectadoAlexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016
    • Mensagem nº8

    [Resolvido]Dúvida com Recordset Empty Re: [Resolvido]Dúvida com Recordset

    Mensagem  Alexandre Fim 18/2/2024, 16:45

    Edson,
    Não veio novamente.

    Vaja no link abaixo para postar anexos no forum:

    https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com


    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Dúvida com Recordset Setinf11
    Sistemas e Tecnologia Ltda
    • Ir para o topo
    Edison Miranda
    avatar
    Edison Miranda
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/02/2024
    • Mensagem nº9

    [Resolvido]Dúvida com Recordset Empty Re: [Resolvido]Dúvida com Recordset

    Mensagem  Edison Miranda 18/2/2024, 17:07

    Segue
    Anexos
    [Resolvido]Dúvida com Recordset AttachmentSISFIN.MDB.zip
    Segue BD
    Você não tem permissão para fazer download dos arquivos anexados.
    (975 Kb) Baixado 6 vez(es)
    • Ir para o topo
    Edison Miranda
    avatar
    Edison Miranda
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/02/2024
    • Mensagem nº10

    [Resolvido]Dúvida com Recordset Empty DUVIDAS RECORDSET

    Mensagem  Edison Miranda 18/2/2024, 17:16

    Alexandre,

    Apenas para facilitar.
    Ao abrir o BD, é aberto a MSBOX.
    "Foram encontrados valores a pagar ou receber na data de hoje"
    referente o código que me enviou.

    Fiz um menu suspenso e no botão consultas, ele me traz todos os valores da Tabela ContasReceberPagar na data de hoje.

    E na data de hoje não existem valores.

    OK?
    • Ir para o topo
    ConectadoAlexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016
    • Mensagem nº11

    [Resolvido]Dúvida com Recordset Empty Re: [Resolvido]Dúvida com Recordset

    Mensagem  Alexandre Fim 18/2/2024, 18:04

    Edison,

    Substitua o código anterior por este:

    Código:

    Private Sub Form_Open(Cancel As Integer)

    On Error GoTo trata_erro
    Dim sSQL        As String
    Dim rs        As DAO.Recordset

        sSQL = "SELECT COUNT(*) as cnt "
        sSQL = sSQL & " FROM tbl_ContasReceberPagar "
        sSQL = sSQL & " WHERE vencimento = #" & Format(Date, "mm/dd/yyyy") & "#"
       
        Set rs = CurrentDb.OpenRecordset(sSQL) 'Usando o método Open do objeto Recordset.

        If rs("cnt") = 0 Then
            MsgBox "NAO Foram encontrados Valores a Pagar / Receber da nada de hoje!", vbExclamation, "Mensagem"
        Else
            MsgBox "FORAM encontrados valores a pagar ou receber na data de hoje!", vbExclamation, "Mensagem"
        End If
       
       
        rs.Close              '-- fecha recordset
        Set rs = Nothing      '-- Destroi da memoria
       
        Exit Sub

    '-- Tratamento de erro ------------------------------------------------------------------------
    trata_erro:
        MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
        Exit Sub

    End Sub


    É isso

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Dúvida com Recordset Setinf11
    Sistemas e Tecnologia Ltda
    • Ir para o topo
    Edison Miranda
    avatar
    Edison Miranda
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/02/2024
    • Mensagem nº12

    [Resolvido]Dúvida com Recordset Empty DUVIDAS RECORDEST

    Mensagem  Edison Miranda 19/2/2024, 14:18

    Cara Alexandre.

    Agradeço muito pela atenção.

    Agora está funcionando perfeitamente.


    Grande abraço.

    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº13

    [Resolvido]Dúvida com Recordset Empty Re: [Resolvido]Dúvida com Recordset

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 21/11/2024, 12:37