[Resolvido]Como jogar todos os itens de uma combobox que estar em um form (pai) e um campo que estar no subform (filho) no modo folha de dados?

Pessoal..tenho um problema que talvez sua solução seja de interesse para alguns..
Tenho um formulário chamado Inspeção (pai) e um sub vinculado ao mesmo chamado Inspeção _requisito (filho)
No form Inspeção (pai) tenho uma combobox denominada CombProduto que contém vários itens.
Como faço para que após atualizar a combo, ela possa jogar todos os seus itens de uma só vez no campo requisito que esta o subformulário Inspeção _requisito (filho) no modo folha de dados como se gerasse uma lista?

Desde já agradeço muito

Você quer colocar todas as linhas da listbox no subformulário? Se for, basta utilizar a origem de registro da listbox no subformulário.

Algo assim?


Dim I As Integer
Dim strItens As String

For I = 0 To SuaCombo.ListCount - 1
strItens = StrItens & "/" & Me.SuaCombo.Column(1, I) 'aqui modifica a coluna de acordo com a coluna desejada
Next I

DoCmd.RunSQL "INSERT INTO SuaTabela (SeuCampo) Values (""" & StrItens & """ )"

Me.SeuSubForm.Requery



Cumprimentos.

Caros Pina e Criquio...tentei inserir , mas apareceram umas / (barras) na tabela...
O que eu estou tentando fazer é um check-list para a avaliar a conformidade de mercadorias que são adquiridas na empresa.
Dessa forma, o usuário inicialmente cadastra os produtos e seus vários requisitos a fim de que possam ser inspecionados quando adquiridos pela empresa.
Estou tentando enviar o banco, mas aparece uma mensagem (nome do arquivo incorreto)Sou iniciante, mas já algum tempo venho acompanhado muitas das excelentes soluções de vocês.

Obrigado

Envie-me no e-mail que posto aqui para você.

Harysohn@hotmail.com

Cumprimentos.

Leonardus, se o teu exemplo está em 2010, converta-o em 2003 e me envie novamente.

Cumprimentos.

Amigao, sintetize seu bd, deixe apenas o form, combo e tabela envolvida. salve em formato anterior (2003 ou 2007) e reenvie.

Em 2010 não posso ajudá-lo.

De qualquer forma eis ai o bd em 2010, caso algum colega o tenha:

http://dl.dropbox.com/u/26441349/Leonardus.rar

Cumprimentos.

Pina..vou refazer em 2007 e postar..ok

Leonardus, ainda não entendi muito bem o que você precisa. Você quer jogar todas as linhas da combo como novos registros do subformulário ou quer jogar apenas a linha selecionada como uma nova linha no subformulário?

Mestre dos Magos, eis aqui um exemplo que fiz para ele.

Nele se insere as colunas da combo da linha selecionada excetuando a coluna (0)

http://maximoaccess.forumeiros.com/t7838-inserir-valores-das-colunas-ou-counas-e-linhas-de-uma-combo-em-sub-formulario

Código:


On Error Resume Next
Dim I As Integer
Dim strItens As String

For I = 1 To cboProduto.ColumnCount - 1
    strItens = Me.cboProduto.Column(I) 'aqui modifica a coluna de acordo com a coluna desejada
    CurrentDb.Execute "INSERT INTO tblRequisitos (CpRequisito) Values (""" & strItens & """ )"
Next I
Me.subfrmRequisito.Requery

Caso seja todas as linhas:

On Error Resume Next
Dim I As Integer
Dim strItens As String


For I = 1 To cboProduto.ListCount - 1
strItens = Me.cboProduto.Column(1, I) 'aqui modifica a coluna de acordo com a coluna desejada
CurrentDb.Execute "INSERT INTO tblRequisitos (CpRequisito) Values (""" & strItens & """ )"
Next I
Me.subfrmRequisito.Requery


Caso seja colunas e linhas:

On Error Resume Next
Dim I As Integer
Dim strItens As String
Dim X as Integer

For I = 0 To cboProduto.ListCount - 1
For X 1 To CboProduto.ColumnCount -1
strItens = Me.cboProduto.Column(X, I) 'aqui modifica a coluna de acordo com a coluna desejada
CurrentDb.Execute "INSERT INTO tblRequisitos (CpRequisito) Values (""" & strItens & """ )"
Next X
Next I
Me.subfrmRequisito.Requery


Algo Assim:

Cumprimentos.

Pessoal estou postando no formato 2003....

Leonardus, veja os post's anteriores.

Cumprimentos.

Leonardo a sua solução é realmente essa que postei acima, entretato os requisitos que queres inserir não estão na combo
e sim em uma tabela relacionada com a tabela da combo.

Portanto:

1 - Criei uma lista baseada na tabela requisitos que após atualizar a combo é filtrada, exibindo os requisitos relacionados com o produto selecionado na combo
2 - Faço o loop nesta lista filtrada e lanço na tabela inspeção
3 - Insiro tambem a ID do Form Principal par que as informações inseridas fiquem relacionados com o registro do form principal

Sub InsereColuna()
On Error Resume Next
Dim I As Integer
Dim strItens As String
For I = 0 To ListRequisito.ListCount - 1
strItens = Me.ListRequisito.Column(3, I) 'aqui modifica a coluna de acordo com a coluna desejada
CurrentDb.Execute "INSERT INTO [Requisitos de inspeção] (CodInspeção,Requisito) Values (""" & Me.txtCodInspecao & """,""" & strItens & """ )"
Next I
Me.Requisitos_de_inspeção_subformulário.Requery
End Sub


Private Sub CboProduto_AfterUpdate()
Me.txtID = Me.CboProduto.Column(0)
RunCommand acCmdSaveRecord
Me.ListRequisito.Requery
Me.InsereColuna
End Sub


http://dl.dropbox.com/u/26441349/Leonardus_25_05.rar

Cumprimentos.

Pina...pode crer...perfeito....muito obrigado e parabéns mesmo...por aqui ganhastes um amigo ..o que for possível conte comigo.....obrigado Tb criquio pelo interesse pela questão.....

O Fórum agradece o Retorno.

**** Não se esqueça de clicar no joinha da mensagem que lhe ajudou.