[Resolvido]Inserir campo automaticamente no sub-formulário

Olá!

Eu tenho um formulário chamado Formulario_Crianca e um subformulário chamado Subformulario_Status_Avaliacao. No subformulário (Subformulario_Status_Avaliacao), gostaria de copiar automaticamente, um campo inteiro de uma tabela chamada tblHab, ao inserir um novo registro no formulário Formulario_Crianca. Inicialmente, para cada criança cadastrada, o Access, deverá inserir 302 registros no campo IdHab, do Subformulario_Status_Avaliacao ou seja, todos os Ids da tabela tblHab.

Em anexo, segue o arquivo.

Olá Reginaldo,

Onde está o arquivo anexado?

Reenviei o arquivo novamente.

Obrigado.

O que eu preciso é copiar a coluna inteira IdHab da tabela tblHab para a coluna IdHab do Subformulario_Status_Avaliacao.

Olá Reginaldo,

Não ficou bem claro o que você pretende. Ao abrir o formulário CRIANÇA, você cadastra uma criança, OK? E na inserção incluir da tabela (tblHab) todos os registros com somente o campo IdHab?

Com esse código funfa incluindo o campo IdHab, mas vem com todos os outros campos também. Vê se atende.

Código:


Private Sub Nome_da_Criança_Exit(Cancel As Integer)
'Código de Eduardo Machado (Good Guy)

Dim strSQL As String
Dim sUltimo As String
Dim rs As DAO.Recordset
Dim sIdCri As Integer
Dim sIdHab As Integer
Dim i As Integer

Set rs = CurrentDb.OpenRecordset("tblHab", dbOpenTable)



For i = 0 To rs.RecordCount

sIdCri = Forms!FORMULARIO_CRIANCA!IdCri

sIdHab = i + 1

strSQL = "INSERT INTO tblStaAva(IdCri,IdHab) VALUES ('" & sIdCri & "', '" & sIdHab & "')"
CurrentDb.Execute strSQL
Next i

Set rs = Nothing
End Sub

Obrigado pela ajuda Good Gui, estou baixando o arquivo e vou fazer os testes.

Obrigado, good guy!

Desculpa a demora, mas, com o seu auxilio, consegui resolver.

Obrigado, good guy!

Desculpa a demora, mas, com o seu auxilio, consegui resolver.

Valew. Uma pergunta: Esse código foi o suficiente para solucionar o seu caso? Poderia postar o código na íntegra? O fórum todo agradece !!!

Dê uma curtida em minha página no Facebook.

https://www.facebook.com/EduardoMachado

Visite meu site:

www.goodguyaccessvba.com.br

Somente o código, resolveu o problema.

Obrigado pela auxilio.