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

    [Resolvido] Checklist de documentos (sim/nao)

    avatar
    gokusander
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 21/04/2012

    [Resolvido] Checklist de documentos (sim/nao) Empty [Resolvido] Checklist de documentos (sim/nao)

    Mensagem  gokusander 12/8/2020, 18:32

    Boa tarde, gostaria de tirar uma dúvida e ao mesmo tempo pedir uma sugestão para vocês, que são mais experientes no assunto.

    Gostaria de criar um checklist de documentos apresentados para cada registro já realizado.

    Por exemplo: RG, CPF, Comprovante de endereço.

    E posso criar um relatório ou consulta de quais documentos faltam (isso consigo fazer)

    A dúvida é: o que sugerem que poderei fazer? Caixa de Seleção? Tabela com Sim/Não? Não sei se terei que adicioanr na outra tabela...


    Obrigado
    avatar
    caique
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 08/12/2015

    [Resolvido] Checklist de documentos (sim/nao) Empty Checklist

    Mensagem  caique 13/8/2020, 22:11

    Caro GOkusander, crie na própria tabela de documentos as colunas tipo sem/não.

    Ao criar um formularío, o aCCESS vai colocar um checklist para cada campo sim/não.

    Qualquer dúvida, contate-me

    henriquad@gmail.com
    avatar
    gokusander
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 21/04/2012

    [Resolvido] Checklist de documentos (sim/nao) Empty Re: [Resolvido] Checklist de documentos (sim/nao)

    Mensagem  gokusander 14/8/2020, 11:13

    Bom dia Caique, tudo tranquilo?

    Eu fiz uma tabela com a lista de documentos, e cada um inseri a opcao sim/nao. Mas quando faço o formulário, ao selecionar uma opção (CPF/RG/Documento) e passar para o proximo registro, ele continua assinalado.

    Então, na verdade não consigo deixar como algo exclusivo para cada registro.

    Abraços
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1273
    Registrado : 13/12/2016

    [Resolvido] Checklist de documentos (sim/nao) Empty Re: [Resolvido] Checklist de documentos (sim/nao)

    Mensagem  Alexandre Fim 14/8/2020, 12:26

    Bom dia,

    Criei um modelo de exemplo.
    [Resolvido] Checklist de documentos (sim/nao) Checkl11

    E tem um relatório tmb.
    [Resolvido] Checklist de documentos (sim/nao) Relche10


    Segue exemplo.

    Boa sorte
    Anexos
    [Resolvido] Checklist de documentos (sim/nao) AttachmentCheckListDocs.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (284 Kb) Baixado 21 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    gokusander gosta desta mensagem

    avatar
    gokusander
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 21/04/2012

    [Resolvido] Checklist de documentos (sim/nao) Empty Re: [Resolvido] Checklist de documentos (sim/nao)

    Mensagem  gokusander 14/8/2020, 13:07

    Alexandre... não tem palavras pra descrever o seu exemplo cheers cheers cheers

    Eu estava usando um exemplo daqui do forum: "Grupo de checkbox em um campo da tabela", mas não estava conseguindo ajustar como eu queria.

    Mas esse seu exemplo, está perfeito!!!

    Muito obrigado, era EXATAMENTE o que estava procurando hehehe

    Abraços
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1273
    Registrado : 13/12/2016

    [Resolvido] Checklist de documentos (sim/nao) Empty Re: [Resolvido] Checklist de documentos (sim/nao)

    Mensagem  Alexandre Fim 14/8/2020, 13:09

    Valeu Rodrigo !!
    O fórum agradece cheers cheers

    Se possível, procure analisar o código e o que cada procedimento faz.

    Boa sorte

    Abraços


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    gokusander
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 21/04/2012

    [Resolvido] Checklist de documentos (sim/nao) Empty Re: [Resolvido] Checklist de documentos (sim/nao)

    Mensagem  gokusander 14/8/2020, 16:43

    Consegui adaptar quase totalmente do seu exemplo.

    Só uma pergunta, o que seria esse .fncCarrega(iColab)?

    Eu coloquei no subformulario como no seu exemplo, mas ele não consegue chamar. Como ele está no carregar formulário, formulario nao abre.

    Ia colocar no Frm_Matricula, mas não deu kkk, assim criei um novo, Frm_Matricula_Doc

    O proposito desse sistema é para Gestão de Polos EAD. Não encontrei aqui no fórum nenhum, apenas um ou dois de escola. Mas não era muito útil, assim eu vou deixar a público aqui, pra quem quiser, vou ajustando e postando.

    Quando tiver mais ou menos "usável", colocar no repositório de sistemas. E quero deixar a publico, acho que não tem problema não ne?
    Anexos
    [Resolvido] Checklist de documentos (sim/nao) Attachmentgestao ead.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (428 Kb) Baixado 18 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1273
    Registrado : 13/12/2016

    [Resolvido] Checklist de documentos (sim/nao) Empty Re: [Resolvido] Checklist de documentos (sim/nao)

    Mensagem  Alexandre Fim 14/8/2020, 17:26

    Olá rodrigo,

    É necessário incluir a função no seus subformulário.

    Esta é uma função que está no subformulário, e ela está declarada como função pública (Public Function), e consigo invocá-la através do form "frmCheckList", conforme abaixo:

    [Resolvido] Checklist de documentos (sim/nao) Checli10


    Se vc posicionar o cursor em cima da função e pressionar SHIFT+F2, o Access te posiciona na instrução da função, conforme abaixo:

    [Resolvido] Checklist de documentos (sim/nao) Checli11

    E para voltar a posição anterior, pressione CTRL+SHIFT+F2.

    RESUMINDO:
    Ao clicar no combo, o Access executará a rotina e também acionara a função.

    Espero ter ajudado


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1273
    Registrado : 13/12/2016

    [Resolvido] Checklist de documentos (sim/nao) Empty Re: [Resolvido] Checklist de documentos (sim/nao)

    Mensagem  Alexandre Fim 14/8/2020, 17:39


    A título de informação, segue o código comentado:

    Código:


    Private Sub cbocolab_Click()
    On Error GoTo trata_erro
       
        'variável assume o valor da coluna do combobox do colaborador, ou seja o id
        iColab = cboColab.Column(0)
       
        'Verifica se já existem documentos cadastrados para o colaborador informado
        'Uso a função DCount para contar os registros
       
        If DCount("iddoc", "TB_DOC_COLAB", "idcolab = " & iColab & "") = 0 Then
           
            'se não existir documentos cadastrados, abro um recordset da tabela de documentos,
            'usando s Instrução SQL
            msql = "SELECT iddoc FROM TB_DOC ORDER BY iddoc ASC"
           
            Set rs = db.OpenRecordset(msql, dbOpenSnapshot)
            'Insiro cada documento na tabela auxiliar, que faz o relacionamento entre Docs vs Colab
            If Not rs.EOF Then
                Do While Not rs.EOF
                    msql = "INSERT INTO TB_DOC_COLAB (idcolab, iddoc, flgentregou)"
                    msql = msql & " VALUES (" & iColab & "," & rs(0).Value & ",FALSE)"
                    db.Execute msql
                    rs.MoveNext
                Loop
            End If
           
            rs.Close
            Set rs = Nothing
        End If
       
        '========================================================================================
        'Após inserir os documentos, chamo a função que carrega os dados do subformulário,
        'passando como parâmetro, o id do colaborador (IColab)
       
        'Call Form_subfrmCheckList.fncCarrega(iColab) '==> também pode escrito desta forma
       
        With Form_subfrmCheckList
            Call .fncCarrega(iColab)
        End With
        '----------------------------------------------------------------------------------------
       
        fraMarcar.Value = 0
        fraMarcar.Enabled = True
       
        Exit Sub
       
    trata_erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
        Exit Sub

    End Sub


    Abraço


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    gokusander
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 21/04/2012

    [Resolvido] Checklist de documentos (sim/nao) Empty Re: [Resolvido] Checklist de documentos (sim/nao)

    Mensagem  gokusander 14/8/2020, 18:24

    Grande Alexandre!!!

    Obrigado pela paciência, após essa explicação encontrei o erro:

    Eu estava colocando

    Código:
    With _subfrmCheckList
            Call .fncCarrega(iColab)
        End With

    E na verdade o correto era:

    Código:
    With Form_subfrmCheckList
            Call .fncCarrega(iColab)
        End With

    Então em termos simples... esqueci de colocar o "Form" antes Embarassed

    E essa dita do Shift+F2 não tinha conhecimento, muito bom pra teste. Não sabia mesmo!!

    Muito obrigado e abraços
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1273
    Registrado : 13/12/2016

    [Resolvido] Checklist de documentos (sim/nao) Empty Re: [Resolvido] Checklist de documentos (sim/nao)

    Mensagem  Alexandre Fim 14/8/2020, 19:07

    É isso ai, Rodrigo.
    O importante é também entender o código e identificar os erros..e voce conseguiu!!
    PaRABÉNS

    boa sorte



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 11/4/2021, 12:55