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]Ajuda com Caixa Listagem e cadastro

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    [Resolvido]Ajuda com Caixa Listagem e cadastro

    Mensagem  Mylton em Qua 27 Jul 2016, 18:06

    Boa tarde
    No exemplo existe um form de nome exame físico que possui alguns botões, caixa de texto e uma listbox não acoplada.
    A lista não acoplada busca seus dados numa consulta baseada na tabela processo.
    O objetivo é quando clicarmos no nome contido na caixa, esta mostrará automaticamente o nome escolhido e o número do processo nas suas respectivas caixas de texto ao lado.
    Usei o seguinte código:

    Private Sub Form_Current()
    ' This statement synchronises the Go To record combo box with the form
       Me.Lista1.Value = Me.IdProcesso.Value
    End Sub


    Private Sub Lista1_AfterUpdate()
       On Error Resume Next
       Dim rst As Object
       Set rst = Me.RecordsetClone
       rst.FindFirst "[IdProcesso]=" & Me.Lista1.Value
       Me.Bookmark = rst.Bookmark
    End Sub

    Private Sub Lista1_LostFocus()
       DoCmd.RunCommand acCmdSaveRecord
       DoCmd.Requery "Lista1"
    End Sub


    A lista mostra os nomes, contudo quando clicamos não mostra.

    Outra dúvida é que precisava seria quanto ao relacionamento, acredito que esteja dificultando o cadastro das informações quando navego pelos forms.
    não consigo cadastrar os dados.
    Obrigado.
    Abs.
    Anexos
    Exame.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.3 Mb) Baixado 18 vez(es)

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Ajuda com Caixa Listagem e cadastro

    Mensagem  formiga10x em Qua 27 Jul 2016, 20:26

    Bom como não trabalho e nem sei trabalhar com campos acoplados / assistentes. Senão fosse acoplado as textbox que receberiam os valores ficaria desta forma no evento ao clicar da lista.

    Código:
     Me.IdProcesso = Me.Lista1.Column(0)
        Me.Nome = Me.Lista1.Column(1)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2328
    Registrado : 14/08/2013

    Re: [Resolvido]Ajuda com Caixa Listagem e cadastro

    Mensagem  FabioPaes em Qua 27 Jul 2016, 20:31

    Mesmo o Campo sendo Acoplado o comando pelo VBA permanece o mesmo amigo...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Ajuda com Caixa Listagem e cadastro

    Mensagem  formiga10x em Qua 27 Jul 2016, 23:30

    Nunca consegui lançar dados num campo acoplado tipo o caso ai.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2328
    Registrado : 14/08/2013

    Re: [Resolvido]Ajuda com Caixa Listagem e cadastro

    Mensagem  FabioPaes em Qua 27 Jul 2016, 23:48

    Opa amigo... Veja o Exemplo ...

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Ajuda com Caixa Listagem e cadastro

    Mensagem  Mylton em Qui 28 Jul 2016, 11:53

    Bom dia.
    Saindo do plantão e emendando com outro local.
    A tardinha baixo e testo.
    Obrigado.

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Ajuda com Caixa Listagem e cadastro

    Mensagem  Mylton em Qui 04 Ago 2016, 22:01

    Obrigado Fábio e Formiga 10x.
    Caixa resolvida.
    Quanto ao relacionamento para os cadastros, alguma dica?

      Data/hora atual: Sex 09 Dez 2016, 09:36