[Resolvido]Como obter o valor de uma coluna da caixa de combinação...

Caros colegas, o VBA não aceita o Rs!CodConta2.Column(1).Value . Se coloco apenas Rs!CodConta2 aparece o numero da coluna(0) ao invés do texto que existe na coluna (1).
O que devo fazer, por favor?

Private Sub N_Recibo_BeforeUpdate(Cancel As Integer)
Dim dbbanco As Database
Dim Rs As DAO.Recordset


Set dbbanco = CurrentDb()
Set Rs = dbbanco.OpenRecordset("SELECT top 1 * FROM [movimentacao] order by n_recibo desc")

If Me.N_Recibo = Rs!N_Recibo Then
MsgBox "Este recibo já foi lançado : " & Rs!CodConta2.Column(1).Value & vbCrLf & vbCrLf & Rs!Data & vbCrLf & vbCrLf & _
Format(Rs!Valor_entrada, "##,##0.00") & vbCrLf & vbCrLf & Rs!Historico & vbCrLf & vbCrLf & "Reveja, por favor!", vbInformation, "Alerta de desordem"
Cancel = True
End If

End Sub

Agradeço desde já!
At
MPS

Algo está errado, sua caixa de combinação foi preenchida como?
Não entendi mencionar uma coluna de um campo do recordset.

Poste o banco!!!

Substitua o Value por Text
MsgBox "Este recibo já foi lançado : " & Rs!CodConta2.Column(1).text

Ou tente

Rs.Fields("CodConta2").Value

Caros Silvio e Topbr, muito obrigado!
Tentei as duas sugestões, mas não funcionaram!
Topbr, posso postar o banco, mas basicamente:
O campo CodConta2 pertence à tabela Movimentacao e foi criado como um Assistente de Pesquisa de outra tabela chamada Plano de Contas. No SQL deste campo a coluna 0 é o código e a coluna 1 é a descrição da Conta.
Inclusive o que é exibido na tabela para este campo Codconta2 é o conteúdo da coluna 1.

Poste o banco!!!

pelo que entendi o campo CodConta2 na tabela Movimentacao tem dados em combobox de outra tabela.

assim jamais vai conseguir ler as colunas desse campo

no seu código tem de abrir um segundo RecordSet e aplicar o operador Where.

Caro Topbr, segue o BD.
Quando você digitar 8559 no "N.Recibo de Doação" aparecerá uma MsgBox com o número 60 (coluna 0).
O que desejo é que apareça 'Sociocooperador Interno' que é o texto da coluna 1.
Agradeço desde já

é Access 2010? Salve em 2007 por favor!!

Topbr,segue!

Amigo, isso está uma salada, posso arrumar? Mas irei fazer alterações no banco.

Caro Topbr, estou aqui também para aprender!
Fique a vontade!

Para falar a verdade acho que tudo deve ser refeito!! rs

É um lançamento de entrada de doações certo?

Exato!
Onde o Numero do Recibo deve ser mencionado!

Estou meio sem tempo, mas veja se isso resolve, não fiz as alterações que ia fazer, apenas peguei a coluna 2 da combo.

Dim dbbanco, DBANCO2 As Database
Dim Rs, rssoc As DAO.Recordset

Set dbbanco = CurrentDb()
Set Rs = dbbanco.OpenRecordset("SELECT top 1 * FROM [movimentacao] order by n_recibo desc")
varrecibo = Rs!N_Recibo
varrecibo = varrecibo + 1

If Me.N_Recibo = Rs!N_Recibo Then
MsgBox "Este recibo já foi lançado : " & Me.CodReceita2.Column(1) & vbCrLf & vbCrLf & Rs!Data & vbCrLf & vbCrLf & _
Format(Rs!Valor_entrada, "##,##0.00") & vbCrLf & vbCrLf & Rs!Historico & vbCrLf & vbCrLf & "Reveja, por favor!", vbInformation, "Alerta de desordem"
Cancel = True
Exit Sub
End If

Caro Topbr, dá erro!
Diz que o objeto não aceita esta propriedade ou método!

Aqui não deu erro, mas sinceramente, acho que o banco deve ser refeito.

Vou tentar separar um exemplo que tenho aqui para te mandar!!

Caro Topbr, consegui, segui a sugestão do Ricardo!
Obrigado a ambos!
Segue:
Private Sub N_Recibo_BeforeUpdate(Cancel As Integer)
Dim dbbanco, DBANCO2 As Database
Dim Rs, rssoc As DAO.Recordset

Set dbbanco = CurrentDb()
Set Rs = dbbanco.OpenRecordset("SELECT top 1 * FROM [movimentacao] order by n_recibo desc")
TXTCONTA2 = Rs!CodConta2
Set dbbanco2 = CurrentDb()
Set rssoc = dbbanco2.OpenRecordset("SELECT * FROM [plano de contas] WHERE CODCONTAS=" & TXTCONTA2)

varrecibo = Rs!N_Recibo
varrecibo = varrecibo + 1

If Me.N_Recibo = Rs!N_Recibo Then
MsgBox "Este recibo já foi lançado : " & rssoc!Conta & vbCrLf & vbCrLf & Rs!Data & vbCrLf & vbCrLf & _
Format(Rs!Valor_entrada, "##,##0.00") & vbCrLf & vbCrLf & Rs!Historico & vbCrLf & vbCrLf & "Reveja, por favor!", vbInformation, "Alerta de desordem"
Cancel = True
Exit Sub
End If

End Sub

KI BOM!!!!