[Resolvido]Listbox com recordset de várias tabelas

Exmos
Deixo em anexo um exemplo do pretendido.
Tem 2 tabelas e uma consulta que demonstra o pretendido em recordset.
Dá-me a sensação de que o erro está no SQL, mas olhando não vejo erro.
Podem-me ajudar?

Bom Ano

E o Anexo ?

Boa Tarde
Esqueci-me de fazer enviar anexo. Já está.

Olá Nelio,

Não estava funcionando porque faltava um espaço antes do FROM e do INNER.
Aproveitei para incluir as definições e proproedades da listbox tmb. Copie e cole o código abaixo na instrução do bot~sao de comando:

Código:


Private Sub Procurar_Click()
Dim strSQL As String
Dim rs As DAO.Recordset

    With Lbx
        .RowSourceType = "Value List"  '-- Lista de Valores
        .ColumnCount = 3                '-- Nro. de Colunas
        .ColumnWidths = "2cm;5cm;2cm"  '-- Largura das Colunas
        .ColumnHeads = True            '-- Exibir cabeçalho
        .RowSource = "ID;NOME;MOV"      '-- Cabeçalho
        .Requery
    End With
   
    'select aos dados a apresentar (vai apontar à origem dos dados)
    strSQL = "SELECT ex1.ID"
    strSQL = strSQL & ", ex1.nome"
    strSQL = strSQL & ", ex2.mov"
    strSQL = strSQL & " FROM ex1"
    strSQL = strSQL & " INNER JOIN ex2 on ex2.link = ex1.ID"
   
    Set rs = CurrentDb.OpenRecordset(strSQL)
   
   
    'Para limpar memória no imediato
    'Me.Lbx.RowSource = ""
   
    'Para inserir cabeçalho na listbox (não esquecer definir origem da linha como lista de valores, formato pelo numero de colunas 4
    'Me.Lbx.AddItem "Nome;Movimento"
   
    'Para colocar dados na listbox
    Do Until rs.EOF
        Me.Lbx.AddItem rs!ID & ";" & rs!nome & ";" & rs!mov
        rs.MoveNext
    Loop
   
    'Fecha recordset
    rs.Close
   
    'Apaga recordset da memoria
    Set rs = Nothing

End Sub



É isso

Boa sorte

Abs

Era mesmo isto.
Muito bom
Obrigado