CALCULAR E EXECUTAR UPDATE NA MESMA TABELA

XXXANGELSXXX 11/12/2009 21:40:04
#329567
Amigos, estou com uma coisinha aqui que para voces vai ser muito facil, eu tenho uma tabela que se chama tabauxiliarcomissao, eu preciso so pegar o valor que estiver no campo valorpago multiplicar por 45% e gravar em outro campo da mesma tabela com nome valorcomissaoapuradacrm, vejam mais ou menos o que estou tentando fazer..



Sub FU_GRAVAVALORESCOMISSAOAPURADASCRM()
Me.Caption = [Ô]Processando Valores Comissão Apuradas pelo CRM[Ô]
[ô]On Error Resume Next
Dim strSql As String
Dim rsValorSomado As ADODB.Recordset

If ConectarBDados Then
Set rs = New ADODB.Recordset

strSql = [Ô]select * from TabAuxiliarComissao[Ô]
rs.CursorLocation = adUseClient
rs.Open strSql, cn, adOpenDynamic, adLockBatchOptimistic
Bar.Max = rs.RecordCount
While Not rs.EOF
Set rsValorSomado = New ADODB.Recordset
rsValorSomado.CursorLocation = adUseClient
rsValorSomado.Open strSql, cn, adOpenDynamic, adLockBatchOptimistic

If Not rsValorSomado.EOF Then
strSql = [Ô]UPDATE TABAUXILIARCOMISSAO SET ValorComissaoApuradaCRM(SELECT SUM(ValorPago) * 45% FROM TABAUXILIARCOMISSAO Where CliCodigo = rs!CliCodigo[Ô]
cn.Execute strSql
End If
Bar.Value = Bar.Value + 1
rs.MoveNext


Wend

rs.Close
Set rs = Nothing
Else
cn.Close
Set cn = Nothing
End If
Bar.Value = 0

End Sub

[th][/th]
Cabecalho
TECLA 11/12/2009 21:59:25
#329568 Resposta escolhida
Altere somente esta linha e veja se é isso que precisa.

strSql = [Ô]UPDATE TABAUXILIARCOMISSAO SET ValorComissaoApuradaCRM = ValorPago * 0.45 WHERE CliCodigo=[Ô] & rs!CliCodigo
XXXANGELSXXX 12/12/2009 03:09:09
#329572
Citação:

TECLA escreveu:
Altere somente esta linha e veja se é isso que precisa.

strSql = [Ô]UPDATE TABAUXILIARCOMISSAO SET ValorComissaoApuradaCRM = ValorPago * 0.45 WHERE CliCodigo=[Ô] & rs!CliCodigo

Amigo Deu erro. Tipo de dados incompativeis na expressão de critério... estou mandando o printo junto para saber a linha do erro..

Tópico encerrado , respostas não são mais permitidas
Voltar