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

    [Resolvido]Transformar Orçamento em pedidos

    avatar
    marcofar07
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  marcofar07 7/3/2021, 05:07

    Bom dia a todos,
    meu DB está dando essa msg (erro em tempo de execução 3219 operação inválida) ao clicar no botão gerar vendas, peguei o código do diogojoi que o
    Silvio fez as alterações mais quando coloco no formulário orçamento dá essa msg, oque pode ser?
    alguns dos colegas podem me ajudar ?

    O código esta assim no meu DB

    Código:
    Private Sub BtGerarOrdServ_Click()

    Dim dbOrc As Database, rs1, rs2, rs3 As DAO.Recordset

    If MsgBox("Deseja Gerar Ordem de Serviço do Orçamento?", vbYesNo + vbQuestion, "Inclusão do Orçamento na Venda") = vbYes Then

    Set dbOrc = CurrentDb

    Set rs1 = dbOrc.OpenRecordset("Pedido", dbOpenTable)

    With rs1

    .AddNew
    ![IdCliente] = Me.IdCliente

    .Update

    End With


    Set rs2 = dbOrc.OpenRecordset("SELECT * FROM OrcamentoDetalhe WHERE CodigoOrcamento=" & Me.IdPedido)
    Set rs3 = dbOrc.OpenRecordset("PedidoDetalhe", dbOpenTable)


    While (Not rs2.EOF)
    With rs3
    .AddNew
    ![CodigoOrcamento] = DMax("CodigoPedido", "Pedido")
    ![CombinaçãoProduto] = rs2![CombinaçãoProduto]
    ![QtdePedido] = rs2![QtdePedido]
    ![VlUnitario] = rs2![VlUnitario]
    ![Comprimento] = rs2![Comprimento]

    ![SomaVlUnitario] = rs2![SomaVlUnitario]




    .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", acNormal, "IdCliente = " & Me.IdCliente & ""
    DoCmd.Close acForm, "Orçamento1"
    Else

    DoCmd.CancelEvent

    End If
    'DoCmd.OpenForm "frmpedido", acNormal, , "Idorcamento = " & Me.IdOrcamento & ""
    'DoCmd.Close acForm, "frmorcamento"
    End Sub
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 7/3/2021, 12:21

    Marco

    Antes de tudo, vamos ver isso:

    Faz-se o orçamento

    Dai faz o pedido

    e depois a venda

    Se está pensando nisso, melhor  reduzir.

    Uma vez que o orçamento se aprovado, já é um pedido, vai direto pra vendas.

    E venda o que é?

    Caixa

    Teu projeto tem controle de caixa?
    (Caixa diário, mensal e anual)

    Aguardo...


    { }'s

    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 : 40
    Registrado : 02/04/2019

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

    Mensagem  marcofar07 7/3/2021, 13:38

    Noobezinho,
    Obrigado pelo retorno

    Amigo sim tem o form caixa, orçamento e pedido todos funcionando normais, porem queria que estivesse esse botão para enviar esse orçamento para o pedido mais com id do pedido ou seja igual ao exemplo do Silvio
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 7/3/2021, 14:10

    Marco

    Vamos la:

    Declarar variáveis tem que ser completa no Access, assim:

    Dim dbOrc As Database, rs1 as DAO.Recordset, rs2 as DAO.Recordset, rs3 As DAO.Recordset

    Caso não coloque, será variant, padrão do Access.

    Caso não funfe,  rode o código  apertando F8 e veja em que linha dá o erro.

    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 : 40
    Registrado : 02/04/2019

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

    Mensagem  marcofar07 7/3/2021, 18:52

    Amigo Noobezinho,
    Continua a mesma msg nesta parte do código quando clico no botão ORDEM DE SERVIÇO (Set rs1 = dbOrc.OpenRecordset("Pedido", dbOpenTable)

    Eis o DB e o Form

    user:marcos
    Senh:1234

    no mode de progrmação é a tabela orcamento e Pedido
    Formulario Orçamento1 e Pedido_Multiplo1


    link GoogleDrive: https://drive.google.com/file/d/1CVb9ASakOOspHFzo7eoh31UdY5G-eJAg/view?usp=sharing
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 7/3/2021, 20:41

    Marco

    Eis aí teu código
    As frases em azul estão corretas, não tem o dbOpenTable
    As  frases em vermelho é onde o Access diz não ter na coleção, ou seja, não tem  campo  na tabela.
    Tem outros erros precisa dar uma geral.
    Isso está ocorrendo por não colocar os nome nos controles e variáveis.
    Exemplo disso é   rs1, rs2 e rs3 que poderiam ser:
    rsPedidos,rstOrcDetalhes e rsPedDetalhes, respectivamente.

    Assim, na leitura já sabe do que se trata.

    {}'s

    Balem


    Dim dbOrc As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
             Set dbOrc = CurrentDb
             Set rs1 = dbOrc.OpenRecordset("Pedido")
             With rs1
         
           .AddNew
           ![IdCliente] = Me.IdCliente
           ![PlacaNo] = Me!PlacaNo
           .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")
            '      ![CombinaçãoProduto] = rs2![CombinaçãoProduto]
                   ![QtdePedido] = rs2![QtdePedido]
                   ![VlUnitario] = rs2![VlUnitario]
            '      ![Comprimento] = rs2![Comprimento]
                   
            '       ![SomaVlUnitario] = rs2![SomaVlUnitario]
                   .Update
                   rs2.MoveNext
               End With


    .................................................................................
    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 : 40
    Registrado : 02/04/2019

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

    Mensagem  marcofar07 9/3/2021, 00:06

    Boa noite!!
    Amigo Noobezinho
    Deu certo o código, Muito OBRIGADO!! cheers cheers
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 9/3/2021, 00:53

    Marco

    Que bom que deu 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: 16/6/2021, 14:38