[Resolvido]Metodo ou membro de dados não encontrados em Instrução INSERT INTO

InsPedido = "INSERT INTO tbl_Pedido ( ID_Pedido, Mercadoria, Fabricante, Forncecedor, Fabricante," _
& "Largura, Altura, Gramatura, Folhas, Peso, quantidade, Desconto, ValorVenda )" _
& " Values ('" & Me.txtPedido & "'," & Me.txtDescricao & "," & Me.txtFabricante & "," _
& "" & Me.txtFornecedor & ",'" & Me.txtLargura & "','" & Me.txtAltura & "'," _
& "'" & Me.txtGramatura & "','" & Me.txtFolhas & "','" & Me.txtPeso & "','" & Me.txtQtde & "'," _
& "'" & Me.txtDesc & "','" & Me.txtValorVenda & "');"


AMigos me retorna o erro de metodo ou membro de dados não encontrado... Mas a caixa texto esta no form!!! Ja renomeei a caixa texto e sempre dá o mesmo erro apenas neste campo... Não sei mais o que fazer...


Se puderem ajudar fico grato..

Não sei mais o que fazer... eu mando compilar e fala que o membro não existe.. mesmo o mesmo estando no form....

Percebi que tem 13 campos referenciados para a tabela e 12 para o formulário. E na tabela tem um repetido: fabricante.
Estaria aí a questão?

Eu ja tinha modificado isto...

A instrução correta:

InsPedido = "INSERT INTO tbl_DetalhePedido (ID_Pedido, Mercadoria, Fabricante, Forncecedor, " _
& "Largura, Altura, Gramatura, QtdFolhas, Peso, quantidade, Desconto, ValorVenda)" _
& " Values ('" & Me.txtPedido & "','" & Me.txtDescricao & "','" & Me.txtFabricante & "'," _
& "'" & Me.txtFornecedor & ",'" & Me.txtLargura & "','" & Me.txtAltura & "'," _
& "'" & Me.txtGramatura & "','" & Me.txtFolhas & "','" & Me.Peso & "','" & Me.txtQtd & "'," _
& "'" & Me.txtDesconto & "', '" & Me.txtSubTotal & "');"

Agora diz que o txtFolhas não foi encontrado.... E tem no form e está perfeito.. Ja tentei renomea-lo, renomeei o campo na tabela...

Não sei o que fazer...

Eu não entendi o InsPedido =

CurrentDb.Execute InsPedido

Ainda assim, porque o InsPedido?

Uma string...

Mas fiz assim e deu o mesmo erro:


CurrentDb.Execute "INSERT INTO tbl_DetalhePedido (ID_Pedido, Mercadoria, Fabricante, Forncecedor, " _
& "Largura, Altura, Gramatura, QtdFolhas, Peso, quantidade, Desc, ValorVenda)" _
& " Values ('" & Me.txtPedido & "','" & Me.txtDescricao & "','" & Me.txtFabricante & "'," _
& "'" & Me.txtFornecedor & ",'" & Me.txtLargura & "','" & Me.txtAltura & "'," _
& "'" & Me.txtGramatura & "','" & Me.txtFolhas & "','" & Me.Peso & "','" & Me.txtQtd & "'," _
& "'" & Me.txtDesconto & "', '" & Me.txtSubTotal & "');"

Se mudo o txtFolhas para qualquer outro campo no form.. dá o mesmo erro apenas neste local...

Se substituo o txtFolhas por txtPeso... da erro no substituido (txtPeso)

Tente colocar tudo em uma linha só, sem quebra, assim:

CurrentDb.Execute "INSERT INTO tbl_DetalhePedido (ID_Pedido, Mercadoria, Fabricante, Forncecedor, Largura, Altura, Gramatura, QtdFolhas, Peso, quantidade, Desc, ValorVenda) Values ('" & Me.txtPedido & "','" & Me.txtDescricao & "','" & Me.txtFabricante & "','" & Me.txtFornecedor & "','" & Me.txtLargura & "','" & Me.txtAltura & "','" & Me.txtGramatura & "','" & Me.txtFolhas & "','" & Me.Peso & "','" & Me.txtQtd & "','" & Me.txtDesconto & "', '" & Me.txtSubTotal & "');"

O mesmo erro Sö no txtFolhas

Tentei assim:


