[Resolvido]Transformar Orçamento em pedidos

Boa tarde a todos,
estou com esse código que o Amigão Noobezinho me passou e deu certo, porem quando acrescento mais registro para levar para o outro formulário.
Diz a Msg (item não encontrado nesta coleção acess) os que estão ('-------------- esse não vai) são que não estão indo os outros estão normais

----------------------------
Dim dbOrc As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset, intUltimoCodigo As Long

Set dbOrc = CurrentDb
Set rs1 = dbOrc.OpenRecordset("Pedido")
With rs1

DoCmd.SetWarnings False
intUltimoCodigo = 0

.AddNew
![IdCliente] = Me.IdCliente
![PlacaSerie] = Me!PlacaSerie
![PlacaNo] = Me!PlacaNo
![Solicitante] = Me!Solicitante
![StatusOrcamentos] = Me!StatusOrcamentos
![DtSaida] = Me!DtSaida
'![Acomp] = Me!Acomp '-------------- esse não vai
![Marca] = Me!Marca
![Modelo] = Me!Modelo
![Ano] = Me!Ano
![CombinaçãoFormaPagto] = Me!CombinaçãoFormaPagto '-------------- esse não vai
![CombinaçãoVendedor] = Me!CombinaçãoVendedor '-------------- esse não vai
![Funionario] = Me!Funionario '-------------- esse não vai
![Equipamento] = Me!Equipamento
![DsServico] = Me!DsServico
![ObservacaoComplementar] = Me!ObservacaoComplementar
'![Solicitante] = Me!Solicitante
'![Solicitante] = Me!Solicitante
'![Solicitante] = Me!Solicitante
'![Solicitante] = Me!Solicitante
.Update
End With

Set rs2 = dbOrc.OpenRecordset("SELECT * FROM OrcamentoDetalhe WHERE idPedido=" & Me.IdPedido)
Set rs3 = dbOrc.OpenRecordset("PedidoDetalhe")


While (Not rs2.EOF)
With rs3
.AddNew
![IdPedido] = DMax("idPedido", "Pedido")
![IdProduto] = rs2![IdProduto]
![QtdePedido] = rs2![QtdePedido]
![VlUnitario] = rs2![VlUnitario]
'![Comprimento] = rs2![Comprimento]
'![Comprimento] = rs2![Comprimento]
'![Comprimento] = rs2![Comprimento]
'![Comprimento] = rs2![Comprimento]
intUltimoCodigo = Nz(DMax("IdPedido", "Pedido"), 0)

.Update
rs2.MoveNext
End With
Wend

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

Set dbOrc = Nothing
DoCmd.OpenForm "Pedido_Multiplo1", , , "IdPedido = " & intUltimoCodigo & "", , , "AberturaNormal"
DoCmd.Close acForm, "Orçamento1"

Boas....


Vai na tabela pedido e veja se tem, se existe, esses campos dentro dessa tabela.
Veja se os nomes se coincidem, tanto no formulário como na tabela.

Marco

'tem uma aspa simples sobrando no inicio da linha de baixo
'![Acomp] = Me!Acomp '-------------- esse não vai
![Marca] = Me!Marca
![Modelo] = Me!Modelo
![Ano] = Me!Ano
abaixo, coloque o nome da tabela onde tiver em vermelho
!]CombinaçãoFormaPagto] = Me!CombinaçãoFormaPagto '-------------- esse não vai
!]CombinaçãoVendedor] = Me!CombinaçãoVendedor '-------------- esse não vai
![Funionario] = Me!Funionario '-------------- esse não  ' Funcionário está escrito errado

Programar tem que ser professor; corrigir os erros de digitação.

Balem

Obrigado!!
meus amigos
Noobezinho era isso mesmo muito Obrigado e Silvio te agradeço também

Marco

Que bom que de certo!

Boa sorte!

Balem