[Resolvido]Achar o valor de uma caixa de listagem...

Colegas, este procedimento não funciona porque não consigo nesta linha
If CodReceita2.Value = [Forms]![FrmRifasAA]![Lista15] Then
fazer com que o valor da lista15 a ser considerado seja o oriundo do CodReceita, que aliás esta em sua Origem da Linha: SELECT [Plano de Receitas].CodReceita, [Plano de Receitas].Receita FROM [Plano de Receitas] WHERE ((([Plano de Receitas].CodReceita)=5 Or ([Plano de Receitas].CodReceita)=9));
Ou seja, no subformulário o Codreceita2.Value é igual a 5 ou 9, mas o lista 15 retorna o contido no campo Receita e quero que seja o contido no CodReceita para que a condição IF seja ativada.

Private Sub N_Saida1_AfterUpdate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim parametro As String
Dim dt As Date
dt = Date

parametro = Me.N_Saida1

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM movimentacao WHERE n_saida1=" & parametro)

If rs.RecordCount > 0 Then
If Year(dt) = Year(Data) Then
If CodReceita2.Value = [Forms]![FrmRifasAA]![Lista15] Then
MsgBox "Este código já existe!", vbExclamation, "Atenção"
Me.N_Saida1 = ""
End If
End If
End If
rs.Close
db.Close
End Sub

Agradeço desde já!!

Se for uma listBox.. esta tem colunas entao deves especificar em que coluna o valor esta.

f CodReceita2.Value = Forms!FrmRifasAA!Lista15.Column(x) Then

onde x é o numero da coluna, lembrando que a primeira é a de numero 0

Porem deves atentar se o valor nao muda a cada linha... pois cada linha é um registro.


Cumprimentos.

Tive que determinar a coluna do CODReceita2 também!
Show de bola!
Valeu!

O Fórum agradece o Retorno!

Eu que agradeço!