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?
2 participantes
Função "SE" no Access que envolvam mais de uma tabela
Henrique Campanilli- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 9
Registrado : 23/02/2016
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Ola;
Entre muitas outras formas, pode fazer de duas simples;
Ou usa o DLookup
Ou usa a abertura de Recordset
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
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
Henrique Campanilli- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 9
Registrado : 23/02/2016
Tem como fazzer esta fórmula (ou alguma parecida) no Modo Design de uma Tabela?
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
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
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...