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]Dlookup - VBA

    avatar
    kbca1990
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 19/10/2011

    [Resolvido]Dlookup - VBA Empty Dlookup - VBA

    Mensagem  kbca1990 5/11/2011, 13:00

    Sei que já tem alguns topicos com este tipo de pergunta, porem como sou Iniciante em Access não entendi mto os cometarios.

    Tenho um Form com o seguintes campos:
    CPF
    Nome_var
    Endereco_var
    Produto_var
    Numero_var
    Complemento_var

    e um botão para executar o MODULO. O campo para pesquisa seria o campo do "CPF" e precisava que todos os outro campos fossem preenchidos automaticamente apos modulo1_click() (algo do tipo Vlookup do Excel =Vlookup(value,ranged,ind_col,option) ).
    Começei a fazer o Codigo mas nem sei se esta certo o começo:

    Private Sub pesquisar_Click()

    If Not IsNull(Me.CPF_var) Then

    If (Not IsNull(DLookup("CPF_var", "Prod Atendimento", _
    "CPF ='" & Me!CPF_var & "'"))) Then
    ME.Endereco.var.value =

    Alguem pode me dar uma ajuda pra fazer este ?
    avatar
    Antonybrazil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 13/04/2011

    [Resolvido]Dlookup - VBA Empty Re: [Resolvido]Dlookup - VBA

    Mensagem  Antonybrazil 6/11/2011, 06:47

    O que você está querendo fazer é pesquisa que carrega o registro condizente com o cpf digitado. Tente adaptar o seguinte código. Vc tem que criar uma combobox para entrar com o cpf, não pode usar o campo já existente pois a hora que vc digitar o cpf que quer buscar irá substituir o cpf atual. Depois de criar a combobox vc insere o código:

    Private Sub ComboBusca_AfterUpdate()


    If Not IsNull(Me.Combobusca) Then
    Me.RecordsetClone.FindFirst "CPF = " & Me!Combobusca
    Me.Bookmark = Me.RecordsetClone.Bookmark
    Me!CPF.SetFocus
    Me!Combobusca = Null
    End If

    End Sub
    avatar
    kbca1990
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 19/10/2011

    [Resolvido]Dlookup - VBA Empty Resolvido!

    Mensagem  kbca1990 8/11/2011, 17:26

    Obrigado, mais um vez.
    Caso resolvido.

    Conteúdo patrocinado


    [Resolvido]Dlookup - VBA Empty Re: [Resolvido]Dlookup - VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 10:22