[Resolvido]Coluna dando valor diferente.

Olá pessoal,

Estou com um probleminha e não consigo enxergar onde esta o erro.
Eu tenho um formulário que tem uma listbox exibindo alguns registros, sendo que a primeira coluna corresponde ao id deste registro.

Eu gostaria que ao selecionar o registro e clicar duas vezes, abrisse o registro correspondente.

Dessa forma fiz o seguinte código:

Código:

Private Sub lista_DblClick(Cancel As Integer)
    If Not Trim(Me.lista & "") = vbNullString Then
        DoCmd.SetWarnings False
        DoCmd.GoToRecord acDataForm, "for_inventario", acGoTo, Me!lista.Column(0)
        DoCmd.SetWarnings True
    End If
End Sub

Porém, quando clico duas vezes no registro selecionado aparece o erro 2105! Quando eu vejo o resultado que estão nas variáveis os valores estão diferente do selecionado. Exemplo:

Eu selecionei o registro com o ID=10. Quando vejo o valor de Me!lista.column(0) está 4!

Desde já agradeço a atenção.
T+

Boa noite....

Se é para ir ao registro especifico, que está em uma listbox :


Private Sub LstCaixa_Click()
Dim intrecord As Integer
intrecord = Me!sualistbox.Column(0) ' coluna zero, sua chave primária
Forms!nomeseuformulario.SetFocus
DoCmd.GoToControl "chaveprimaria" ' substitua pela sua chave primária
DoCmd.FindRecord intrecord
DoCmd.Close acForm, "formulario onde esta a lstbox"
End Sub


em vermelho, expressões que terão que serem substituídas.

Olá Igor

Tudo bem ?

Entendi  pelo código que se trata  de encontrar o registro no mesmo formulário e esse formulário está vinculado a uma tabela.

Então, ao invés de usar DoCmd.GoToRecord, utilize o FindRecord.


Aqui está um exemplo:
*EscolherCliente é o nome da combobox

Private Sub EscolherClientes_AfterUpdate()
With CodeContextObject
       ' Anexada à propriedade DepoisDeAtualizar da combo de Escolher Clientes do formulário Consulta de Clientes.
       ' Vai para o controle Nome do Cliente.
       DoCmd.GoToControl "CódCliente"
       ' Encontra o registro com o mesmo nome de Cliente que o do controle Lista de Escolher Clientes.
       DoCmd.FindRecord .[EscolherClientes], acEntire, False, acDown, False, , True
End With
End Sub

Abraços

Noob

Muito obrigado pessoal, testei e ambos funcionaram.

Utilizei a do noobzinho por ser menor.

Agora vou dar uma estudada pra saber porquê utilizar o DoCmd.FindRecord e não o DoCmd.GotoRecord

Obrigado mesmo!