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]Inserir na venda

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1591
    Registrado : 18/07/2010

    [Resolvido]Inserir na venda Empty [Resolvido]Inserir na venda

    Mensagem  Agravina 11/11/2021, 22:13

    Pessoal preciso de uma ajudinha
    como lançar o item na venda atraves de outro formulário
    deixo o db exemplo para melhor  entedimento
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido]Inserir na venda Empty Re: [Resolvido]Inserir na venda

    Mensagem  DamascenoJr. 14/11/2021, 01:19

    Se tinha anexo, este não veio.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1591
    Registrado : 18/07/2010

    [Resolvido]Inserir na venda Empty Re: [Resolvido]Inserir na venda

    Mensagem  Agravina 17/11/2021, 17:30

    Estava com dificuldades com o anexo
    https://www.dropbox.com/s/03yz8hqmy8qvzz4/Novo%28a%29%20Microsoft%20Access%20Banco%20de%20Dados.zip?dl=0
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1591
    Registrado : 18/07/2010

    [Resolvido]Inserir na venda Empty Re: [Resolvido]Inserir na venda

    Mensagem  Agravina 20/11/2021, 19:10

    up
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 237
    Registrado : 21/05/2015

    [Resolvido]Inserir na venda Empty Re: [Resolvido]Inserir na venda

    Mensagem  ARGONZALE 22/11/2021, 14:09

    Bom dia,

    Damasceno, com sua licença vou postar o código que tenho aqui e que já está alterado para os dados do nosso colega Agravina:

    Agravina,

    Cole este código ao clicar duas vezes no seu Form de Pesquisa:

    Código:
    Set db = CurrentDb()
    Dim rsP As DAO.Recordset 'Variavel para pegar a tabela

    Set rsP = db.OpenRecordset("SELECT * FROM tbldetalhe_sisPDV")


    'Adiciono os dados na tabela DetVendas
        rsP.AddNew
        rsP("coddetalhevenda") = Forms!FrmpontodeVenda!codvenda
        'rsP("ID_Produtos") = Me.Lista0
        rsP("Quant") = 1
        rsP("vlrunitario") = Me.Lista0.Column(2)
        rsP("descricao") = Me.Lista0.Column(1) 'Forms!Cs_Produtos!Lista.Column(2) 'Forms!Vendas2!DetVendas_0!cbxdescrição2.Column(2)
        rsP.Update

    'Fecha a Conexão aberta
    Set rsP = Nothing
    'atualiza os formulários
    Forms!FrmpontodeVenda.Refresh
    Forms!FrmpontodeVenda!frmdetalhesvenda.Requery
    Forms!FrmpontodeVenda!frmdetalhesvenda.SetFocus
    DoCmd.GoToRecord , , acNewRec
    DoCmd.Close acForm, "FrmPesquisa"


    .................................................................................
    Att.

    Alexandre Gonzales
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1591
    Registrado : 18/07/2010

    [Resolvido]Inserir na venda Empty Re: [Resolvido]Inserir na venda

    Mensagem  Agravina 23/11/2021, 00:19

    Muito agradecido ao colega ARGONZALES
    funcionou perfeitamente obrigado mais um vez!
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 237
    Registrado : 21/05/2015

    [Resolvido]Inserir na venda Empty Re: [Resolvido]Inserir na venda

    Mensagem  ARGONZALE 23/11/2021, 02:38

    Maravilha Agravina,

    Não esqueça de finalizar o Tópico como resolvido.


    .................................................................................
    Att.

    Alexandre Gonzales
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1591
    Registrado : 18/07/2010

    [Resolvido]Inserir na venda Empty Re: [Resolvido]Inserir na venda

    Mensagem  Agravina 23/11/2021, 09:10

    Pereito!

      Data/hora atual: 24/9/2022, 21:08