[Resolvido]Erro em tempo de execução sintaxe virgula 3075

Boa tarde.

Estou quebrando a cabeça nesse código abaixo, o mesmo quanto executado me diz que há um erro de virgula.

Private Sub bt_Duplicar_Click()
' aqui realizo a duplicação do pedido

       If Not IsNull(Me!CodPed) Then
           If MsgBox("Confirma a duplicação do Pedido ?", vbQuestion + vbYesNo) = vbYes Then
               Dim CodigoNovoPedido As Long
             
               CurrentDb.Execute "INSERT INTO TblPedido(NossoPedido, DataPed, IDVendedor, IdVendedorOculta, CodCliente, Fornecedor, ForneOculta, PrazoPgto, Faturamento, Foculta, Faturamento1, " & _
                "FOculta1, Faturamento2, FOculta2, Faturamento3, FOculta3, ValorTotalPed, Cliente, NomeFantasia, CodClienteFabrica, " & _
                "ContatoCliente, Endereco, Numero, Complemento, Bairro, Distrito, CEP, Cidade, Estado, FoneComercial, Celular, Whatapps, " & _
                "CNPJ, InscEstadual, CPF, Confirma, EmailNF, DescT, TotalGeralPedido, AvisoImportante, Aviso, Colecao, ColecaoOculta, Regiao, Desmembrado)" & _
                "SELECT(NossoPedido, DataPed, IDVendedor, IdVendedorOculta, CodCliente, Fornecedor, ForneOculta, PrazoPgto, Faturamento, Foculta, Faturamento1, " & _
                "Foculta1, Faturamento2, Foculta2, Faturamento3, Foculta3, ValorTotalPed, Cliente, NomeFantasia, CodClienteFabrica, " & _
                "ContatoCliente, Endereco, Numero, Complemento, Bairro, Distrito, CEP, Cidade, Estado, FoneComercial, Celular, Whatapps, " & _
                "CNPJ, InscEstadual, CPF, Confirma, EmailNF, DescT, TotalGeralPedido, AvisoImportante, Aviso, Colecao, ColecaoOculta, Regiao, Desmembrado)" & _
                "FROM TblPedido " & _
                "WHERE CODPED = " & Me.CodPed & ";", dbFailOnError (*nessa linha fica a seta indicativa, mas não vejo nada errado*)
               
                CodigoNovoPedido = DMax("CODPED", Me.RecordSource) + 1
             
             
               Me.Requery
           End If
       End If

End Sub

Fala Silvio!!
Tem como colocar uma parte do BD aí pra gente ver?
Como é que tem que ficar o critério dessa concatenação?

Boa tarde Leandro, grato por me ajudar....

Preciso duplicar formulário e subformulário.   A parte que está dando " rolo " é a do FrmPrincipal.
Estou a desenvolver isso e deu esse " Rolo ".

É duplicar mesmo !!

Veja, estou com dados reais de clientes, fica meio complicado separar partes visto que envolve algumas tabelas e consultas.

Boa tarde, Sílvio
Será
CurrentDb.Execute "INSERT INTO TblPedido(NossoPedido, DataPed, IDVendedor, IdVendedorOculta, CodCliente, Fornecedor, ForneOculta, PrazoPgto, Faturamento,Foculta, Faturamento1,FOculta1, Faturamento2, FOculta2, Faturamento3, FOculta3, ValorTotalPed, Cliente, NomeFantasia, CodClienteFabrica,ContatoCliente, Endereco, Numero, Complemento, Bairro, Distrito, CEP, Cidade, Estado, FoneComercial, Celular, Whatapps,CNPJ, InscEstadual, CPF, Confirma, EmailNF, DescT,TotalGeralPedido, AvisoImportante, Aviso, Colecao, ColecaoOculta, Regiao, Desmembrado) SELECT NossoPedido, DataPed, IDVendedor, IdVendedorOculta, CodCliente, Fornecedor, ForneOculta, PrazoPgto, Faturamento, Foculta, Faturamento1, Foculta1, Faturamento2, Foculta2, Faturamento3, Foculta3, ValorTotalPed, Cliente, NomeFantasia, CodClienteFabrica, ContatoCliente, Endereco, Numero, Complemento, Bairro, Distrito, CEP, Cidade, Estado, FoneComercial, Celular, Whatapps, CNPJ, InscEstadual, CPF, Confirma, EmailNF, DescT, TotalGeralPedido, AvisoImportante, Aviso, Colecao, ColecaoOculta, Regiao, Desmembrado FROM TblPedido WHERE CODPED = " & Me.CodPed & ";", dbFailOnError

