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


    [Resolvido]Pegar valor de uma tabela

    avatar
    adriano944
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    [Resolvido]Pegar valor de uma tabela Empty Pegar valor de uma tabela

    Mensagem  adriano944 1/4/2010, 13:14

    Pessoal

    estou com uma duvida simples que é a seguinte...

    preciso saber como que eu faço para que o nome(caption) de um Rótulo, seja o valor de uma tabela chamada tblusuarioatual....

    exemplo...

    na tabela tem "Adriano Rocha"
    eu preciso que a função caption do rotulo receba "Adriano Rocha"....

    obrigado
    avatar
    Convidad
    Convidado


    [Resolvido]Pegar valor de uma tabela Empty Re: [Resolvido]Pegar valor de uma tabela

    Mensagem  Convidad 1/4/2010, 13:26

    Me.Rótulo.Caption=Me.SuaCaixaTexto.Value

    ou por dlookup

    Me.Rótulo.Caption=DLookup("seuCampo", "suatabela","seucampochaveprimaria = " & Me.suacaixatextoChaveprimaria)
    avatar
    adriano944
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    [Resolvido]Pegar valor de uma tabela Empty Re: [Resolvido]Pegar valor de uma tabela

    Mensagem  adriano944 1/4/2010, 13:38

    Consegui aqui da seguinte maneira:

    Dim DB As DAO.Database
    Dim Rs1 As DAO.Recordset
    Set DB = CurrentDb()

    Set Rs1 = DB.OpenRecordset("SELECT * from TblUsuarioAtual")


    Obrigado pelo retorno

    Conteúdo patrocinado


    [Resolvido]Pegar valor de uma tabela Empty Re: [Resolvido]Pegar valor de uma tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:20