[Resolvido]Incluir registros na tabela a partir de caixa de seleção

Bom dia a todos.

Colegas estou a volta com mais uma dúvida.

Tenho um form CadPessoa com origem na TabPessoa

Tenho um subform CadCrime, com origem na TabCrime, vinculado ao form CadPessoa pelo CodigoDaPessoa. No sub-form tenho 20 caixas de seleção (20 crimes).

Como fazer para depois que marcar as seleções, eu faça uma varredura na tabela para salvar todas as seleções na TabCrime?

Por exemplo: se eu marcar das 20 caixas, apenas 4, gravar as quatro opções na tabela (quatro registros), pois
cada seleção corresponde a um novo registro. Deu para entender? Aguardo sugestões. Obrigado.

Aê colegas. Alguma luz no fim do túnel?

Como é a estrutura da tabela? E do form? Como essas caixas de seleções entrarão na tabela? Em que campos? Para cada caixa de seleção será criado um novo registro? E o dado de cada registro será apenas da caixa de seleção? Ou entrará dados em outros campos da tabela na mesma linha?

Obrigado pela atenção criquio.

Vamos lá.

As tabelas:

tab_Pessoa, com o campo cod_pessoa (chave primária tipo autonumeração), entre outros;

tab_Crime, com o campo cod_crime (chave primária tipo autonumeração) e nom_crime;

tab_PessoaCrime, com o campo cod_pessoacrime (chave primária tipo autonumeração), cod_Pessoa (relacionado ao campo cod_pessoa da Tab_Pessoa) e cod_crime(relacionado ao campo cod_crime da Tab_Crime).

Os forms:

Form_Pessoa

Sub_Form_PessoaCrime


O form e o sub-form estão sincronizados pelo campo Cod_Pessoa.


No sub_form tenho 20 caixas de seleção que deverão corresponder aos 20 crimes contidos na Tab_Crime.


Depois de efetuar a inclusão de todos os dados da pessoa, no Form_Pessoa, preciso acessar o sub_form e clicar nos crimes daquela determinada pessoa.

Acontece que como sabemos, cada pessoa pode cometer mais de um crime, então na Tab_Pessoacrime devem ser criados tantos registros quantos forem as opções escolhidas nas caixas de seleção.

Acontece que como nunca usei caixas de seleção, não estou conseguindo fazer com que após escolher os crimes, eles sejam gravados na Tab_PessoaCrime, pois preciso percorrer a tabela para inserir os registros.

Por exemplo:

escolho três crimes dos 20: homicídio, roubo e estelionato.

Na tab_Crime = homicídio = 1; roubo = 12; estelionato = 8


Então na Tab_PessoaCrime devo criar três registros, sendo:

chaveprimaria
cod_Pessoacrime  | cod_Pessoa | cod_Crime
     1           |     1      |    1
     2           |     1      |    12
     3           |     1      |    8

Minha dificuldade é fazer com que, após selecionar as caixas de seleção, inclua os registros.

Penso que deverei usar algum tipo de loop, mas não sei implementar.

Aguardo ajuda. Obrigado.

PS: Se vc tiver uma solução mais interessante, ao invés de usar caixas de seleção, estou aberto a mudanças.
PS: na Tab_PessoaCrime, por enquanto só tem estes campos que citei, no entanto tenho a intenção de criar outros, tipo tipificação penal do crime,
data do crime, etc.

Bom, daria para ser feito em um subformulário aonde você poderia digitar o código do crime. Tambem poderia ser feito escolhendo em uma caixa de combinação ou selecionando em uma caixa de listagem. Mas pode ser feito dessa forma tambem. Nesse caso, seria interessante ter um botão para adicionar os registros. Até dá para ir clicando nas caixas de seleção e já ir criando os registros, mas para evitar que seja criado registro errado ao clicar em uma caixa por acidente, o botão seria uma melhor alternativa. Nesse caso, precisa pegar o código da pessoa. Eu nomearia essas caixas de seleção como sel1 a sel20, sendo o número correspondente ao código do crime e colocaria algo assim no evento "Ao clicar" do botão que eu falei:

Código:

Dim N As Integer

For N = 1 To 20
    If Me("sel" & N).Value = -1 Then
        CurrentDb.Execute "INSERT INTO NomeDaTabela(cod_Pessoacrime, cod_Pessoa, cod_Crime) VALUES(" & Me.PessoaCrime & ", " & Me.Pessoa & ", " & N & ")"
    End If
Next

Sendo que no lugar de PessoaCrime e no lugar de Pessoa, você coloca os nomes dos campos do formulário aonde estão esses dados.

Valeu criquio. Assim que chegar em casa vou testar. Mas tenho quase certeza que realmente é isso que preciso. Mais tarde te retorno. Obrigado.

Obrigado criquio, funcionou perfeitamente. Porém apesar de estar gravando os valores corretamente na tabela, não está atualizando no form. Como fazer para atualizar o form e ver os registros? Obrigado.

Isso no subform, certo? Adicione mais uma linha no código dando um reload no source do subform:

Me.NomeDoSubForm.SourceObject = "NomeDaTabela"

Criquio, coloquei a linha após finalizar o for next porém aparasse a seguinte mensagem: Erro de compilação: método ou membro de dados não encontrado.

Coloquei assim no botão incluir: Me.Frm_SubCadPessoa3.SourceObject = "Tab_Crime".

Aguardo seu contato. Obrigado.

Você está colocando o nome do controle aonde o subform é carregado ou o nome do subformulário que aparece na lista de formulários, tabelas, etc? Clique em cima do subformulário e olhe nas propriedades dele se o nome é o mesmo.

Opa. Falha nossa. Realmente o nome do subform é Frm_SubCadPessoa3, no entanto no form principal o nome estava apenas 'crime', aí renomeei para o nome correto e deu certo. Obrigado pela grande ajuda. Que o Grande Arquiteto do Universo lhe ilumine.

Grato pelo retorno. O fórum agradece.