Boa noite a todos.

Agradeço antecipadamente a ajuda dos colegas.   Também as mensagens de solidariedade a minha pessoa.

Segue uma parte do SGDB para a analise dos colegas.

1- abra o FrmPedido.  Vai abrir no pedido 8.
2- clicar no ícone "Duplicar"
3- necessito duplicar os dois formulários que se encontram, literalmente uma cópia mesmo, alterando apenas o numero ( ID / PK ) do mesmo.

Mais uma vez, agradeço a todos os colegas Lusitanos e Brasileiros.

Olá a todos,

Silvio, não baixei projecto estou no telemovel, mas o campo Me.CodPe é número ou texto?
Se for texto adicionar plicas antes e depois.

Abraço

Bom dia a todos!

Silvio, sinceramente eu não entendi o porque não duplicava.
Alterei a sintaxe da Insert Into, ficou sem o código do pedido e no critério do campo ficou com ".Value"

A sintaxe no CurrentDb.Execute ficou essa:

Código:


CurrentDb.Execute "INSERT INTO tblpedido ( NossoPedido, Dataped, CodOrc, IdVendedor, IdVendedorOculta, Vendedor, VendedorOculta, CodCliente, Fornecedor, Forneoculta, PrazoPgto, Prazoculta, Faturamento, FOculta, " & _
                  "Faturamento1, FOculta1, Faturamento2, FOculta2, Faturamento3, FOculta3, ValorTotalPed, Cliente, NomeFantasia, CodClienteFabrica, ContatoCliente, Endereco, Numero, Complemento, Bairro, Distrito, " & _
                  "CEP, Cidade, Estado, FoneComercial, Celular, Whatapps, CNPJ, InscrEstadual, CPF, Observacao, Confirma, EmailNF, CodTransp, Transportadora, Fone, WhatAppsT, Contato, DescT, TotalGeralPedido, " & _
                  "AvisoImportante, Aviso, Colecao, ColecaoOculta, Regiao, Desmembrado ) " & _
                  "SELECT tblpedido.NossoPedido, tblpedido.Dataped, tblpedido.CodOrc, tblpedido.IdVendedor, tblpedido.IdVendedorOculta, tblpedido.Vendedor, tblpedido.VendedorOculta, tblpedido.CodCliente, " & _
                  "tblpedido.Fornecedor, tblpedido.Forneoculta, tblpedido.PrazoPgto, tblpedido.Prazoculta, tblpedido.Faturamento, tblpedido.FOculta, tblpedido.Faturamento1, tblpedido.FOculta1, " & _
                  "tblpedido.Faturamento2, tblpedido.FOculta2, tblpedido.Faturamento3, tblpedido.FOculta3, tblpedido.ValorTotalPed, tblpedido.Cliente, tblpedido.NomeFantasia, tblpedido.CodClienteFabrica, " & _
                  "tblpedido.ContatoCliente, tblpedido.Endereco, tblpedido.Numero, tblpedido.Complemento, tblpedido.Bairro, tblpedido.Distrito, tblpedido.CEP, tblpedido.Cidade, tblpedido.Estado, " & _
                  "tblpedido.FoneComercial, tblpedido.Celular, tblpedido.Whatapps, tblpedido.CNPJ, tblpedido.InscrEstadual, tblpedido.CPF, tblpedido.Observacao, tblpedido.Confirma, tblpedido.EmailNF, " & _
                  "tblpedido.CodTransp, tblpedido.Transportadora, tblpedido.Fone, tblpedido.WhatAppsT, tblpedido.Contato, tblpedido.DescT, tblpedido.TotalGeralPedido, tblpedido.AvisoImportante, tblpedido.Aviso, " & _
                  "tblpedido.Colecao, tblpedido.ColecaoOculta, tblpedido.Regiao, tblpedido.Desmembrado " & _
                  "FROM tblpedido " & _
                  "WHERE tblpedido.Codped=" & Me!Codped.Value


