MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Alterar para busca dupla

    avatar
    icecrab
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 11
    Registrado : 28/01/2019

    [Resolvido]Alterar para busca dupla Empty [Resolvido]Alterar para busca dupla

    Mensagem  icecrab em 11/3/2019, 12:54

    Bom dia a todos, estou com um problema em um cogido porque me ocorreu a necessidade de fazer uma busca dupla neste codigo mas nao consigo acertar a escrita do codigo alguem pode me ajudar. Segue o código:

    Private Sub SeuCampoNoForm_BeforeUpdate(Cancel As Integer)
    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.SeuCampoNoForm.Value
    stLinkCriteria = "SeuCampoNaTabela= '" & Busca & "'"
    If DCount("SeuCampoNaTabela", "NomeDaTabela", stLinkCriteria) > 0 Then
    Me.Undo
    Cancel = True
    rsc.FindFirst stLinkCriteria
    Me.Bookmark = rsc.Bookmark
    End If
    Set rsc = Nothing
    lote.setfocus
    End Sub

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Alterar para busca dupla Empty Re: [Resolvido]Alterar para busca dupla

    Mensagem  Alexandre Neves em 11/3/2019, 15:54

    Boa tarde e bem-vindo ao fórum

    Movi-lhe a dúvida para esta sala por se tratar de código, mesmo trabalhando com formulário

    Sobre a sua dúvida, coloque o código no acontecimento AposActualizar do controlo


    .................................................................................
    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
    avatar
    icecrab
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 11
    Registrado : 28/01/2019

    [Resolvido]Alterar para busca dupla Empty Re: [Resolvido]Alterar para busca dupla

    Mensagem  icecrab em 11/3/2019, 21:49

    ok, obrigado eu tentei assim ele encontra os valores, mas nao escreve na tela, so depois que eu aperto o F5 ele escreve no formulario.

    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.LOTE.Value & Me.CLAVE.Value
    stLinkCriteria = "([LOTE] = '" & Busca & "') and ([CLAVE] = '" & Busca & "')"
    If DCount("LOTE", "TB_INGRESO_ESTOQUE", "LOTE =" & Me!LOTE1 & " and CLAVE=#" & Me!CLAVE1 & "#") > 0 Then
    rsc.FindFirst stLinkCriteria
    Me.Bookmark = rsc.Bookmark
    End If
    Set rsc = Nothing
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Alterar para busca dupla Empty Re: [Resolvido]Alterar para busca dupla

    Mensagem  Alexandre Neves em 11/3/2019, 23:54

    coloque, no final do código
    refresh


    .................................................................................
    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
    avatar
    icecrab
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 11
    Registrado : 28/01/2019

    [Resolvido]Alterar para busca dupla Empty Re: [Resolvido]Alterar para busca dupla

    Mensagem  icecrab em 13/3/2019, 15:29

    Nao deu certo estou refazendo o codigo, vou tentar de outra forma obrigado.

    Conteúdo patrocinado

    [Resolvido]Alterar para busca dupla Empty Re: [Resolvido]Alterar para busca dupla

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 08:00