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

3 participantes

    [Resolvido]Transformar Orçamento em pedidos

    avatar
    marcofar07
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 02/04/2019

    [Resolvido]Transformar Orçamento  em pedidos Empty [Resolvido]Transformar Orçamento em pedidos

    Mensagem  marcofar07 16/3/2021, 18:39

    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"
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Transformar Orçamento  em pedidos Empty Re: [Resolvido]Transformar Orçamento em pedidos

    Mensagem  Silvio 17/3/2021, 12:21

    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.


    .................................................................................
    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."
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Transformar Orçamento  em pedidos Empty Re: [Resolvido]Transformar Orçamento em pedidos

    Mensagem  Noobezinho 17/3/2021, 14:27

    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. Razz Razz

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    marcofar07
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 02/04/2019

    [Resolvido]Transformar Orçamento  em pedidos Empty Transformar Orçamento em pedidos

    Mensagem  marcofar07 19/3/2021, 01:52

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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Transformar Orçamento  em pedidos Empty Re: [Resolvido]Transformar Orçamento em pedidos

    Mensagem  Noobezinho 19/3/2021, 10:07

    Marco

    Que bom que de certo!

    Boa sorte!

    Balem



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 23/9/2021, 00:19