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

    [Resolvido]Preenchimento automático de flag

    avatar
    Bruno Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 07/03/2016

    [Resolvido]Preenchimento automático de flag Empty [Resolvido]Preenchimento automático de flag

    Mensagem  Bruno Alves 28/12/2016, 03:01

    Amigos, tenho um bd que controlo meu desempenho da faculdade.
    Minha dúvida:
    Tenho um calculo que escreve se estou aprovado ou não em um campo e na frente tem uma caixa com um flag que uso para fazer uma busca simples de matérias cursadas ou não, desejo que esse campo seja preenchido automaticamente após o campo aprovado for preenchido, assim não preciso ficar fazendo esse preenchimento manualmente...

    Att.
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  caiosouza 28/12/2016, 13:55

    Favor, explique melhor ou nos mande um ScreenShot


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    Bruno Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 07/03/2016

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  Bruno Alves 28/12/2016, 14:32

    Amigo.

    É simples:

    em um campo aparece a palavra Aprovado, quero que no seguinte o flag seja marcado automaticamente, conforme a figura abaixo.
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  caiosouza 28/12/2016, 15:35

    Tente:

    No evento após atualizar do CampoStatus:

    Código:
    If Me.CampoStatus1 = "Aprovado" then
    Me.Flag1 = true
    Else
    Me.flag1 = false
    End if

    Adapte de acordo com sua necessidade!


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    Bruno Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 07/03/2016

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  Bruno Alves 28/12/2016, 16:41

    Não deu certo.
    No meu bd ficou assim:

    Private Sub Faltas_AfterUpdate()
    If Me.Faltas = "APROVADO" Then
    Me.concluido = True
    Else
    Me.concluido = False
    End If
    End Sub

    A palavra APROVADO vem da seguinte fonte de controle: =SeImed([MFinal]<=0;" ";SeImed([MFinal]>=6;"APROVADO";"REPROVADO"))
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  caiosouza 28/12/2016, 16:45

    ó código é pra rodar...

    Tenta coloca-lo no evento Antes de Atualizar


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    Bruno Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 07/03/2016

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  Bruno Alves 28/12/2016, 16:48

    Coloquei antes de atualizar, depois de atualizar, ao alterar mas não resolveu, mudei os nomes conforme vc escreveu, tbm não deu...
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  caiosouza 28/12/2016, 16:50

    Caso não consiga, crie um botão e no evento ao clicar, coloque:

    Código:
    Private Sub Btn_atualizar_Click()
    If Me.Faltas = "APROVADO" Then
    Me.concluido = True
    Else
    Me.concluido = False
    End If
    End Sub


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    Bruno Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 07/03/2016

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  Bruno Alves 28/12/2016, 16:57

    Assim deu, mas o que eu queria mesmo era na atualização do APROVADO, assim o processo fica automático.
    De qualquer forma, obrigado.
    Vou fazer mais uns testes.
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  caiosouza 28/12/2016, 17:03

    O status é atualizado como? ao abrir o formulário? por um botão? ao clicar no campo?


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    Bruno Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 07/03/2016

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  Bruno Alves 28/12/2016, 17:08

    Preencho Nota AV1, AV2 e EXAME (MF) que atualiza o MFinal (MFinal: SeImed([Av1]<4;([Av2]+[MF])/2;SeImed([Av2]<4;([Av1]+[MF])/2;([Av1]+[Av2])/2))
    Do MFinal ele joga no campo Faltas a palavra APROVADO (=SeImed([MFinal]<=0;" ";SeImed([MFinal]>=6;"APROVADO";"REPROVADO"))
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  caiosouza 28/12/2016, 17:25

    Na fonte de controle da sua flag, coloque:

    =SeImed([Faltas]="APROVADO";Verdadeiro;Falso)


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    Bruno Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 07/03/2016

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  Bruno Alves 28/12/2016, 17:47

    Funcionou, fiz algumas alterações na minha consulta que estavam erradas e coloquei o seu código.

    Showwwwww.

    Muito obrigado....
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  caiosouza 28/12/2016, 17:49

    Opa, precisando estamos por ai..

    O fórum agradece


    .................................................................................
    Caio Souza

    Engenheiro de Software

    Conteúdo patrocinado


    [Resolvido]Preenchimento automático de flag Empty Re: [Resolvido]Preenchimento automático de flag

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 06:37