MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Busca com campos não acoplados

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]Busca com campos não acoplados Empty [Resolvido]Busca com campos não acoplados

    Mensagem  crysostomo em 30/7/2020, 00:52

    boa noite amigos , esse método de busca que sempre uso , agora como se faz uma busca com campos não acoplados?
    Código:
    Private Sub listaDeLocalizar_DblClick(Cancel As Integer)
    On Error GoTo Err_listaDeLocalizar_Click
    Dim buscarPlaca As String
    Dim stLinkCriteria As String
    buscarPlaca = "Localizar"
    stLinkCriteria = "[placa]='" & Me![listaDeLocalizar] & "'"
    DoCmd.OpenForm buscarPlaca, , , stLinkCriteria
    Exit_listaDeLocalizar_Click:
    DoCmd.Close acForm, "localizar"
    DoCmd.OpenForm "fromEstacionamento"

    Exit Sub
    Err_listaDeLocalizar_Click:
    MsgBox Err.Description
    Resume Exit_listaDeLocalizar_Click
    End Sub
    Se fosse pelo DLookup caso fosse a construção de muitos campo seria muitas linhas


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

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

    [Resolvido]Busca com campos não acoplados Empty Re: [Resolvido]Busca com campos não acoplados

    Mensagem  Alexandre Fim em 30/7/2020, 13:43

    Crysostomo bom dia,

    Existem vários exemplos aqui no fórum, mas elaborei um pequeno exemplo para sua necessidade.

    Para carregar os dados na tela é só informar o campo "Código" que o evento "Após Atualizar" executará a rotina de busca de dados.
    Ex. Código = 1

    Segue.

    [Resolvido]Busca com campos não acoplados Client10



    boa sorte
    Anexos
    [Resolvido]Busca com campos não acoplados AttachmentNaoAcoplado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 4 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]Busca com campos não acoplados Empty Re: [Resolvido]Busca com campos não acoplados

    Mensagem  crysostomo em 31/7/2020, 20:05

    Boa tarde meu amigo , eu fiquei navegando aqui  sobre essa necessidade e não consegui adaptar alguns  e a parte do codigo não descubri meu erro pois não estava atualizando.
    Obg retornarei


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]Busca com campos não acoplados Empty Re: [Resolvido]Busca com campos não acoplados

    Mensagem  crysostomo em 5/8/2020, 01:23

    obrigo, vou estudar esse recordset


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 10/8/2020, 06:33