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]FindRecord + teste logico

    avatar
    JaimeSoares
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 30/08/2022

    [Resolvido]FindRecord + teste logico Empty [Resolvido]FindRecord + teste logico

    Mensagem  JaimeSoares 18/3/2024, 19:12

    É possível usar DoCmd.FindRecord e ter um teste lógico para informar se encontrou ou não o registro ??

    Obrigado
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

    [Resolvido]FindRecord + teste logico Empty Re: [Resolvido]FindRecord + teste logico

    Mensagem  Avelino Sampaio 18/3/2024, 19:35

    Olá!

    Retirado do CHATGPT

    "Se o DoCmd.FindRecord não encontrar nenhum registro correspondente ao critério de busca fornecido, e o argumento bIncluirCaixaDiálogo estiver definido como True, o Access exibirá uma caixa de diálogo informando ao usuário que o registro não foi encontrado.

    Essa caixa de diálogo geralmente exibe uma mensagem como "O Microsoft Access não conseguiu localizar o registro que você especificou" e oferece a opção de cancelar a operação ou continuar a busca.

    No entanto, se você preferir lidar com isso de uma maneira diferente em seu código, você pode verificar manualmente se o DoCmd.FindRecord encontrou um registro. Você pode fazer isso testando se o formulário se moveu para um registro diferente. Por exemplo:


    Private Sub btnBuscarCliente_Click()
    Dim strCritério As String

    ' Construa o critério de busca com base no que está no campo de texto
    strCritério = "[NomeCliente] = '" & Me.txtNomeCliente & "'"

    ' Salve o registro atual
    Dim intRegistroAnterior As Integer
    intRegistroAnterior = Me.CurrentRecord

    ' Use DoCmd.FindRecord para encontrar o registro
    DoCmd.FindRecord strCritério, acEntire, False, acSearchAll, False, acAll, True

    ' Verifique se o registro foi encontrado
    If Me.CurrentRecord = intRegistroAnterior Then
    MsgBox "O registro não foi encontrado.", vbInformation, "Registro Não Encontrado"
    End If
    End Sub


    Neste exemplo, após chamar o DoCmd.FindRecord, verificamos se o formulário se moveu para um registro diferente. Se o número do registro não mudou, isso significa que o registro não foi encontrado e uma mensagem é exibida ao usuário informando sobre isso.


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    JaimeSoares gosta desta mensagem

    avatar
    JaimeSoares
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 30/08/2022

    [Resolvido]FindRecord + teste logico Empty Re: [Resolvido]FindRecord + teste logico

    Mensagem  JaimeSoares 20/3/2024, 11:15

    Funcionou PERFEITAMENTE !
    Muito obrigado Avelino [Resolvido]FindRecord + teste logico 1f44d

    Conteúdo patrocinado


    [Resolvido]FindRecord + teste logico Empty Re: [Resolvido]FindRecord + teste logico

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/5/2024, 00:35