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]Não a nenhum registro atual. Usando Bookmark

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Não a nenhum registro atual. Usando Bookmark Empty [Resolvido]Não a nenhum registro atual. Usando Bookmark

    Mensagem  crysostomo 29/9/2022, 23:41

    Boa noite galera. Estou ajudando um amigo aqui, é usando o codigo Bookmark e sempre passa pela a condição e quando chega no Boolmark ele exibe a mensagem : "Não ha registro atual".
    Sempre usei ele, a primeira vez que isso acontece eaté agorea não achei o erro.

    Dim rs As Object
      If DCount("*", "tbldCad", "NnumeroTex='" & Me.txtPesquisa.Value & "'") < 1 Then
       MsgBox "NÃO HÁ REGISTRO REFERENTE", vbExclamation
      Else
         Set rs = Me.Recordset.Clone
            rs.FindFirst "[NnumeroTex] = " & Me.txtPesquisa.Value & ""
           Me.Bookmark = rs.Bookmark
         Set rs = Nothing
    .....


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3213
    Registrado : 13/12/2016

    [Resolvido]Não a nenhum registro atual. Usando Bookmark Empty Re: [Resolvido]Não a nenhum registro atual. Usando Bookmark

    Mensagem  Alexandre Fim 29/9/2022, 23:45

    Gilliard,

    Tente isso. Mude:
    De--> Dim rs As Object
    Para--> Dim rs As DAO.Recordset

    Abs
    Alexandre Fim


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

    [Resolvido]Não a nenhum registro atual. Usando Bookmark Setinf11
    Sistemas e Tecnologia Ltda
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Não a nenhum registro atual. Usando Bookmark Empty Re: [Resolvido]Não a nenhum registro atual. Usando Bookmark

    Mensagem  crysostomo 30/9/2022, 13:02

    Nobre Alexandre. ele persistiu, eu troque de formulário e voltou ao normal.
    A única coisa que poderia atrapalhar seria o formulario não ter o campo para completar? Não é possível, pois a função dele era pegar e clonar tudo que teria igual a tabela com o fórmulario.

    Basketball


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3213
    Registrado : 13/12/2016

    [Resolvido]Não a nenhum registro atual. Usando Bookmark Empty Re: [Resolvido]Não a nenhum registro atual. Usando Bookmark

    Mensagem  Alexandre Fim 30/9/2022, 13:12

    Gilliard bom dia,

    você pode fazer assim:
    Código:


    Dim rs As Object
     
        '-- se a contagem for IGUAL A ZERO -----------------------------------------------------
        If DCount("*", "tbldCad", "NnumeroTex='" & Me.txtPesquisa.Value & "'") = 0 Then
            MsgBox "NÃO HÁ REGISTRO REFERENTE", vbExclamation
            Exit Sub '-- A rotina pára aqui !
        End If
        '--------------------------------------------------------------------------------------
       
        '-- se a contagem for MAIOR QUE ZERO -----------------------------------------------------
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[NnumeroTex] = " & Me.txtPesquisa.Value & ""
        Me.Bookmark = rs.Bookmark
        '--------------------------------------------------------------------------------------
       
        Set rs = Nothing


    É isso

    Att,

    Alexandre Fim


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

    [Resolvido]Não a nenhum registro atual. Usando Bookmark Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    [Resolvido]Não a nenhum registro atual. Usando Bookmark Empty Re: [Resolvido]Não a nenhum registro atual. Usando Bookmark

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/4/2024, 21:03