MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Atualizar váras Check Box de uma consulta com a marcação do objeto Opção

    avatar
    fernandovertelo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 19/04/2020

    Atualizar váras Check Box de uma consulta com a marcação do objeto Opção Empty Atualizar váras Check Box de uma consulta com a marcação do objeto Opção

    Mensagem  fernandovertelo em 3/5/2020, 14:58

    Prezados, bom dia!

    Vasculhei o forum e não encontrei algo parecido, achei um tópico somente que nao tinha mais os anexos da dúvida similar!

    Senhores, estou montando um projeto de RH Treinamentos dentro do access. Estou com uma dúvida pontual, eu gerei uma consulta em que o usuário tem a opção de escolher os colaboradores por um campo "Convocado" que contem uma Check Box SIM/NÃO; está funcional. No entanto, queria otimizar para o usuário para que ele selecione um objeto Opção e este atualize apenas os valores demonstrados na consulta!

    Segue o link de imagem do exemplo:

    angloamerican.box.com/s/1ylqyqgz4zdfkxgga156rzshxv51k4u6

    Desde já agradeço aos senhores!
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 189
    Registrado : 26/11/2013

    Atualizar váras Check Box de uma consulta com a marcação do objeto Opção Empty Re: Atualizar váras Check Box de uma consulta com a marcação do objeto Opção

    Mensagem  delsonk em 3/5/2020, 22:29

    Boa noite!
    Veja se o código abaixo, que uso num formulário, e aciono com um botão, te ajuda preencher os check box:
    Código:
    Public Sub Comando48_Click()
    'Caixa de mensagem
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "Este procedimento marcar? todos os registros visiveis como lancar? diploma impresso. Deseja realmente continuar?"
    Style = vbOKCancel + vbExclamation + vbDefaultButton1
    Title = "Marcar diplomas impressos!"
    Help = "DEMO.HLP"
    Ctxt = 1000
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("Tbl_expedicao")
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)


    If Response = vbOK Then    ' O usuario escolheu OK.
            MyString = "Ok"    ' A resposta foi OK.
         DoCmd.Hourglass -1
           Me.Filter = "tbl_Expedicao.Diploma_impresso=False and tbl_Expedicao.OM<>''and tbl_Expedicao.Estoque=True" 'seleciona o filtro se o campo diploma impresso for falso, OM nao estiver em branco e estoque verdadeiro
           Me.FilterOn = True 'aplica o filtro
           If Not IsNull(DCount("Diploma_impresso", "tbl_expedicao")) And Diploma_impresso = False Then
              DoCmd.GoToControl "Diploma_impresso" 'desloca para o controle Diploma_impresso
              rst.MoveFirst ' desloca para o proximo registro
               Do
                  If Me.Diploma_impresso = False Then 'se o campo Diploma impresso for falso
                     Me.Diploma_impresso = True 'marca diploma impresso
                               Recordset.MoveNext 'move para o proximo registro
                  End If
                     Loop Until Recordset.EOF ' executa ate o final dos registros
           End If
                  Exit Sub
    Else
        DoCmd.Hourglass 0
       'Usou a opcao Cancelar.
        MyString = "Cancel"    ' Executa o cancelamento.
    End If
    End Sub


    Abraço, Delson
    avatar
    fernandovertelo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 19/04/2020

    Atualizar váras Check Box de uma consulta com a marcação do objeto Opção Empty Re: Atualizar váras Check Box de uma consulta com a marcação do objeto Opção

    Mensagem  fernandovertelo em 3/5/2020, 22:33

    Irmão, vou testar aqui e jaja te aviso!

    Mas de antemão deixo o meu muito obrigado por oferecer ajuda.
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 189
    Registrado : 26/11/2013

    Atualizar váras Check Box de uma consulta com a marcação do objeto Opção Empty Re: Atualizar váras Check Box de uma consulta com a marcação do objeto Opção

    Mensagem  delsonk em 9/5/2020, 00:03

    Boa noite!

    Algum avanço no projeto?

      Data/hora atual: 24/10/2020, 13:08