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

    Como enviar dados de venda para outra tabela

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Como enviar dados de venda para outra tabela Empty Como enviar dados de venda para outra tabela

    Mensagem  Agravina 7/11/2015, 11:15

    Bom dia!
    Tenho um sistema de venda PDV
    Quando cliente compra fiado quero enviar os dados desta compra para tabela
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Como enviar dados de venda para outra tabela Empty Re: Como enviar dados de venda para outra tabela

    Mensagem  Silvio 7/11/2015, 12:33

    Bom dia....algo parecido com isso...



    Código:
    Private Sub EncerrarOSavista_Click()
    ' ao clicar vai exportar campos para a tabela contas a receber a vista
        Dim db1 As Database, rs1 As DAO.Recordset
        If MsgBox("Confirma o Fechamento a vista dessa Ordem de Serviço ?", vbYesNo + vbQuestion, Me.Caption) = vbYes Then
       
        Set db1 = CurrentDb
       
        Set rs1 = db1.OpenRecordset("tblrecebeavista")  '- > coloque aqui o nome da tabela que vai receber os dados a prazo
       
        With rs1
        ' os campos abaixo do formulário tem que ser iguais aos que estão na tabela para realizar a exportação
        .AddNew
        ' campos que estão na tabela = campos do formulário
        ![IDOS] = Me.IDOservico
        ![DataOS] = Me.DataOS
        ![IdCliente] = Me.IdCliente
        ![NOME] = Me.NOME
        ![Fone] = Me.Fone
        ![Celular] = Me.Celular
        ![CPF] = Me.CPF
        ![CNPJ] = Me.CNPJ
        ![TotalMO] = Me.TG1
        .Update
        End With
       
     
     
        'DoCmd.GoToRecord , , acNewRec
       
        '* aqui eu travo os campos no formulário
        Me.AllowEdits = False 'trava edição
        Me.AllowAdditions = False ' trava adição
        Me.AllowDeletions = False 'trava exclusão
        Me.SFsaidapeca.Enabled = False
        Me.subfrmst.Enabled = False
        Me.rtlenc.Visible = True
       
        MsgBox "Encerrramento á Vista Confirmado.... !", vbOKOnly + vbInformation, Me.Caption
       
       
        If MsgBox("Deseja abrir o formulário de recebimento a vista?", vbYesNo + vbQuestion, Me.Caption) = vbYes Then
        DoCmd.Close
        DoCmd.OpenForm "frmrecebeavista"
        Else
        DoCmd.CancelEvent
       
        End If
        Else
        DoCmd.CancelEvent
        Me.EncerrarOSavista = False
        End If
       
    End Sub

    Obs....troque os nomes de campos de tabela e de formulário para os teus.

      Data/hora atual: 2/12/2022, 00:52