Olá, boa tarde a todos...

Leandro deu certo, funfou de boa !!

Porém ao fazer o mesmo procedimento para o subformulário, deu o mesmo erro, usando o mesmo código que postou aqui.

Ficou assim:

' aqui realizo a duplicação do pedido
Dim x As String
x = DMax("CodPed", "TblPedido")

       If Not IsNull(Me!CodPed) Then
           If MsgBox("Confirma a duplicação do Pedido ?", vbQuestion + vbYesNo) = vbYes Then


CurrentDb.Execute "INSERT INTO tblpedido ( NossoPedido, Dataped, CodOrc, IdVendedor, IdVendedorOculta, Vendedor, VendedorOculta, CodCliente, Fornecedor, Forneoculta, PrazoPgto, Prazoculta, Faturamento, FOculta, " & _
                 "Faturamento1, FOculta1, Faturamento2, FOculta2, Faturamento3, FOculta3, ValorTotalPed, Cliente, NomeFantasia, CodClienteFabrica, ContatoCliente, Endereco, Numero, Complemento, Bairro, Distrito, " & _
                 "CEP, Cidade, Estado, FoneComercial, Celular, Whatapps, CNPJ, InscrEstadual, CPF, Observacao, Confirma, EmailNF, CodTransp, Transportadora, Fone, WhatAppsT, Contato, DescT, TotalGeralPedido, " & _
                 "AvisoImportante, Aviso, Colecao, ColecaoOculta, Regiao, Desmembrado ) " & _
                 "SELECT tblpedido.NossoPedido, tblpedido.Dataped, tblpedido.CodOrc, tblpedido.IdVendedor, tblpedido.IdVendedorOculta, tblpedido.Vendedor, tblpedido.VendedorOculta, tblpedido.CodCliente, " & _
                 "tblpedido.Fornecedor, tblpedido.Forneoculta, tblpedido.PrazoPgto, tblpedido.Prazoculta, tblpedido.Faturamento, tblpedido.FOculta, tblpedido.Faturamento1, tblpedido.FOculta1, " & _
                 "tblpedido.Faturamento2, tblpedido.FOculta2, tblpedido.Faturamento3, tblpedido.FOculta3, tblpedido.ValorTotalPed, tblpedido.Cliente, tblpedido.NomeFantasia, tblpedido.CodClienteFabrica, " & _
                 "tblpedido.ContatoCliente, tblpedido.Endereco, tblpedido.Numero, tblpedido.Complemento, tblpedido.Bairro, tblpedido.Distrito, tblpedido.CEP, tblpedido.Cidade, tblpedido.Estado, " & _
                 "tblpedido.FoneComercial, tblpedido.Celular, tblpedido.Whatapps, tblpedido.CNPJ, tblpedido.InscrEstadual, tblpedido.CPF, tblpedido.Observacao, tblpedido.Confirma, tblpedido.EmailNF, " & _
                 "tblpedido.CodTransp, tblpedido.Transportadora, tblpedido.Fone, tblpedido.WhatAppsT, tblpedido.Contato, tblpedido.DescT, tblpedido.TotalGeralPedido, tblpedido.AvisoImportante, tblpedido.Aviso, " & _
                 "tblpedido.Colecao, tblpedido.ColecaoOculta, tblpedido.Regiao, tblpedido.Desmembrado " & _
                 "FROM tblpedido " & _
                 "WHERE tblpedido.Codped=" & Me!CodPed

              ' aqui faço a cópia dos itens que estão no sub-fromuário
               CurrentDb.Execute "INSERT INTO Dpedido ( CodProduto, CodProdutoOculta, Referencia, TipoColecao, Artigo, TamanhoOculto, Cor, Qtd, PrecoVenda, TotalOculta, Desconto, DescontoGeral, TotalItens, Unico, " & _
                 "34RN, PP, 36P, 38N, 40G, 42GG, 441, 462, 483, 504, 526, 568, 2GG10, 3GG12, 4GG14, 16, 18, 20, 22, Dgeral " & _
                 "SELECT Dpedido.CodProduto, Dpedido.CodProdutoOculta, Dpedido.Referencia, Dpedido.TipoColecao, Dpedido.Artigo, Dpedido.TamanhoOculta, Dpedido.Cor, Dpedido.Qtd, DPedido.PrecoVenda, DPedido.TotalOculta, DPedido.TotalOculta, DPedido.Desconto, DPedido.DescontoGeral, DPedido.TotalItens, DPedido.Unico, " & _
                 "Dpedido.34RN, DPedido.PP, DPedido.36P, DPedido.38N, Dpedido.40G, Dpedido.42GG, DPedido.441, DPedido.462, DPedido.483, " & _
                 "Dpedido.504, Dpedido.568, DPedido.2GG10, DPedido.3GG12, DPedido.4GG14, DPedido.16, DPedido.18, DPedido.20, DPedido.22, DPedido.DGeral " & _
                 "FROM DPedido " & _
                 "WHERE DPedido.CodSubped= " & Me!CodPed
               Me.Requery
           End If
       End If
