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]Adicionar registros após atualizar combobox

    Compartilhe

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/02/2014

    [Resolvido]Adicionar registros após atualizar combobox

    Mensagem  rafaelbatistadasilva em Ter 22 Nov 2016, 14:16

    Olá Pessoal, como estão?

    antes de postar este tópico procurei aqui no fórum sobre o assunto, no entanto, não encontrei algo que suprisse minha necessidade.

    Tenho um form. formato de folha de dados com uma checkbox e uma combobox com registros (aprovado, reprovado e exame).

    Nesse form conterá cursos que alunos estão realizando.

    Gostaria de selecionar alguns cursos e, após atualizar a combobox, o registro selecionado nesta, passe para as outras combobox que estão com a chebox selecionada.

    exemplo: o aluno Pedro, passou nos cursos 1, 2, 3 e 4. Então eu seleciono a checkbox deste e vou ao curso 1 e altero o status da combobox para "aprovado", altomaticamente os outros cursos serão aletrados o status para aprovado.

    Exemplo anexado.
    Anexos
    bdexemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 19 vez(es)
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: [Resolvido]Adicionar registros após atualizar combobox

    Mensagem  cleverson_manaus em Qui 24 Nov 2016, 16:58

    E se ele não passar em todos?
    Somente em dois?


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/02/2014

    Adicionar registros após atualizar combobox

    Mensagem  rafaelbatistadasilva em Seg 28 Nov 2016, 15:54

    Olá Cleverson, obrigado pela resposta.

    recebi uma ajuda e consegui a solução.

    segue cód:
    Código:

    Private Sub STATUS_AfterUpdate()
    DoCmd.RunCommand acCmdSaveRecord
    If SELECAO Then CurrentDb.Execute "UPDATE [TBLCURSOS] SET STATUS ='" & Me!status & "' WHERE SELECAO = -1"
    If SELECAO Then CurrentDb.Execute "UPDATE [TBLCURSOS] SET selecao = 0 WHERE SELECAO = -1"
    Me.Repaint
    End Sub

    A primeira muda o status do aluno e a segunda limpa (false) a checkbox.

    Grato amigo.
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: [Resolvido]Adicionar registros após atualizar combobox

    Mensagem  cleverson_manaus em Seg 28 Nov 2016, 17:07



    Não há de que, a necessidade faz o sapo pular.


    Cleverson


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/02/2014

    Re: [Resolvido]Adicionar registros após atualizar combobox

    Mensagem  rafaelbatistadasilva em Sex 09 Jun 2017, 01:03

    Resolvido.

      Data/hora atual: Qua 22 Nov 2017, 10:51