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]Atualização de caixa de exto baseado em tabela

    geremias
    avatar
    geremias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 14/03/2012
    • Mensagem nº1

    [Resolvido]Atualização de caixa de exto baseado em tabela Empty [Resolvido]Atualização de caixa de exto baseado em tabela

    Mensagem  geremias 10/8/2021, 17:30

    Boa tarde Caros colegas!

    Estou numa pendenga aqui, que não consigo resolver.

    tenho uma tabela TblLetras com a seguinte estrutura:

           
               letra1     A B C 
    letra2 Z Y Z
                 

    e assim vai.

    no formulário FrmTeste eu tenho duas caixas de texto Txt1 e Txt2, o que estou pretendendo fazer é o seguinte, ao digitar "A" na Txt1, busque na tabela o correspondente a letra digitada e preencha a Txt2 com o valor, no caso a Txt2 assumiria o valor "Z".

    Já tentei com a função select from where, mas não obtive resultado.

    Me.Txt2 = "SELECT TblLetras.Letra2, FROM TblLetras WHERE TblLetras.Letra1)=[Formulários]![FrmTeste]![Txt1]));"

    obs.: o formulário não esta vinculado a TblLetras.

    não consigo implementar isso. ficaria muito grato se pudessem me ajudar.

    Gerson.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº2

    [Resolvido]Atualização de caixa de exto baseado em tabela Empty Re: [Resolvido]Atualização de caixa de exto baseado em tabela

    Mensagem  Avelino Sampaio 10/8/2021, 17:54

    Olá, Gerson!

    Bom, creio que a solução pode passar pela uso da função split(). Rode esta rotina exemplo:

    Public Sub fncTeste()
    Dim p
    Dim k
    Dim letra$, x%
    p = Split("A B C")
    k = Split("X Y Z")
    letra = InputBox("Entre com uma letra (A, B ou C)...")
    x = -1
    For x = 0 To UBound(p)
        If letra = p(x) Then Exit For
    Next
    If x = 3 Then
        MsgBox "Não tem letra correspondente ..."
    Else
        MsgBox "A letra correspondente é: " & k(x)
    End If
        
    End Sub


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    geremias
    avatar
    geremias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 14/03/2012
    • Mensagem nº3

    [Resolvido]Atualização de caixa de exto baseado em tabela Empty Re: [Resolvido]Atualização de caixa de exto baseado em tabela

    Mensagem  geremias 10/8/2021, 22:59

    Boa noite Avelino!

    Realmente a ideia é essa, mas como havia mencionado, tenho que pegar os valores da tabela TblLetras, preenchendo a Txt2 com o resultado encontrado após atualizar o valor da Txt1. ambos no FrmTeste.

    Eu até consegui fazer o pretendido, atualizando um SubForm vinculado a Tabela TblLetras. mas eu gostaria de fazer o mesmo usando apenas o Formulário principal FrmTeste.

    Agradeço imensamente pela colaboração.

    Gerson.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº4

    [Resolvido]Atualização de caixa de exto baseado em tabela Empty Re: [Resolvido]Atualização de caixa de exto baseado em tabela

    Mensagem  Avelino Sampaio 10/8/2021, 23:26

    Gerson

    Utilize a função Dlookup() para capturar o valor do campo na tabela.  Algo assim:

    Dim seq$
    Seq = dlookup("letra2","tblLetras","id = " & me!id)

    Aqui estou supondo que Id é o nome do campo que identifica o registro na tabela, de forma exclusiva.

    Public Sub fncTeste()
    Dim p
    Dim k
    Dim letra$, x%
    Dim seq$
    Seq = dlookup("letra2","tblLetras","id = " & me!id)
    p = Split("A B C")
    k = Split(seq)
    letra = InputBox("Entre com uma letra (A, B ou C)...")
    x = -1
    For x = 0 To UBound(p)
        If letra = p(x) Then Exit For
    Next
    If x = 3 Then
        MsgBox "Não tem letra correspondente ..."
    Else
        MsgBox "A letra correspondente é: " & k(x)
    End If
        
    End Sub


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    geremias
    avatar
    geremias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 14/03/2012
    • Mensagem nº5

    [Resolvido]Atualização de caixa de exto baseado em tabela Empty Re: [Resolvido]Atualização de caixa de exto baseado em tabela

    Mensagem  geremias 11/8/2021, 14:53

    Bom dia Avelino!

    Obrigado!

    Consegui utilizando o DLookup.

    Agradeço de coração pela ajuda.


    Gerson.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    [Resolvido]Atualização de caixa de exto baseado em tabela Empty Re: [Resolvido]Atualização de caixa de exto baseado em tabela

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 26/4/2024, 14:35