MsgBox "O Provável número desse pedido duplicado poderá ser: " & x + 1, vbInformation, Me.Caption


Já revisei umas duas vezes e não veja nada de errado.

Agradeço muito a tua ajuda e a dos demais envolvidos.


Abraços a todos.

Depois de modificar o código abaixo, apareceu o erro 3061, eram esperados 4

CurrentDb.Execute "INSERT INTO Dpedido ( CodProduto, CodProdutoOculta, Referencia, TipoColecao, Artigo, TamanhoOculto, Cor, Qtd, PrecoVenda, TotalOculta, Desconto, DescontoGeral, TotalItens, Unico, " & _
"34RN, PP, 36P, 38N, 40G, 42GG, 441, 462, 483, 504, 526, 568, 2GG10, 3GG12, 4GG14, 16, 18, 20, 22, Dgeral) " & _
"SELECT Dpedido.CodProduto, Dpedido.CodProdutoOculta, Dpedido.Referencia, Dpedido.TipoColecao, Dpedido.Artigo, Dpedido.TamanhoOculta, Dpedido.Cor, Dpedido.Qtd, DPedido.PrecoVenda, DPedido.TotalOculta, DPedido.TotalOculta, DPedido.Desconto, DPedido.DescontoGeral, DPedido.TotalItens, DPedido.Unico, " & _
"Dpedido.T34RN, DPedido.PP, DPedido.[36P], DPedido.[38N], Dpedido.[40G], Dpedido.[42GG], DPedido.[441], DPedido.[462], DPedido.[483], " & _
"Dpedido.[50], Dpedido.[568], DPedido.[2GG10], DPedido.[3GG12], DPedido.[4GG14], DPedido.[16], DPedido.[18], DPedido.[20], DPedido.[22], DPedido.DGeral " & _
"FROM DPedido " & _
"WHERE DPedido.CodSubped= " & Me!CodPed

