UREGENTE GRAVAR DADOS EM 2 TABELAS AO MESMO TEMPO

NILTON.VIANNA 21/03/2010 17:29:51
#337553

estouu usando Access
no caso tenho um modulo FATURAS
quando for dar baixa na fatura salvar o valor na tabela cliente campo valor

[ô]Ex. que estou usando
Private Sub GBSalvar_Click()

If Not TudoOK Then Exit Sub
If vOp = [Ô]n[Ô] Then

CnSql.Execute [Ô]INSERT INTO CadFaturas (FaturaID, PedidoID, Nome, Endereco, Cidade, Cep, Fone, Bairro, CNPJ, Vendedor, DataPago, Recebe, PG, Pgto, SubTotal, Debito, Total, Obs) VALUES ([ô][Ô] & txtFaturaID.Text & [Ô][ô],[ô][Ô] & txtNome.Text & [Ô][ô],[ô][Ô] & txtEndereco.Text & [Ô][ô],[ô][Ô] & txtCidade.Text & [Ô][ô],[ô][Ô] & txtCep.Text _
& [Ô][ô],[ô][Ô] & txtFone.Text & [Ô][ô],[ô][Ô] & txtBairro.Text & [Ô][ô],[ô][Ô] & txtCnpj.Text & [Ô][ô],[ô][Ô] & txtVendedor.Text & [Ô][ô],[ô][Ô] & txtDataPago.Text & [Ô][ô],[ô][Ô] & txtRecebe.Text & [Ô][ô],[ô][Ô] & txtPG.Text & [Ô][ô],[ô][Ô] & txtPgto.Text & [Ô][ô],[ô][Ô] & txtSubTotal.Text & [Ô][ô],[ô][Ô] & txtDebito.Text & [Ô][ô],[ô][Ô] & txtTotal.Text & [Ô][ô],[ô][Ô] & txtObs.Text & [Ô][ô])[Ô]

vOp = [Ô][Ô]
LimpaTela Me

Else
CnSql.Execute [Ô]UPDATE CadFaturas SET DATAPAGO = [ô][Ô] & txtDataPago.Text & [Ô][ô], RECEBE = [ô][Ô] & txtRecebe.Text & [Ô][ô], PG = [ô][Ô] & txtPG.Text & [Ô][ô], DEBITO = [ô][Ô] & txtDebito.Text & [Ô][ô], SUBTOTAL = [ô][Ô] & txtDebito.Text & [Ô][ô], OBS = [ô][Ô] & txtObs.Text & [Ô][ô] WHERE FaturaID = [Ô] & txtFaturaID.Text

GravaClienteDebito

vOp = [Ô][Ô]
LimpaTela Me
End If
GBCancela_Click
End Sub

[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
[ô] SALVAR SE FOR DéBITO EM CLIENTES
Private Sub GravaClienteDebito()
RSG.Open [Ô]CadClientes[Ô], CnSql, 1, 3
vOp = [Ô][Ô]
txtValor.Text = Format$(CCur(txtTotal.Text), [Ô]##,##0.00[Ô])
txtPG.Text = [Ô]Não[Ô]
CnSql.Execute [Ô]UPDATE CadClientes SET VALOR = [ô][Ô] & txtValor.Text & [Ô][ô], PG = [ô][Ô] & txtPG.Text & [Ô][ô] WHERE ClienteID = [Ô] & txtClienteID.Text
vOp = [Ô][Ô]
RSG.Close
End Sub

TENHO A TABELA CADCLIENTES E A TABELA CADFATURAS
*Quando for dar baixa na fatura gravar co campo Valor em Tabela Cliente o débito da fatura.
no caso seria um UPGRAD na tabela CadClientes ??

Grato..