DoCmd.RunSQL "INSERT INTO tbl_DetalhePedido (ID_Pedido, Mercadoria, Fabricante, Forncecedor, TamLargura, TamAltura, Gramatura, QtdFolhas, Peso, quantidade, Desconto, ValorUnitario, ValorVenda) Values ('" & Me.txtPedido & "' , '" & Me.txtDescricao & "' , '" & Me.txtFabricante & "' , " & Me.txtFornecedor & " , '" & Me.txtLargura & "' , '" & Me.txtAltura & "' , '" & Me.txtGramatura & "' , '" & Me.txtFolhas & "' , '" & Me.Peso & "' , '" & Me.txtQtd & "', '" & Me.txtDesconto & "' , '" & Me.txtPrecoUnitario & "' , '" & Me.txtSubTotal & "')"



O mesmo erro no txtFolhas

Meio complicado essa paradinha aí. À primeira vista, parece estar tudo certinho. Já tentou fazer um debug para ver se aponta algum erro nos módulos?

Não tem módulos exceto os do form, ja importei tudo para um Bd novo e continua com o mesmo erro

No debug dá erro justamente no txt Folhas...

Experimentei excluir o campo txtFolhas no form.. e apliquei o código.. o erro passou para o txtGramatura...

Tem um dos campos que está sem txt enquanto todos os outros tem txt, no caso é o campo Peso. Ele está sem o txt mesmo ou foi esquecimento na hora de digitar?

Ja foi corrigido...

Apliquei a expressão em um Debug.Print e retornou assim:


INSERT INTO tbl_DetalhePedido (ID_Pedido, Mercadoria, Fabricante, Forncecedor, TamLargura, TamAltura, Gramatura, QtdFolhas, Peso, quantidade, Desconto, ValorUnitario, ValorVenda) Values ('3' , Papel xxxxxx , Votortantim fabrica de papeis , Distribuidora de Papeis xxxxxxxxxxxxxx , '96' , '66' , '75' ,'250' , '30' , '1', '0,00' , '11,00' , '11')



Me pareceu correto...

Mas não funciona

Tente tirar as aspas simples aonde for campo Número:

..., " & txtQtd & ",...

Em último caso, pode ainda tentar por Recordset para ver o que acontece:

Dim rs As Recordset

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

rs.AddNew

rs("Campo1") = Me.txtCampo1
rs("Campo2") = Me.txtCampo2
...

rs.Update
rs.Close
Set rs = Nothing

Amigão.. resolvi o problema do txtFolha e dos demais aplicando a instrução .Value após as caixas..

No entando agora devolve Erro na SQL operador faltando..


CurrentDb.Execute "INSERT INTO tbl_DetalhePedido (ID_Pedido, Mercadoria, Fabricante, Forncecedor," _
& " TamLargura, TamAltura, Gramatura, QtdFolhas, Peso, quantidade, Desconto," _
& " ValorUnitario, ValorVenda) Values ('" & Me.txtPedido.Value & "' , " & Me.txtDescricao.Value & " ," _
& " " & Me.txtFabricante.Value & " , " & Me.txtFornecedor.Value & " , '" & Me.txtLargura.Value & "' , '" & Me.txtAltura.Value & "' ," _
& " '" & Me.txtGramatura.Value & "' ,'" & Me.txtFolhas.Value & "' , '" & Me.txtPeso.Value & "' , '" & Me.txtQtde.Value & "'," _
& " '" & Me.txtDesconto.Value & "' , '" & Me.txtPrecoUnitario.Value & "' , '" & Me.txtSubTotal.Value & "');"

Tai o Baita amigão... SO não entendi o porque do campo fornecedor, sendo texto exigir as aspas simples...

CurrentDb.Execute "INSERT INTO tbl_DetalhePedido (ID_Pedido, Mercadoria, Fabricante, Fornecedor," _
& " TamLargura, TamAltura, Gramatura, QtdFolhas, Peso, quantidade, Desconto," _
& " ValorUnitario, ValorVenda) Values ('" & Me.txtPedido.Value & "' , '" & Me.txtDescricao & "' , " _
& " '" & Me.txtFabricante & "' , '" & Me.txtFornecedor & "' , '" & Me.txtLargura.Value & "' , '" & Me.txtAltura.Value & "' ," _
& " '" & Me.txtGramatura.Value & "' ,'" & Me.txtFolhas.Value & "' , '" & Me.txtPeso.Value & "' , '" & Me.txtQtde.Value & "'," _
& " '" & Me.txtDesconto.Value & "' , '" & Me.txtPrecoUnitario.Value & "' , '" & Me.txtSubTotal.Value & "')"

As coisas como elas são. E assim caminha a programação