Bom dia Silvio,
Consegui alterar o código de modo que ele funcione.
Porém precisei criar uma função pra inserir o critério na UPDATE mas, não é nada que vá causar problema no seu BD.

A função inserida num módulo é essa, junto com a variável:

Código:


Global intCodPed As Integer

Public Function fncCrit()
fncCrit = intCodPed
End Function


Na execução do código, após executar a UPDATE na tblpedido, tem um DMAX pegando o último registro da tblpedido, que no caso é que se acabou de inserir, carregando a variável Global com o número desse último pedido:

Código:


intCodPed = DMax("[Codped]", "tblpedido")


E por fim a SQL que é executada no CurrentDb.Execute para inserir os dados da na tabela DPedido:

Código:


CurrentDb.Execute "INSERT INTO DPedido ( CodSubped, CodProduto, CodProdutoOculta, Referencia, TipoColecao, Artigo, TamanhoOculto, Cor, Qtd, PrecoVenda, TotalOculta, " & _
                             "Desconto, DescontoGeral, TotaItens, Unico, 34RN, PP, 36P, 38N, 40G, 42GG, 441, 462, 483, 504, 526, 568, 2GG10, 3GG12, 4GG14, 16, 18, 20, 22, Dgeral ) " & _
                             "SELECT fncCrit() AS fnc, DPedido.CodProduto, DPedido.CodProdutoOculta, DPedido.Referencia, DPedido.TipoColecao, DPedido.Artigo, DPedido.TamanhoOculto, " & _
                             "DPedido.Cor, DPedido.Qtd, DPedido.PrecoVenda, DPedido.TotalOculta, DPedido.Desconto, DPedido.DescontoGeral, DPedido.TotaItens, DPedido.Unico, " & _
                             "DPedido.[34RN], DPedido.PP, DPedido.[36P], DPedido.[38N], DPedido.[40G], DPedido.[42GG], DPedido.[441], DPedido.[462], DPedido.[483], " & _
                             "DPedido.[504], DPedido.[526], DPedido.[568], DPedido.[2GG10], DPedido.[3GG12], DPedido.[4GG14], DPedido.[16], DPedido.[18], DPedido.[20], DPedido.[22], DPedido.Dgeral " & _
                             "FROM DPedido " & _
                             "WHERE DPedido.CodSubped=" & Me!Codped.Value


Abraço.

Leandro, bom dia a ti....

Agradeço imensamente a tua ajuda, testei a mesma e funcionou.

Porém estava a mexer e a modificar uma função que o Assis me passou via MP que também deu o resultado esperado.

Vou deixar aqui ambas para que outros colegas tenham acesso a essas informações que tanto nos fazem falta.

Agradeço a todos que de um modo ou de outro, " perderam " um pouco de tempo para me ajudar.

Abaixo o código cedido pelo Assis, modificado por mim, para atender as minhas necessidades.

Código:

