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]Outra maneira de pesquisar dando problema

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 703
    Registrado : 23/01/2018

    [Resolvido]Outra maneira de pesquisar dando problema Empty [Resolvido]Outra maneira de pesquisar dando problema

    Mensagem  crysostomo em 1/3/2019, 03:01

    Pivate Sub cbo_Click()
      Me.RecordsetClone.FindFirst "[CodSec] = '" & Me![cbo] & "'"
     
    Me.Bookmark = Me.RecordsetClone.Bookmark

    depois do recordsetlone. o método Bookmark não aparece
    qual é o problea que essa linha está me dando não consigo enxergar , pode me explicar?
      Me.cbo = Null
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 386
    Registrado : 05/12/2016

    [Resolvido]Outra maneira de pesquisar dando problema Empty Re: [Resolvido]Outra maneira de pesquisar dando problema

    Mensagem  caiosouza em 1/3/2019, 13:34

    Bom dia!

    Tente trocar o Me![Cbo] pra Me.Cbo

    O Me! é usado para setar um controle da fonte do formulário, o Me. é para setar um controle do formulário.
    O "[CodSec]" é mesmo texto?, se não deve alterar as as aspas para "[CodSec]=" & Me.cbo & ""

    Código:

    Pivate Sub cbo_Click()
      Me.RecordsetClone.FindFirst "[CodSec]='" & Me.cbo & "'"
      Me.Bookmark = Me.RecordsetClone.Bookmark
      Me.cbo = VbNullString
    End Sub


    .................................................................................
    A persistência leva ao sucesso!
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 703
    Registrado : 23/01/2018

    [Resolvido]Outra maneira de pesquisar dando problema Empty Re: [Resolvido]Outra maneira de pesquisar dando problema

    Mensagem  crysostomo em 1/3/2019, 13:51

    os campo são tudo tetxo
    ele me retorna a mesma mensagem , "operação anterior você cancelou" depois mansada outra mensagem , " não reconhece secretaria1 como campo de expressão valida"


    CodSec     Código    CodSetor DescSetor     DescSec
    secretaria1    1          setor1            a            teste1
    secretaria2    2          setor2            b            teste2
    secretaria3    3          setor3            c            teste3
    secretaria4    4          setor4            d            teste4
    secretaria5    5          setor5            e            teste5

    Código:
    Private Sub cbo_Click()
      
      Me.RecordsetClone.FindFirst "[CodSec]=" & Me.cbo & ""
      Me.Bookmark = Me.RecordsetClone.Bookmark
      Me.cbo = vbNullString
    End Sub

    Código:
    Me.RecordsetClone.FindFirst "[CodSec] = '" & Me![cbo] & "'"
     
        Me.Bookmark = Me.RecordsetClone.Bookmark
       
        Me.CodSec.SetFocus

    aonde eu estou errando?


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 386
    Registrado : 05/12/2016

    [Resolvido]Outra maneira de pesquisar dando problema Empty Re: [Resolvido]Outra maneira de pesquisar dando problema

    Mensagem  caiosouza em 1/3/2019, 16:49

    Boa tarde,

    Posta parte da base de dados para analisarmos...


    .................................................................................
    A persistência leva ao sucesso!
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 703
    Registrado : 23/01/2018

    [Resolvido]Outra maneira de pesquisar dando problema Empty Re: [Resolvido]Outra maneira de pesquisar dando problema

    Mensagem  crysostomo em 1/3/2019, 20:41

    está ai
    Anexos
    [Resolvido]Outra maneira de pesquisar dando problema AttachmentPESQUISA.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (86 Kb) Baixado 10 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 703
    Registrado : 23/01/2018

    [Resolvido]Outra maneira de pesquisar dando problema Empty Re: [Resolvido]Outra maneira de pesquisar dando problema

    Mensagem  crysostomo em 21/3/2019, 11:33

    De um jeito ele funciona uma hora ele para , mas vou deixando com9 resolvido pois o código está certo , obrigado aí amigo, eu não sabia a diferença do "." é do "!"


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou

    Conteúdo patrocinado

    [Resolvido]Outra maneira de pesquisar dando problema Empty Re: [Resolvido]Outra maneira de pesquisar dando problema

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/5/2019, 20:45