MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3535
    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.]
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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: Qua 26 Jul 2017, 09:47