[Resolvido]ListBox desvinculado 2 colunas

Boa Tarde!

Estou tentando implementar o exemplo do JPaulo em meu projeto
http://maximoaccess.forumeiros.com/t5801-jornada-em-desvinculos-carregamento-de-listbox


Mas no exemplo dele a propriedade Me.LstBox_Eventos.ColumnCount esta = 1 no meu caso preciso de duas colunas e setei a mesma = 2 os registro vem certo mas estao todos na mesma coluna.

Como faco para cada campo fique em uma coluna ?


Estou fazendo da seguinte forma ...

Código:

  Dim strSelect As String
Dim i As Integer
Dim rst As DAO.Recordset

strSelect = "SELECT Tbl_Manutencao_Acompanhamento.Aco_Dt_Inicio, Tbl_Manutencao_Acompanhamento.Eve_Nome" _
& " FROM Tbl_Manutencao_Acompanhamento Where Tbl_Manutencao_Acompanhamento.Man_ID = " & Man_ID_Relatorio & ";"

Me.LstBox_Eventos.RowSourceType = "Value List"
Me.LstBox_Eventos.RowSource = ""
Me.LstBox_Eventos.ColumnCount = 2
Me.LstBox_Eventos.BoundColumn = 1
Me.LstBox_Eventos.ColumnWidths = "1.0;2.0"
Set rst = CurrentDb.OpenRecordset(strSelect, dbOpenSnapshot)
rst.MoveFirst
i = 0
With rst
    With Me.LstBox_Eventos
        Do
            .AddItem rst!Aco_Dt_Inicio
            .AddItem rst!Eve_Nome
            rst.MoveNext
           
        Loop Until rst.EOF
    End With
End With
Me.LstBox_Eventos.Requery

Boas rafael porque nao utiliza uma listBox do tipo Tabela/Consulta... E bem mais pratico do que Lista de Valores...

Dim strSelect As String
Dim i As Integer
Dim rst As DAO.Recordset

strSelect = "SELECT Tbl_Manutencao_Acompanhamento.Aco_Dt_Inicio, Tbl_Manutencao_Acompanhamento.Eve_Nome" _
& " FROM Tbl_Manutencao_Acompanhamento Where Tbl_Manutencao_Acompanhamento.Man_ID = " & Man_ID_Relatorio & ";"

Me.SuaLista.RowSource = StrSQL
Me.SuaLista.ColumnCount = 2
Me.SuaLista.ColumnWidths = "0cm; 10cm"


Cumprimentos.

Obrigado Piloto!

Problema Resolvido !

Valeus.... Logo logo que te ver por aqui dando pequenas ajudas.... Isso certamente irá aumentar vosso aprendizado.

Sucesso!

Com certeza Piloto!
Sempre olho as novas duvidas postadas dos colegas mas nem sempre tenho esse conhecimento para responder.

Mas quero sim poder ajudar o Fórum solucionado duvidas também e estou estudando pra isso!

Cumprimentos!

O Fórum agradece o Retorno.

Desculpe em reabrir esse topico,

Mas o exemplo passado pelo colega piloto funcionou com frontend que ten tabelas vinculas quanto tento fazer com frontend e backend que nao tem tabelas vinculadas nao aparece os item no listbox

Dim strSelect As String
Public Banco As Database
Public Caminho As String

Caminho = "H:Caminnho_do_Banco"

Set Banco = DBEngine.Workspaces(0).OpenDatabase(Caminho & "\MeuBanco.accdb", False, False, "Ms Access;PWD=**")

strSelect = "SELECT ...."

Me.SuaLista.RowSource = StrSQL
Me.SuaLista.ColumnCount = 2
Me.SuaLista.ColumnWidths = "2cm; 10cm"


Alguem poderia me dizer o que esta ?

'---------------------------------------------------------------------------------------
' Procedure : CarregaComboLocal
' Author : Harysohn P. Pina (PILOTO) - Harysohn@hotmail.com
' Fórum : Fórum Máximo Access - http://maximoaccess.forumeiros.com/
' Date : 18/1/2013
' Comentários : Carrega as combos do formulário
'---------------------------------------------------------------------------------------
Private Sub CarregaComboLocal()
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
On Error GoTo TrataErro
Dim NomeProcedimento As String
NomeProcedimento = "CarregaComboLocal"
'Adiciona o nome do procedimento à função
PegaProcedimento (NomeProcedimento)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Parametros_de_Inicializacao "SysApac.par"
Dim StrCboAla, StrCboCela, strCboEstado, strCboMunicipio, strCboUnidadeReq As String
Dim Db As DAO.Database
Dim Ws As DAO.Workspace
Dim RsAla As DAO.Recordset
Dim RsCela As DAO.Recordset
Dim RsUnReq As DAO.Recordset
Dim RsEstado As DAO.Recordset
Dim RsMun As DAO.Recordset
Dim RsCrime As DAO.Recordset
Dim RsDetento As DAO.Recordset
Dim VarReg As String
Dim VarUnidade As String

