[Resolvido] Checklist de documentos (sim/nao)

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

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

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

Bom dia,

Criei um modelo de exemplo.


E tem um relatório tmb.



Segue exemplo.

Boa sorte

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

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

Valeu Rodrigo !!
O fórum agradece

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

Boa sorte

Abraços

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?

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:




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:



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

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

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

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

Muito obrigado e abraços

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

boa sorte