Abrir registro em formulário contínuo selecionado em listbox

Pessoal,

Estou tentando isso e não funfa...

Private Sub Lista68_DblClick(Cancel As Integer)

DoCmd.OpenForm "COND_FRM", , , "CodigoCOND_TBL= '" & Me.Lista68 & "'"

End Sub

Aparece a seguinte mensagem:

Erro em tempo de execução '2501':
A ação OpenForm foi cancelada.

thanks

Leandro

Leandro, você terá de invocar a coluna onde está o registro para a filtragem;

DoCmd.OpenForm "COND_FRM", , , "CodigoCOND_TBL= '" & Me.Lista68.Column(1) & "'"

JPaulo,

está ocorrendo o mesmo erro. A listbox precisa estar acoplada?

Leandro

Não necessariamente;

teste assim;

DoCmd.OpenForm "COND_FRM", , , "CodigoCOND_TBL = '" & Me.Lista68.Column(1) & "'", , acDialog

Veja se o campo é texto ou numerico e o numero correto da coluna onde está o registro, a listbox começa sempre pela coluna zero (0).

JPaulo,

continua na mesma:

DoCmd.OpenForm "COND_FRM", , , "CodigoCOND_TBL= '" & Me.Lista68.Column(0) & "'", , acDialog

o campo é de autonumeração e a listbox mostra os dados de uma consulta...

Leandro

Então vamos por partes, para você entender e aprender;

1º Campos numericos não levam aspas simples.

2º O nome do campo no formulario, tem de ser o correto.


DoCmd.OpenForm "COND_FRM", , , "NomeDoCampoAutoNumeracaoNoFormulario = " & Me.Lista68.Column(0) & "", , acDialog

Ou, como não sei se a listbox está direta à consulta, ou está por SQL, pode tentar tambem assim;

DoCmd.OpenForm "COND_FRM", , , "NomeDoCampoAutoNumeracaoNoFormulario = " & Me.Lista68.Value & "", , acDialog

Resolveu ?