Private Sub bt_Duplicar_Click()
    Dim dbPedido As Database, rs1, rs2, rs3 As DAO.Recordset
    Dim x As String
    x = DLast("codped", "TblPedido")

    If MsgBox("Deseja Repetir esse Pedido de numero " & Me.CodPed & " ?", vbYesNo + vbQuestion, Me.Caption) = vbYes Then
   
        Set dbPedido = CurrentDb
       
        Set rs1 = dbPedido.OpenRecordset("TblPedido", dbOpenTable)
           
        With rs1
        'aqui faço a inserção na tblPedido
        .AddNew
        ![CodPed] = DMax("CodPed", "TblPedido") + 1 'Me.idOrcamento + 1
        ![Dataped] = Me.Dataped
        ![Fornecedor] = Me.Fornecedor
        ![Forneoculta] = Me.Forneoculta
        ![Colecao] = Me.cbocolecao
        ![ColecaoOculta] = Me.ColecaoOculta
        ![NossoPedido] = Me.NossoPedido
        ![CodClienteFabrica] = Me.CodClienteFabrica
        ![Regiao] = Me.Regiao
       
        ![Cliente] = Me.Cliente
        ![CodCliente] = Me.CodCliente
        ![NomeFantasia] = Me.NomeFantasia
        ![Vendedor] = Me.CboVendedor
        ![VendedorOculta] = Me.VendedorOculta
        ![IdVendedorOculta] = Me.IdVendedorOculta
       
        ![Endereco] = Me.Endereco
        ![Numero] = Me.Numero
        ![ContatoCliente] = Me.ContatoCliente
       
        ![Bairro] = Me.Bairro
        ![Distrito] = Me.Distrito
        ![CEP] = Me.CEP
        ![Cidade] = Me.Cidade
        ![Estado] = Me.Estado
       
        ![FoneComercial] = Me.FoneComercial
        ![Celular] = Me.Celular
        ![Whatapps] = Me.Whatapps
        ![CNPJ] = Me.CNPJ
        ![InscrEstadual] = Me.InscrEstadual
       
        ![Observacao] = Me.Observacao
       
        ![EmailNF] = Me.EmailNF
        ![CPF] = Me.CPF
 

        .Update
       
      End With


        Set rs2 = dbPedido.OpenRecordset("SELECT * FROM Dpedido WHERE CodSubPed=" & Me.CodPed)
        Set rs3 = dbPedido.OpenRecordset("DPedido", dbOpenTable)


        While (Not rs2.EOF)
            With rs3
                .AddNew
                ![CodSubped] = DMax("Codped", "TblPedido")
                ![CodProduto] = rs2![CodProduto]
                ![CodProdutoOculta] = rs2![CodProdutoOculta]
                ![Referencia] = rs2![Referencia]
                ![TipoColecao] = rs2![TipoColecao]
                ![Artigo] = rs2![Artigo]
                ![TamanhoOculto] = rs2![TamanhoOculto]
                ![Cor] = rs2![Cor]
                ![Qtd] = rs2![Qtd]
                ![PrecoVenda] = rs2![PrecoVenda]
                ![TotalOculta] = rs2![TotalOculta]
                ![Desconto] = rs2![Desconto]
                ![DescontoGeral] = rs2![DescontoGeral]
                '![Texto145] = rs2![Texto145]
                ![Unico] = rs2![Unico]
                ![34RN] = rs2![34RN]
                ![PP] = rs2![PP]
                [36P] = rs2![36P]
                ![38N] = rs2![38N]
                ![40G] = rs2![40G]
                ![42GG] = rs2![42GG]
                ![441] = rs2![441]
                ![462] = rs2![462]
                ![483] = rs2![483]
                ![504] = rs2![504]
                ![526] = rs2![526]
                ![568] = rs2![568]
                ![2GG10] = rs2![2GG10]
                ![3GG12] = rs2![3GG12]
                ![4GG14] = rs2![4GG14]
                ![16] = rs2![16]
                ![18] = rs2![18]
                ![20] = rs2![20]
                ![22] = rs2![22]
                ![Dgeral] = rs2![Dgeral]
             
                .Update
                rs2.MoveNext
            End With
        Wend
       
        rs1.Close
        Set rs1 = Nothing
       
        rs2.Close
        Set rs2 = Nothing

        rs3.Close
        Set rs3 = Nothing
       
        Set dbPedido = Nothing

        DoCmd.OpenForm "FrmPedido", acNormal, , "CodPed = " & Me.CodPed & ""

        MsgBox "Pedido Duplicado e  Criado com Sucesso !!" & vbCrLf & _
              "Provavel numero criado..." & x + 1, vbInformation, Me.Caption

        DoCmd.Close acForm, "FrmPedido"
        DoCmd.OpenForm "FrmPedido"
      Else
     
      DoCmd.CancelEvent
      End If
     
End Sub