[Resolvido]List Box Desvinculado

Boa noite a todos.

Estou com dificuldade de em uma listbox retornar os valores.

Em um form coloquei uma lisbox desvinculada, e no evento "No atual" do form
coloquei a instrução select abaixo, emprestada do Mestre Avelino Sampaio:

Dim mysql As String
mysql = "Select Cod_Crime, Cod_ModusOperandi "
mysql = mysql & "FROM Tab_Crime WHERE Cod_Pessoa = " & Nz(Me.Cod_Pessoa) & " ORDER BY Cod_ModusOPerandi;"

Me.Lista128 = Null
Me.Lista128.RowSource = mysql



A medida que avanço nos registros do form, a listbox é atualizada.

No entanto, gostaria de ao invés de aparecer na list box o campo Cod_ModusOperandi, aparecece o campo Nom_ModusOperandi
que está na Tab_ModusOperandi.

A Tab_Crime tem os campos Cod_crime (autonumeração e chave primária) e Cod_ModusOperandi.

A Tab_ModusOperandi tem os campos Cod_ModusOperandi (autonumeração e chave primária) e Nom_ModusOperandi (o nome que eu quero que apareca na listbox).


Já tentei tudo que pesquisei no help do Access (INNER JOYN, HAVING, GROUP BY) e até agora só consegui perder umas centenas de cabelo.

Agradeço a ajuda.

Obrigado.

Não seria o caso de talvez ter duas listboxes? Aí, ao clicar em uma linha da primeira, filtra-se a segunda.

Obrigado pela atenção colega criquio. Na verdade a Listbox já está sendo filtrada pelo Cod_Pessoa. Esta Listbox vai servir apenas para mostrar os crimes daquela determinada pessoa. Ou seja, não vou usá-la para mais nada, apenas para o usuário ver os crimes daquela pessoa e não correr o risco de inserir o mesmo crime naquelas caixas de seleção que vc me ajudou hoje a construir o código. Lembra?

Já que serão poucas linhas, talvez seja mais simples preencher a listbox como lista de valores ao invés de ser pelo rowsource. Nesse caso, declarando dois recordsets:

Código:

Dim rs1 As Recordset, rs2 As Recordset

Me.NomeDaListbox.RowSource = ""
Me.NomeDaListbox.RowSourceType = "Value List"

Set rs1 = "SELECT Campo1, Campo2 FROM Tabela1 WHERE Código=" & Me.Código & ""
Do While Not rs1.EOF

    ' Agora setamos o rs2 pelo código em comum da outra tabela, que está representada no rs1:
    Set rs2 = "SELECT Campo FROM Tabela2 WHERE Código=" & rs1!Código & ""

    Me.NomeDaListbox.AddItem rs1!NomeCampo & ";" & rs2!NomeCampo
    rs1.MoveNext

Loop

rs1.Close
rs2.Close

Set rs1 = Nothing
Set rs2 = Nothing

Mais ou menos isso.

Estou testando agora.

Caro criquio, está dando a mensagem de erro: Erro em tempo de execução 424, o objeto é obrigatório.

O erro aparece na linha em vermelho

Private Sub Form_Current()

   Dim rs1 As Recordset, rs2 As Recordset
   
   Me.Lista128.RowSource = ""
   Me.Lista128.RowSourceType = "Value List"
   
   Set rs1 = "SELECT Cod_Crime, Cod_ModusOperandi FROM Tab_Crime WHERE Cod_Pessoa = " & Me.Cod_Pessoa
   
   Do While Not rs1.EOF
   
       Set rs2 = "SELECT Nom_ModusOperandi FROM Tab_ModusOperandi WHERE Cod_ModusOperandi = " & rs1!Cod_ModusOperandi
       
       Me.Lista128.AddItem rs1!Cod_Crime & ";" & rs2!Nom_ModusOperandi
       
       rs1.MoveNext
   Loop
   
   rs1.Close
   rs2.Close
   
   Set rs1 = Nothing
   Set rs2 = Nothing
   
End Sub

Está faltando fechar as aspas nos dois rs. Veja no meu exemplo.

