Wanderrufie
não registrado
|
|
Postada em 19/08/2008 09:54 hs
Não é possivel que em um site desses ninguem saiba como multiplicar um simples campo por outro e fazer com que o lable mostre o resultado pra cada registro diferente.
poxa 29 pessoas "Desenvolvedores" leram minha rotinha e não deram conta?
pode parar então...
mais de uma semana meu problema esta postado aqui. e.... nada...
muito obrigado a todos
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 19/08/2008 10:49 hs
lbltotal.Caption = CCur((valordocontrato * Comissão) / 100)
ou Dim Vcontrato as Double Dim Comisso as Double Dim Total as Double VContrato = txtValorContrato.Text Comissao = TxtComissao.Text Total = CCur((Vcontrato * Comissao)/100) LblTotal.Caption = Total Bom colega sem pestanejar coloquei o resultado, um deste tem de dar certo, e faz um favor seja mais Humilde se deseja que os outros resolvam seus problemas. Postei como resolver, só pra mostrar que a nossa capacidade não se limita à uma simples equação. |
|
TÓPICO EDITADO
|
|
|
|
Wanderrufie
não registrado
|
|
Postada em 19/08/2008 11:48 hs
Primeiramente me desculpe colega.
não deu certo o que vc falou.
ve se vc acha algo de errado ae:
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:Documents and SettingsAdministradorDesktopMeus ProjetosProjetoEmprestimos.bd1.mdb;"
Set rs = New Recordset
rs.Open "SELECT Codigo,Nome,Órgão,Matricula,Senha,valordocontrato,Banco,Escritório,Prazo,Comissão,Data from cadcon order by codigo", db, adOpenStatic, adLockOptimistic
Dim oText As TextBox
'Bind the text boxes to the data provider
For Each oText In Me.txtfields
Set oText.DataSource = rs
lblTotal.Caption = Format(Total, "R$###,##0.00")
Next
'mbDataChanged = False
If Val(txtfields(10)) <> 0 Then
lblTotal.Caption = CCur(txtfields(10)) / 100 * txtfields(7)
Else
lblTotal.Caption = Total
rs.Update lblTotal
End If
End Sub
o que esta acontecendo:
mostra-se o mesmo resultado em todos os registros
não atualiza imediatamente logo apos a inserção de dados na caixa comissão
Desculpe me por meu tom rude mas preciso disso muito e demorou achar alguem que se interessasse em me ajudar.
se puder ajudar...
Sou-lhe eternamente grato.
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/08/2008 11:58 hs
Bom vamos tente assim veja Private Sub Form_Load()
Dim Valor as Double
Dim Proc as Double Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Documents and Settings\Administrador\Desktop\Meus Projetos\Projeto\Emprestimos.bd1.mdb;"
Set rs = New Recordset
rs.Open "SELECT Codigo,Nome,Órgão,Matricula,Senha,valordocontrato,Banco,Escritório,Prazo,Comissão,Data from cadcon order by codigo", db, adOpenStatic, adLockOptimistic
Dim oText As TextBox
'Bind the text boxes to the data provider
For Each oText In Me.txtfields
Set oText.DataSource = rs
lblTotal.Caption = Format(Total, "R$###,##0.00")
Next
'mbDataChanged = False
Valor = txtfield(10).Text
Porc = txtfields(7).Text
If Valor <> 0 Then
lblTotal.Caption = CCur((Valor / 100) * Porc)
Else
lblTotal.Caption = Total
rs.Update lblTotal
End If
End Sub
|
|
|
|
Wanderrufie
não registrado
|
|
Postada em 19/08/2008 12:26 hs
Tá dificil pra mim veio
ehehehh
deu certo não.
os sintomas são os mesmos:
o lbltotal não atualiza imediatamente
mostra o mesmo resultado pra todos os registros
não acusa erro algum
quando a gente muda o registro devia ser atualizado o lbltotal imediatamente não achas?
outra ideia?
estou no aguarde.
muito obrigado
|
|
|
|
|
|
Postada em 19/08/2008 13:36 hs
pq voce nao poe essa rotina no Change do textbox???? se vc quer que as labels atualize ao mudar o valor, faça isso e dará certo!!! Private Sub txtValor_Change() ... rotina aqui... End Sub Ahh!! e seja mais humilde da proxima vez!!!
================================================================
O Aprendizado é Direito de Todos. O Saber é Privilégio de Poucos. Começando a estudar VB.NET. Realmente é incrível!!!!
|
|
|
|
|
