MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3953
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 19/1/2018, 18:35

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Leandro
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 12/11/2009

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

    Mensagem  Leandro em 19/1/2018, 18:50

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


    .................................................................................
    n







    ALGUMAS SOLUÇÕES E IDEIAS EM ACCESS

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3953
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 19/1/2018, 19:06

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6806
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 20/1/2018, 14:36

    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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3953
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 20/1/2018, 21:50

    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.
    Anexos
    forum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.8 Mb) Baixado 8 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5295
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 20/1/2018, 22:51

    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
    avatar
    Leandro
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 12/11/2009

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

    Mensagem  Leandro em 22/1/2018, 11:22

    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


    .................................................................................
    n







    ALGUMAS SOLUÇÕES E IDEIAS EM ACCESS

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3953
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 22/1/2018, 18:02

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3953
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 22/1/2018, 20:09

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Leandro
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 12/11/2009

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

    Mensagem  Leandro em 23/1/2018, 12:57

    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.


    .................................................................................
    n







    ALGUMAS SOLUÇÕES E IDEIAS EM ACCESS

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3953
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 23/1/2018, 13:17

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 21/7/2018, 14:48