Tens razão. Coloquei o & e as aspas mas dá o mesmo erro.

Agora que eu vi que confundi com definir rowsource de listbox. Tem que abrir o Recordset:

Código:

Set rs1 = CurrentDb.OpenRecordset("SELECT Campo1, Campo2 FROM Tabela1 WHERE Código=" & Me.Código & "")

Falha minha.

Agora está com erro: tipos incompatíveis, na mesma linha.

Set rs1 = CurrentDb.OpenRecordset("Select cod_crime, cod_ modusoperandi form tab_crime where cod_pessoa = " & me.cod_pessoa & "")

Parece que tem um form no lugar do FROM antes de tab_crime...

Aí foi erro de digitação no fórum. A instrução está escrita de forma correta no sistema.

Os nomes dos campos estão corretos e os campos do filtro são numéricos? Se for tipo texto precisa colocar aspas simples junto com as duplas:

...='" & Me.NomeDoCampo & "'")

Meu velho. Que bronca. rs. Todos os campos da tabela crime são numéricos.

A tab_crime tem três campos:

Cod_crime (autonumeracao);
Cod_pessoa (número);
Cod_modusoperandi (número)

A tab_modusoperandi tem três campos:

Cod_modusoperandi ( autonumeracao);
Nom_modusoperandi (texto).

Outra coisa criquio. Coloquei no rs2 = CurrentDb.openrecordset ...

Mas aí fiquei pensado. Como ele está em um loop vai ficar abrindo a cada passada do Will. Isto não pode dar problema?

O Loop em si não traz problemas. Ele pode deixar a pesquisa mais lenta quando se tem muitas linhas a serem retornadas, mas nesse caso não deve influir muito, até porque você está trabalhando localmente, certo? Ou está usando o sistema em rede, dividido em backend e frontend?

Você tambem pode tentar o operador LIKE no lugar do sinal de igual. Nesse caso, sempre com aspas simples e duplas mesmo para números:

...WHERE cod_pessoa LIKE '" & me.cod_pessoa & "'"

Verificando sempre se está digitando o nome da tabela, dos campos da tabela e dos campos do formulário tudo certinho.

Bom dia criquio. Rapaz o negócio ta difícil. Alterei as sua linhas dos sr, coloquei o LIKE e deu o mesmo erro. Por desencardo de consciência retirei o rs2 e deixei apenas o rs1, e ainda da o mesmo erro. Em seguida deixei o rs1 com apenas um campo e ainda assim da erro. O que será?

Aí só mesmo vendo ao vivo e em cores para se ter uma melhor ideia, porque a sintaxe é essa mesmo.

Posso te mandar o banco todo. Só peço que seja direto para seu e-mail, pois tem fotos de criminosos. Me manda seu e-mail.

Criquio. Eu criei um novo banco apenas com o form_pessoa e o subform_crime. Também só com as tabelas tab_crime, tab_pessoa e tab_modusoperandi. Agora a mensagem de erro é a seguinte: a variável do objeto ou a variável do bloco "with" não foi definida.

Se vc me mandar o e-mail. Te mando o banco.

Obrigado.

Crie uma cópia apenas com as tabelas e formulários envolvidos e retire tudo que for confidencial. Pode até zerar as tabelas e colocar uns 5 registros fictícios apenas para exemplo e mandar para o email que está na seção contato do meu perfil aqui no fórum.

Criquio, seguindo a sua orientação, estou enviando o arquivo zipado com a parte necessária para sua avaliação.

No aguardo.

Obrigado.

Faltou você passar o campo do código do modus operandi no rs1, alem de uns dois pequenos detalhes. Veja se assim funciona:

