MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Coluna dando valor diferente.

    Compartilhe

    igornovais
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 20/10/2014

    [Resolvido]Coluna dando valor diferente.

    Mensagem  igornovais em Seg 16 Mar 2015, 18:07

    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+


    Última edição por igornovais em Qua 18 Mar 2015, 02:03, editado 2 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Coluna dando valor diferente.

    Mensagem  Silvio em Seg 16 Mar 2015, 22:43

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    Registrado : 29/06/2012

    Re: [Resolvido]Coluna dando valor diferente.

    Mensagem  Noobezinho em Ter 17 Mar 2015, 02:37

    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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    igornovais
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 20/10/2014

    Re: [Resolvido]Coluna dando valor diferente.

    Mensagem  igornovais em Qua 18 Mar 2015, 02:01

    Very Happy 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 rabbit

    Obrigado mesmo!

      Data/hora atual: Sab 03 Dez 2016, 02:22