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


    [Resolvido]Localizar Registro apartir de subformulário

    avatar
    bruno.henryque
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 11/01/2012

    [Resolvido]Localizar Registro apartir de subformulário Empty Localizar Registro apartir de subformulário

    Mensagem  bruno.henryque 23/1/2012, 23:39

    Boa Noite, td bem?
    Tenho usado de uma série de exemplos citados por Harysohn, JPaulo, dentre outros... a respeito do Recordset.Clone
    No entanto, muito provavelmente por falta de afinidade com o access, não tenho conseguido adequá-los a minha situação.

    Tenho um formulário [Animais] com um campo [nome]
    no sub-formulário desacoplado [D0] tenho uma listbox [Lista145]

    O que preciso é que após a seleção de um dos valores na listbox [lista145], este registro seja localizado no form Animais, campo [Nome].

    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "Forms!Animais![Nome] = '" & Me.Lista145 & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    End Sub

    como resultado me volta uma mensagem que o banco de dados não reconhece Forms!Animais![Nome] como um nome de campo ou expressão válida.

    fico grato pela ajuda

    avatar
    Convidad
    Convidado


    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  Convidad 23/1/2012, 23:49


    Olá

    Tente sem os colchetes envolvendo Nome

    rs.FindFirst "Forms!Animais!Nome = '" & Me.Lista145 & "'"
    avatar
    bruno.henryque
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 11/01/2012

    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  bruno.henryque 23/1/2012, 23:51

    Olá norbs,

    continua dando o mesmo erro...
    avatar
    Convidad
    Convidado


    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  Convidad 24/1/2012, 00:10


    Observe que você está ordenando um Recordset em outro formulário,
    então referenciei de acordo:

    Set rs = Forms!Animais.Recordset.Clone
    rs.FindFirst "Forms!Animais!Nome = '" & Me.Lista145 & "'"
    If Not rs.EOF Then Forms!Animais.Bookmark = rs.Bookmark
    Set rs = Nothing

    avatar
    bruno.henryque
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 11/01/2012

    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  bruno.henryque 24/1/2012, 00:19

    norbs,

    o erro persiste...
    não sei se o fato da listbox está em uma CtlGuia interfere sobre este comando.

    tem alguma relação?
    avatar
    Convidad
    Convidado


    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  Convidad 24/1/2012, 00:29


    Alguma coisa está interferindo.
    Tudo depende dos detalhes da aplicação...

    Verifique se a propriedade Nome dos forms e campos bate.
    O campo Nome deve ser alterado para outra denominação, pois Nome é uma palavra reservada do Access, se não me engano.
    E este campo é texto, certo?
    avatar
    bruno.henryque
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 11/01/2012

    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  bruno.henryque 24/1/2012, 00:38

    Correto,

    o campo é texto sim
    no próprio formulário principal eu usei Recordset.Clone referenciando ao campo [Nome] e funcionou direitinho
    o que será?
    avatar
    bruno.henryque
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 11/01/2012

    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  bruno.henryque 24/1/2012, 00:45

    O bd está abaixo caso possa se interessar em ver. Existe vários campo de busca pois esta é uma ferramenta a ser utilizada a campo (curral)
    e nem sempre as informações são precisas a respeito do nome/número do animal

    http://dl.dropbox.com/u/58671663/Compara%C3%A7%C3%A3o%20exame%20pr%C3%A9vio%20D0-2.accdb
    avatar
    Convidad
    Convidado


    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  Convidad 24/1/2012, 01:17


    O tempo anda escasso...

    Mas talvez algum colega possa dar uma olhada.

    Recomendo converter uma cópia para a versão 2003.
    Assim mais gente pode ver.
    avatar
    bruno.henryque
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 11/01/2012

    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  bruno.henryque 24/1/2012, 01:22

    Sem problemas...
    vi que tem ajudado muita gente neste curto espaço de tempo que fiquei online.
    só por isso e ter tentado ajudar-me já sou grato.

    Versão 2003

    http://dl.dropbox.com/u/58671663/Compara%C3%A7%C3%A3o%20exame%20pr%C3%A9vio%20D0-2.mdb
    avatar
    Convidad
    Convidado


    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  Convidad 24/1/2012, 01:34


    Lembre da recomendação de alterar o nome do campo Nome para outro, pois o uso de palavras reservadas do Access pode dar confusão.
    Apesar que só tenho certeza que Name é reservada.

    Dê uma olhada neste tópico:

    http://maximoaccess.forumeiros.com/t198-palavras-reservadas-do-access?highlight=reservadas

    avatar
    bruno.henryque
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 11/01/2012

    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  bruno.henryque 24/1/2012, 01:40

    Vlw pela dica...
    com certeza fará evitar erros futuros
    avatar
    Convidad
    Convidado


    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  Convidad 24/1/2012, 02:24


    Aí vai...

    Private Sub Lista145_Click()
    Dim rs As Object
    Set rs = Forms!Animais.Recordset.Clone
    rs.FindFirst "Nome = '" & Forms!Animais!D0!Lista145 & "'"
    If Not rs.EOF Then Forms!Animais.Bookmark = rs.Bookmark
    Set rs = Nothing
    End Sub

    avatar
    bruno.henryque
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 11/01/2012

    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  bruno.henryque 24/1/2012, 11:25

    norbs,

    Definitivamente, você é o cara!!!!

    Muito obrigado e tudo de melhor
    avatar
    Convidad
    Convidado


    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  Convidad 24/1/2012, 11:38


    Disponha!

    Para considerar o tópico como resolvido, vc deve clicar no botão Resolvido, que está logo acima e a direita do botão Enviar.

    Nesta, eu marco pra vc.

    Conteúdo patrocinado


    [Resolvido]Localizar Registro apartir de subformulário Empty Re: [Resolvido]Localizar Registro apartir de subformulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/5/2024, 09:35