MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    Duplicar Registro em outra tabela

    avatar
    andresoares
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 04/11/2013

    Duplicar Registro em outra tabela Empty Duplicar Registro em outra tabela

    Mensagem  andresoares 3/11/2015, 18:05

    Win 7, Access 2010.

    Boa tarde!

    Preciso de ajuda para o seguinte código.

    Private Sub Comando182_Click()
    On Error GoTo Erro
    Dim Qtde As Integer, I As Integer
    If MsgBox("Confirma APROVAÇÃO do pedido para Fabrica?", vbYesNo + vbQuestion, "Atenção!") Then
    Qtde = InputBox("Confirme Quantidade de peças.", "Clonagem de Título.")
    Set rsMov = CurrentDb.OpenRecordset("TESTE2")
    For I = 1 To Qtde
    rsMov.AddNew
    rsMov("PedidoInterno") = Me.PedidoInterno
    rsMov("Cotacao") = Me.COTACAO
    rsMov("Empresa") = Me.EMPRESA
    rsMov("CodDoItem") = Me.CodDoItem
    rsMov("PedidoCliente") = Me.PedidoCliente
    rsMov("ItemPedido") = Me.ItemPedido
    rsMov("TipoDeTransporte") = Me.TipoDeTransporte
    rsMov("EntradaNaLumar") = Me.EntradaNaLumar
    rsMov("DataEntrega") = Me.DataEntrega
    rsMov("EntregaDoSetor") = Me.EntregaDoSetor
    rsMov("PrevisaoDeFabrica") = Me.PrevisaoDeFabrica
    rsMov("Natureza") = Me.NATUREZA
    rsMov("Setor") = Me.SETOR
    rsMov("Desenho") = Me.Desenho
    rsMov("Qtde") = I & "_" & Qtde
    rsMov("DescricaoParaFabrica") = Me.DescricaoParaFabrica
    rsMov("DescricaoComercial") = Me.DescricaoComercial
    rsMov("ValorTotal") = Me.ValorTotal
    rsMov("ValorUnitario") = Me.ValorUnitario
    rsMov("PrevisaoDeCarteira") = Me.PrevisaoDeCarteira
    rsMov("AnaliseDePedido") = Me.AnaliseDePedido
    rsMov("Quem") = Me.QUEM
    rsMov("Observacoes") = Me.Observacoes
    rsMov("SolicitacaoDePosterga") = Me.SolicitacaoDePosterga
    rsMov("Confirmacao") = Me.CONFIRMACAO
    rsMov("OrcamentoEnviado") = Me.OrcamentoEnviado
    rsMov("PedidoAprovado") = Me.PedidoAprovado
    rsMov("Pendencias") = Me.Pendencias
    rsMov("Status") = Me.STATUS
    rsMov.Update
    Next I
    MsgBox "Pedido aprovado com sucesso.", vbInformation, strTitulo & strVersao
    Set rsMov = Nothing
    Else
    MsgBox "Operação cancelada.", vbInformation, "Atenção!!"
    Exit Sub
    End If
    Sai:
    Set rsMov = Nothing
    Exit Sub
    Erro:
    MsgBox "Erro ao aprovar pedido.", vbInformation, "Atenção!!"
    Resume Sai
    End Sub


    Sempre que o executo ele vai direto para a linha

    MsgBox "Erro ao aprovar pedido.", vbInformation, "Atenção!!"

    E encerra o código.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Duplicar Registro em outra tabela Empty Re: Duplicar Registro em outra tabela

    Mensagem  Silvio 4/11/2015, 09:56

    Bom dia André...

    Poste partes do sistema envolvida em um servidor externo e cole o link aqui.
    Grato.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    andresoares
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 04/11/2013

    Duplicar Registro em outra tabela Empty Re: Duplicar Registro em outra tabela

    Mensagem  andresoares 4/11/2015, 10:07

    https://drive.google.com/folderview?id=0B1sMJ1YmJY1bRTZVNzVxUldiUFk&usp=sharing
    avatar
    andresoares
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 04/11/2013

    Duplicar Registro em outra tabela Empty Re: Duplicar Registro em outra tabela

    Mensagem  andresoares 4/11/2015, 10:57

    Senhores, bom dia novamente. Apenas para dizer que consegui resolver.

    O que fiz foi trocar o For de lugar. Subi ele uma linha e resolvi os problema.

    Resolvido.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Duplicar Registro em outra tabela Empty Re: Duplicar Registro em outra tabela

    Mensagem  Silvio 4/11/2015, 11:12

    Que bom, o fórum agradece o retorno.
    Abraços e sucesso.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 3/12/2022, 01:21