MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Acessar registro pelo através do Id no Subform

    avatar
    gustavovon
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 07/10/2012

    Acessar registro pelo através do Id no Subform Empty Acessar registro pelo através do Id no Subform

    Mensagem  gustavovon 5/11/2014, 17:34

    Galera, é o seguinte; tenho um subform(Sfrmpedidos) dentro de um formulário(frmadministrador) com dados de uma tabela (table1). Atualmente, pra entrar em um registro, eu jogo o id em um campo (combinação267) e faço as alterações necessárias nos registros. Oq gostaria de fazer é ao clicar no id no subform, ele ja entrasse no registro para q pudesse altera-lo. Tentei o seguinte:

    Private Sub Texto38_Click()
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = " & Str(Nz(Me![Texto38], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    End Sub

    Mas nao funcionou ... Alguma dica ?
    Silvanio123
    Silvanio123
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 24/08/2011

    Acessar registro pelo através do Id no Subform Empty Re: Acessar registro pelo através do Id no Subform

    Mensagem  Silvanio123 7/11/2014, 16:51

    Boa tarde,

    O erro esta em:

    'Errado
    rs.FindFirst "[ID] = " & Str(Nz(Me![Texto38], 0))

    'Certo ->Coloque o nome da dua listbox [me.SuaListBox]
    rs.FindFirst "[ID] = " & Str(Nz(Me![NomeDaSuaListBox], 0))

    Abraço.

      Data/hora atual: 26/4/2024, 12:57