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

    Código para Botão de Buscar com função Next

    camilabzz
    camilabzz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 40
    Registrado : 15/10/2012

    Código para Botão de Buscar com função Next Empty Código para Botão de Buscar com função Next

    Mensagem  camilabzz 14/11/2012, 16:12

    Olá,

    Eu criei em um form de funcionários que contém um campo de busca com uma caixa de texto para o colocar o nome do funcionario, e um botão de buscar.


    Adaptei o código abaixo (o Alexendre Neves que me ajudou com isso em outro tópico) para o meu sistema e funcionou direitinho, ele pesquisa pelo nome completo e pelo primeiro nome do funcionário, porém tenho funcionários que tem o mesmo primeiro nome. Existe a possibilidade de que quando eu pesquise um primeiro nome que tenha duas vezes no meu BD apareçam os registros de todos funcionários com este nome um depois do outro, como se fosse um botão de Next?


    Quando pesquiso pelo primeiro nome, ele busca o funcionário com o nome que digitei, porém aparece na tela a mensagem "Match Not Found - Please Try Again", mesmo quando a busca encontra o funcionário desejado, essa mensagem só não aparece quando digito o nome completo do funcionário. Como posso ajustar para que a mensagem só apareça quando o nome do funcionário, de fato não existir em meu banco?



    Código:
    Private Sub cmdSearch_Click()
    Dim strStudentRef As String
    Dim strSearch As String

    'Check txtSearch for Null value or Nill Entry first.

    If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
    MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!"
    Me![txtSearch].SetFocus
    Exit Sub
    End If
    '---------------------------------------------------------------

    'Performs the search using value entered into txtSearch
    'and evaluates this against values in strStudentID

    DoCmd.ShowAllRecords
    DoCmd.GoToControl ("strStudentID")
    DoCmd.FindRecord "*" & Me!txtSearch & "*"

    strStudentID.SetFocus
    strStudentRef = strStudentID.Text
    txtSearch.SetFocus
    strSearch = txtSearch.Text

    'If matching record found sets focus in strStudentID and shows msgbox
    'and clears search control

    If strStudentRef = strSearch Then
    MsgBox "Match Found For: " & strSearch, , "Congratulations!"
    strStudentID.SetFocus
    txtSearch = ""

    'If value not found sets focus back to txtSearch and shows msgbox
    Else
    MsgBox "Match Not Found For: " & strSearch & " - Please Try Again.", _
    , "Invalid Search Criterion!"
    txtSearch.SetFocus
    End If
    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Código para Botão de Buscar com função Next Empty Re: Código para Botão de Buscar com função Next

    Mensagem  Alexandre Neves 14/11/2012, 18:35

    Boa tarde, camila
    Deve ter uma caixa de combinação para mostrar o(s) nome(s) que resultarem da consulta.
    Ao executar a consulta, coloque CxcNomesProcurados.rowsource="SELECT ... WHERE NomeAluno like '*'" & TxtPesquisa & " & '*'"


    .................................................................................
    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

      Data/hora atual: 5/12/2022, 18:05