Código:

    Dim rs1 As Recordset
    Dim rs2 As Recordset
   
    Me.Lista128.RowSource = ""
    Me.Lista128.RowSourceType = "Value List"
   
    Set rs1 = CurrentDb.OpenRecordset("SELECT Cod_Crime, Cod_ModusOperandi FROM Tab_Crime WHERE Cod_Pessoa LIKE '" & Me.Cod_Pessoa & "'")
     
    Do While Not rs1.EOF
   
        Set rs2 = CurrentDb.OpenRecordset("SELECT Nom_ModusOperandi FROM Tab_ModusOperandi WHERE Cod_ModusOperandi LIKE  " & rs1!Cod_ModusOperandi & "")
       
        Me.Lista128.AddItem rs1!Cod_Crime & ";" & rs2!Nom_ModusOperandi
       
        rs2.Close
        rs1.MoveNext
    Loop
   
    rs1.Close
   
    Set rs1 = Nothing
    Set rs2 = Nothing

Analisando melhor, precisa do Cod_Crime na listbox? Não seria suficiente apenas a descrição do mesmo ou no lugar do Cod_Crime colocar o Cod_ModusOperandi?

Realmente o cod_crime não e necessário. Basta apenas o nom_modusoperandi.

No select do rs1 retirei o cod_crime e retirei também do AddItem o rs1, e aí só aparece na lisbox o nom_modusoperandi.

Beleza, só que está funcionando apenas do exemplo que te mandei, no sistema completo continua dando a mesma mensagem de erro. Compilei o sistema todo, não está dando erro em canto nenhum, e a mensagem de erro: tipos incompatíveis na rs1. e agora?

Se não for incomodar muito, gostaria de te mandar o banco completo. Só que pelo seu perfil no fórum, não tem como saber seu e-mail e apesar de poder enviar o e-mail não tem a opção de anexar arquivos. Se poder me mandar um e-mail para walter@walterflorencio.com.br eu te retorno começo banco anexado. Obrigado.

Você já fez uma análise minuciosa entre a sintaxe de um e de outro? Se não conseguir, te mandei uma mensagem privada. Veja lá.

Desculpe a demora criquio. Enviei o arquivo e as senhas.

Caro criquio. Obrigado pela sua atenção. Com relação ao problema, fiz o seguinte: criei um novo bd e copiei todo o conteúdo do banco com problema e simplesmente o problema deixou de ocorrer. O que houve, não faço a mínima ideia. O novo banco ficou 50% menor do que o antigo e rodou normalmente. Darei o tópico por encerrado. Obrigado pela atenção.

Certamente o banco tinha alguma coisa corrompida. Talvez alguma tabela de sistema ou algo assim. A diminuição no tamanho é porque deve ter sido feita uma compactação/reparação. Mas se resolveu então ficou tudo certo, hehehe.

Se você quiser pode complementar o código do evento "No atual" do subformulário aonde está as checkboxes com a lista de crimes para colorir os rótulos das checkboxes cujos crimes já estiverem sido gravados, mas ou menos assim:

Código:

    Dim rs1 As Recordset
    Dim rs2 As Recordset
    Dim N As Integer

    For N = 1 To 20
        Me("sel" & N).Controls.Item(0).BackStyle = 0
    Next

    Me.Lista128.RowSource = ""
    Me.Lista128.RowSourceType = "Value List"

    Set rs1 = CurrentDb.OpenRecordset("SELECT DISTINCT Cod_ModusOperandi FROM Tab_Crime WHERE Cod_Pessoa LIKE '" & Me.Cod_Pessoa & "'")

    Do While Not rs1.EOF

        Set rs2 = CurrentDb.OpenRecordset("SELECT Nom_ModusOperandi FROM Tab_ModusOperandi WHERE Cod_ModusOperandi LIKE  " & rs1!Cod_ModusOperandi & "")

        Me.Lista128.AddItem rs1!Cod_ModusOperandi & ";" & rs2!Nom_ModusOperandi

        rs2.Close
        rs1.MoveNext
    Loop

    For N = 0 To Me.Lista128.ListCount - 1
        Me("sel" & Me.Lista128.Column(0, N)).Controls.Item(0).BackStyle = 1
        Me("sel" & Me.Lista128.Column(0, N)).Controls.Item(0).BackColor = vbRed
    Next

    rs1.Close

    Set rs1 = Nothing
    Set rs2 = Nothing

É só uma dica mesmo.

Até.

Valeu, muito obrigado.