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

3 participantes

    [Resolvido]Listbox com recordset de várias tabelas

    avatar
    onfire
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 31
    Registrado : 18/09/2016

    [Resolvido]Listbox com recordset de várias tabelas Empty [Resolvido]Listbox com recordset de várias tabelas

    Mensagem  onfire 2/1/2022, 14:11

    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?


    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    [Resolvido]Listbox com recordset de várias tabelas Empty Re: [Resolvido]Listbox com recordset de várias tabelas

    Mensagem  Assis 2/1/2022, 15:12

    Bom Ano

    E o Anexo ?


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    onfire
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 31
    Registrado : 18/09/2016

    [Resolvido]Listbox com recordset de várias tabelas Empty Anexo

    Mensagem  onfire 2/1/2022, 17:58

    Boa Tarde
    Esqueci-me de fazer enviar anexo. Já está.
    Anexos
    [Resolvido]Listbox com recordset de várias tabelas Attachmentmul.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (77 Kb) Baixado 10 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Listbox com recordset de várias tabelas Empty Re: [Resolvido]Listbox com recordset de várias tabelas

    Mensagem  Alexandre Fim 3/1/2022, 00:56

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Listbox com recordset de várias tabelas Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    onfire
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 31
    Registrado : 18/09/2016

    [Resolvido]Listbox com recordset de várias tabelas Empty Re: [Resolvido]Listbox com recordset de várias tabelas

    Mensagem  onfire 3/1/2022, 19:45

    Era mesmo isto.
    Muito bom
    Obrigado

      Data/hora atual: 1/10/2022, 14:58