MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Henrique Campanilli
    Novato
    Novato

    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

    Mensagem  Henrique Campanilli em Seg 29 Fev 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?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Ter 01 Mar 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Henrique Campanilli
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Henrique Campanilli em Ter 01 Mar 2016, 20:24

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

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Qua 02 Mar 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 16 Dez 2017, 09:17