VarReg = RegimeAtual
VarUnidade = UnidadeOrigem

Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(DirBancoDados & "\SysApac_Be.Accdb", False, False, "MS Access;PWD=senha")


'ComBox CboDetento
StrCboDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] FROM Detentos" _
& " WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "'" _
& "Order By Nome, Sobrenome ASC;"

Set Me.CboDetento.Recordset = Db.OpenRecordset(StrCboDetento)
Me![CboDetento].ColumnCount = 2
Me![CboDetento].ColumnWidths = "0cm; 10cm"

'ComBox CboCrime
StrCboCrime = "SELECT Crimes.Crimes FROM Crimes" _
& " Order By Crimes ASC;"
Set Me.cboCrime.Recordset = Db.OpenRecordset(StrCboCrime)
Me![cboCrime].ColumnCount = 1
Me![cboCrime].ColumnWidths = "9cm"

'ComBox CboAla
StrCboAla = "SELECT Ala FROM Ala"
Set RsAla = Db.OpenRecordset(StrCboAla)
Set CboAla.Recordset = RsAla
Me![CboAla].ColumnCount = 1
Me![CboAla].ColumnWidths = "2cm"

'ComBox CboCela
StrCboCela = "SELECT Cela FROM Cela"
Set RsCela = Db.OpenRecordset(StrCboCela)
Set CboCela.Recordset = RsCela
Me![CboCela].ColumnCount = 1
Me![CboCela].ColumnWidths = "2cm"

'ComBox CboUnidadeReq
strCboUnidadeReq = "SELECT Municipio FROM UnidadeRequisitante"
Set RsUnReq = Db.OpenRecordset(strCboUnidadeReq)
Set cboUnidadeReq.Recordset = RsUnReq
Me![cboUnidadeReq].ColumnCount = 1
Me![cboUnidadeReq].ColumnWidths = "5,776cm"

'ComBox CboEstado
strCboEstado = "SELECT tblMun.Estado FROM tblMun GROUP BY tblMun.Estado"
Set RsEstado = Db.OpenRecordset(strCboEstado)
Set cboEstado.Recordset = RsEstado
Me![cboEstado].ColumnCount = 1
Me![cboEstado].ColumnWidths = "5,776cm"

'ComBox CboMunicipio
strCboCidade = "SELECT tblMun.Municipio From tblMun GROUP BY tblMun.Municipio, tblMun.Estado HAVING (((tblMun.Estado) = [Forms]![FrmCadDetento]![cboEstado]))WITH OWNERACCESS OPTION"
Set RsMun = Db.OpenRecordset(strCboMunicipio)
Set cboCidade.Recordset = RsMun
Me![cboCidade].ColumnCount = 2
Me![cboCidade].ColumnWidths = "7,6cm, 0cm"

'Encerra a conexão
' Db.Close
' Set Db = Nothing
Exit Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
DoCmd.Hourglass False
DoCmd.Echo True
Exit Sub
TrataErro:
Select Case err.Number
Case 0
'Não é um erro
Case Else
DoCmd.Hourglass False
DoCmd.Echo True
'Chama a função global de tratamento de erros
GlobalErrHandler (Me.Name)
End Select

End Sub


Ta ai... extraia o necessário.

Cumprimentos.

Obrigado mais uma vez Piloto!

Estou tentando adaptar o ao meu codigo da seguinte maneira

Private Sub Form_Load()
Dim Db As DAO.Database
Dim Ws As DAO.Workspace
Dim RsHrx As DAO.Recordset
Dim strSelect As String

Caminho = "H:\Caminho_Banco"
Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(Caminho & "\Banco.accdb", False, False, "Ms Access;PWD=senha")


strSelect = "Select * From Tbl_Hora_Extra"

Me!LstBox_HrsConsolidado.Recordset = Db.OpenRecordset(strSelect)
Me!LstBox_HrsConsolidado.ColumnCount = 2
Me!LstBox_HrsConsolidado.ColumnWidths = "2cm; 10cm"
End Sub


e na linha ...
Me!LstBox_HrsConsolidado.Recordset = Db.OpenRecordset(strSelect)

O Objeto nao aceita essa propriedade.

Obrigado !

Tem certeza que leu direitinho o Código?


Errado
Me!LstBox_HrsConsolidado.Recordset = Db.OpenRecordset(strSelect)

Está carregando a combo com um recordset.. então tem que usar a propriedade SET

Set Me!LstBox_HrsConsolidado.Recordset = Db.OpenRecordset(strSelect)

Obrigado Piloto Mais uma Vez !

Funcionou perfeitamente.

Desculpe se tirei a paciencia mas ainda nao tenho tanta experiencia na sintaxe


Obrigado a todos !

Não me estressei.. rsrss... Apenas adverti... Relaxa...

O Fórum agradece o Retorno.