[Resolvido]Criação de checklist de campos de um formulário

Saudações!

Sou iniciante em Access, tenho aprendido bastante por aqui, agradeço a todos o compartilhamento de conhecimento.
Tenho um formulário cujos campos caixas de texto (a grande maioria) e algumas caixas de combinação. Eu inseri nele várias caixas de seleção. Eu gostaria que, à medida que eu fosse preenchendo os campos as caixas de seleção fossem sendo "ticadas", de forma que, ao completar o preenchimento, eu visualizasse todas as caixas de seleção marcadas (ticadas).
Agradeço a todos que puderem ajudar.

Abraços.

Boa tarde Alexandre Fim!

Desde já agradeço por ter respondido. O seu exemplo é exatamente o que eu desejo.
Fiz a leitura do código e tentei adaptar para o meu BD, mas ao executar recebo a mensagem de erro: Erro de compilação: Tipo incompatível de argumento ByRef.

Saberia informar onde estou "comendo pança"?

Muito obrigado.

Public Sub Verifica()
Dim ctrl As Control

   For Each ctrl In Me.Controls
       'Se o tipo de controle for caixa de texto ou caixa de combinação,
       'então pegue sua TAG (propriedade "Marca" do campo)
       If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
           i = ctrl.Tag
           If Trim(ctrl.Value) <> Empty Or Not IsNull(ctrl.Value) Then  'Se o controle não for vazio e nem nulo
               Call CheckList(i, True)                                  'chama o procedimento CheckList passando 2 parâmetros
           Else
               Call CheckList(i, False)
           End If
       End If
   Next ctrl


End Sub

Boa tarde Alexandre Fim!
Obrigado pelo retorno.

Eu não havia numerado cada campo através da propriedade "Marca", mas a relação com o checkbox já estava feita. O código ficou assim:

'Verifica quais os tipos de controles da tela (textbox = caixa de texto / combobox = caixa de combinação)
'
Public Sub Verifica()
Dim ctrl As Control

   For Each ctrl In Me.Controls
       'Se o tipo de controle for caixa de texto ou caixa de combinação,
       'então pegue sua TAG (propriedade "Marca" do campo)
       If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
           i = ctrl.Tag
           If Trim(ctrl.Value) <> Empty Or Not IsNull(ctrl.Value) Then  'Se o controle não for vazio e nem nulo
               Call CheckList(i, True)                                  'chama o procedimento CheckList passando 2 parâmetros
           Else
               Call CheckList(i, False)
           End If
       End If
   Next ctrl


End Sub

Public Sub CheckList(nTag As Integer, checked As Boolean)
     
   Select Case (nTag)
       Case 1: checklist1.Value = checked 'se o campo estiver preenchido, marque como Checked (True) ou Unchecked (False)
       Case 2: checklist2.Value = checked
       Case 3: checklist3.Value = checked
       Case 4: checklist4.Value = checked
       Case 5: checklist5.Value = checked
       Case 6: checklist6.Value = checked
       Case 7: checklist7.Value = checked
       Case 8: checklist8.Value = checked
       Case 9: checklist9.Value = checked
       Case 10: checklist10.Value = checked
       Case 11: checklist11.Value = checked
       Case 12: checklist12.Value = checked
       Case 13: checklist13.Value = checked
       Case 14: checklist14.Value = checked
       Case 15: checklist15.Value = checked
   End Select

End Sub


Porém, o erro persiste.
Call CheckList(i, True)

Saudações, Alexandre Fim!

Este é o link para o banco de dados: https://ths.box.com/s/axbbbtx0h5ckg2betzaoguo0i33rgfth

Antes de abrir os formulários, abra a tabela "Dados" e, na coluna "LocalFoto", corrija o endereço físico das imagens, para o formulário poder funcionar com menos erros.
Bom, ao abrir o banco de dados (formulário "Acessar") você verá que tenho um outro erro (Erro em tempo de execução '94': Uso de "Null" inválido), que ainda não consegui resolver, mas se quiser pode priorizar o assunto do tópico do fórum, apenas. Clique em "Fim".
Com "Acessar" aberto, clique duas vezes sobre a primeira linha da Caixa de Listagem, para abrir o formulário "Editar".
Você já verá a mensagem de erro.
Caso consiga abrir, por este método, o formulário "Editar", será preciso clicar sobre o ícone no canto superior esquerdo (o quarto ícone da esquerda para a direita) para poder editar os dados.
As caixas de seleção estão na página "Verificação dos dados", no formulário "Editar".
Qualquer dúvida, poste aqui, por favor.

Muito obrigado, por tudo.
Abraços!

Boa tarde Alexandre Fim!

Agradeço muitíssimo pela ajuda, valeu demais, está quase perfeito.
O código está retornando erro  quando o campo que armazena o endereço da imagem (LocalFoto) está vazio (Erro em tempo de execução '2220': O Microsoft Access não pode abrir o arquivo ...).
A ideia era que ele exibisse a imagem SemImagem.jpg, que está dentro da pasta Imagens, quando LocalFoto estiver vazio.

Private Sub lst_nomes_AfterUpdate()
   If IsNull(Me.LocalFoto) Or Me.LocalFoto = "" Then
       Me.Foto.Picture = CurrentProject.Path & "\Imagens\SemImagem.jpg"
   Else
       Me.Foto.Picture = CurrentProject.Path & "\" & Me.lst_nomes.Column(
   End If
Dim StrName As String
End Sub

Agradeço se puder ajudar.

Saudações Alexandre Fim!

Obrigado pelo retorno. Eu vinculei uma imagem à caixa de imagem, ela está sendo exibida por padrão, assim que abro o formulário. Porém, o código precisa ser reescrito, pois a mensagem de erro continua aparecendo.

Agradeço se puder ajudar.

Saudações Alexandre Fim!

Analisei o código, e cheguei à conclusão de que ele deveria olhar se a coluna da caixa de listagem estava vazia, e não o campo da tabela (no caso Me.LocalFoto). Realizei as alterações, e tudo funcionou com perfeição.
O código ficou assim:

Private Sub lst_nomes_AfterUpdate()
Dim StrName As String
If IsNull(Me.lst_nomes.Column() Or Me.lst_nomes.Column( = "" Then
Me.Foto.Picture = CurrentProject.Path & "\Imagens\SemImagem2.jpg"
Else
Me.Foto.Picture = CurrentProject.Path & "\" & Me.lst_nomes.Column(
End If
End Sub


Só tenho a lhe agradecer. Muitíssimo obrigado! Abraços.