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

    Comando irpararegistro

    avatar
    Edilson.ita
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 05/08/2015

    Comando irpararegistro Empty Comando irpararegistro

    Mensagem  Edilson.ita 5/8/2015, 16:12

    Ola a Todos

    Estou comecando agora a aprender Access portanto sou um inicante (rsrsrsrs) , Eu ainda estou aprendendo access , Quase não uso VBA , Este sera meu proximo passo . Estou montando um aplicativo e encontrei um problema . Eu uso o comando irpara registro "codvenda" para encontar um lancamento , Porem ele bvai para o registro e não para a venda especifica , No inicio do BD as vendas coincidem com onumero do registro , mas devido as exclusoes logo deixam de coincidir , então quando eu clico para ir para a venda acabo encontarndo o registro que não coincide com a venda .

    alguém pode me indicar o caminho para a solucao , por favor.
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 02/10/2011

    Comando irpararegistro Empty Re: Comando irpararegistro

    Mensagem  rubenscouto 8/8/2015, 07:40

    crie um botão de comando no seu formulário e cole o seguinte código:

    Dim a As String
    Dim strSQL As String
    Dim xlocalizar As Variant
    xlocalizar = InputBox("Qual a " & Me.SeuCampoDePesquisa.Caption & " que deseja procurar?", "Procura por Nome")
    strSQL = "SELECT * FROM SuaTabela WHERE SeuCampoDePesquisa = " & xlocalizar & ""
    Me.Form.RecordSource = strSQL

    tente Adaptar a sua realidade.

      Data/hora atual: 22/11/2024, 06:46