Presados Senhores

 

Feliz 2006 a todos

 

TO COM E SEGIUNTE PROBLEMA

 

PRECISO SOMAR OS CAMPOS DE UMA TABELA COM UMA CONDIÇÃO, E ARMAZENA-LOS EM OUTRA TRABELA 

 

Private Sub LaVolpeButton16_Click()
  
 If MsgBox("Confirma Exclusão do Produto da Orden de Serviço ,& txtos ?", vbYesNo) = vbYes Then
    
    Dim CRITERIODELPROD As String
    Dim SQLDELPROD As String
    CRITERIODELPROD = Chr$(39) & txtprodexcluir.Text & Chr(39)
    SQLDELPROD = "DELETE PECA FROM PECASAPLIC WHERE PECA LIKE " & CRITERIODELPROD
    bancodados.Execute SQLDELPROD
    Data6.Refresh
   
criteriosomar1 = Chr$(39) & txtos.Text & Chr(39)
Dim DB As DAO.Database, RS As DAO.Recordset
'Dim DB As Database
'Dim RS As Recordset
Dim VALORTESTE As Currency
      'Set DB = DBEngine.OpenDatabase(App.Path & "dservilar.MDB", False, False, "")
      Set DB = DBEngine.OpenDatabase(App.Path & "dservilar.MDB")
      'Set RS = DB.OpenRecordset("select sum(valortotal) from pecasaplic where n_os LIKE " & criteriosomar1, dbOpenForwardOnly, dbReadOnly)
       Set RS = DB.OpenRecordset("select sum(valortotal) from pecasaplic where n_os LIKE " & criteriosomar1)
          
     'Set DB = OpenDatabase(App.Path & "/BDSERVILAR.MDB")
      DB.Execute "insert into SProdOS (VALORTOTAL) values (1)"
      DB.Execute "update SProdOS set VALORTOTAL = (" & RS(0) & ")"
   
    Dim RESVTOTAL As Currency
    RESVTOTAL = TBSPRODOS("VALORTOTAL")
           
    TBVTOTALOS.AddNew
    TBVTOTALOS("VALORTOTAL") = RESVTOTAL
    TBVTOTALOS("N_OS") = txtos
    TBVTOTALOS.Update
 
    TBSPRODOS.AddNew
    TBSPRODOS("VALORTOTAL") = RESVTOTAL
    TBSPRODOS.Update
    MaskEdBoxvalpecas.Text = RESVTOTAL
     
     TBOS.Seek "=", txtos.Text
     If TBOS.NoMatch = False Then
       TBOS.Edit
       TBOS("VALORTOTALPECAS") = MaskEdBoxvalpecas
       TBOS.Update
      End If
   End If
End Sub

 

 

A IDEIA E INCLUIR PRODUTOS EM UM ORÇAMENTO, NAO QUERENDO MAIS O PRODUTO EXCUIR, MAS SO QUE QUANDO EXCLUIR ELE DEVERA SUBTRAIR O VALOR, SO QUE QUANDO EXECULTO DA ERRO E QUANDO COLOCO VALORES POR EXEMPLO (3,20) COM CASAS DECIMAIS ELES DA PROBLEMA NA HORA DE ARMAZENAR, E MEU CAMPO DA TABELA TA COMO CURRENCY

 

SE TIVEREM OUTRO CODIGO

 

SO PRECISO SOMAR OS VALORES E ACRECENTAR EM UMA UTRA TABELA

 

 

Pelo que entendi, você esta fazendo um programa para venda. Por que você não acrescenta na outra tabela só se confirmar a venda do pedido. Fiz um programa de venda e ia acumulando o total em um text e dando refresh no grid, quando confirmava a venda ele registrava na outra tabela.

 

Verifique o formato do campo no Banco de dados onde você quer fazer o registro, talvez seja por isso que está dando o erro.

 

Não sei se era essa sua dúvida, mas tai. Qualquer coisa poste denovo.

EM QUAL LINHA DÁ ERROR ?

o erro acontece nesta linha

 

 DB.Execute "update SProdOS set VALORTOTAL = (" & RS(0) & ")"

 

mas usei o seguinte e funcionou.

 

TBTABELA.EDIT

       TBTABELA("CAMPO") = RS(0)

TBTABELA.UPDATE

 

O motivo do erro deve ser que provavelmente seu computador esta no formato brasileiro ou seja . para casa de milhar e , para casa de decimal

Sempre que voce passar instruções no formato SQL voce deverá seguir os padrões americanos, isso tanto para dados numéricos como para dados de data.