Início
Agravina 7/11/2015, 08:15Bom dia!
Tenho um sistema de venda PDV
Quando cliente compra fiado quero enviar os dados desta compra para tabela
Tenho um sistema de venda PDV
Quando cliente compra fiado quero enviar os dados desta compra para tabela
2 participantes
Como enviar dados de venda para outra tabela
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
Bom dia....algo parecido com isso...
Obs....troque os nomes de campos de tabela e de formulário para os teus.
- 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.
Tópicos semelhantes
