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

    Função "SE" no Access que envolvam mais de uma tabela

    avatar
    Henrique Campanilli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 23/02/2016

    Função "SE" no Access que envolvam mais de uma tabela Empty Função "SE" no Access que envolvam mais de uma tabela

    Mensagem  Henrique Campanilli 29/2/2016, 17:23

    Eu tenho duas tabelas distintas. Uma trás informações como o nome do aluno e o número de registro dele. Numa segunda tabela eu preciso por o número de registro dele e quero que o nome e outras informações apareçam automaticamente. Como faço?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Função "SE" no Access que envolvam mais de uma tabela Empty Re: Função "SE" no Access que envolvam mais de uma tabela

    Mensagem  JPaulo 1/3/2016, 09:46

    Ola;

    Entre muitas outras formas, pode fazer de duas simples;

    Ou usa o DLookup

    Código:
    Private Sub SeuCampoNumero_AfterUpdate()
        Me!SeuCampo1.Value = DLookup("SeuCampo1", "SuaTabela", "SeuCampoNumero=" & Me.SeuCampoNumero)
        Me!SeuCampo2.Value = DLookup("SeuCampo2", "SuaTabela", "SeuCampoNumero=" & Me.SeuCampoNumero)
        Me!SeuCampo3.Value = DLookup("SeuCampo3", "SuaTabela", "SeuCampoNumero=" & Me.SeuCampoNumero)
        Me!SeuCampo4.Value = DLookup("SeuCampo4", "SuaTabela", "SeuCampoNumero=" & Me.SeuCampoNumero)
    End Sub

    Ou usa a abertura de Recordset

    Código:
    Private Sub SeuCampoNumero_AfterUpdate()
        Dim db As DAO.Database
        Dim rs As DAO.Recordset
        Dim strSQL As String

            strSQL = "SELECT * FROM SuaTabela WHERE SeuCampoNumero = " & Me!SeuCampoNumero
       
            Set db = CurrentDb
            Set rs = db.OpenRecordset(strSQL)
            If Not rs.BOF Then
                Me!SeuCampo1.Value = rs("SeuCampo1")
                Me!SeuCampo2.Value = rs("SeuCampo2")
                Me!SeuCampo3.Value = rs("SeuCampo3")
                Me!SeuCampo4.Value = rs("SeuCampo4")
            End If
            rs.Close
            Set rs = Nothing
            db.Close
            Set db = Nothing
        End If
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Função "SE" no Access que envolvam mais de uma tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Função "SE" no Access que envolvam mais de uma tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    Função "SE" no Access que envolvam mais de uma tabela Folder_announce_new Instruções SQL como utilizar...
    avatar
    Henrique Campanilli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 23/02/2016

    Função "SE" no Access que envolvam mais de uma tabela Empty Re: Função "SE" no Access que envolvam mais de uma tabela

    Mensagem  Henrique Campanilli 1/3/2016, 20:24

    Tem como fazzer esta fórmula (ou alguma parecida) no Modo Design de uma Tabela?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Função "SE" no Access que envolvam mais de uma tabela Empty Re: Função "SE" no Access que envolvam mais de uma tabela

    Mensagem  JPaulo 2/3/2016, 09:50

    Negativo, somente em consulta ou VBA.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Função "SE" no Access que envolvam mais de uma tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Função "SE" no Access que envolvam mais de uma tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    Função "SE" no Access que envolvam mais de uma tabela Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    Função "SE" no Access que envolvam mais de uma tabela Empty Re: Função "SE" no Access que envolvam mais de uma tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 11:19