Multilplicar!!!!!!!!
Publicado por Germany (53 intervenciones) el 08/06/2006 18:02:45
Saludos! tengo el siguiente problema y al verdad ya no se que modificar para tome la moneda como es cuando se multilplica dos label
aqui estan las lineas de codigo para que vean lo que quiero hacer por favor ayudenmeeeeee helppppp!
Dim ccone As ADODB.Connection
Set ccone = New ADODB.Connection
With ccone
.Provider = "microsoft.jet.oledb.4.0"
.Open (App.Path & "\bd_97.mdb")
End With
Dim buscar As ADODB.Recordset
Set buscar = New ADODB.Recordset
buscar.Open "SELECT * FROM tabla WHERE meses= '" & Text8 & "' and anos='" & Text9 & "'", ccone
If buscar.EOF = False Then
Label12 = IIf(IsNull(buscar!preaviso_dias), "", buscar!preaviso_dias)
Label17 = Format(Label17, "##,##0.00")
Label17 = Val(Label12.Caption) * Val(Label15.Caption)
End If
Label17 = Val(Label12.Caption) * Val(Label15.Caption)----> aqui es donde tengo el problema ya que en vez de arrojarme en el label 524.970,00 sale 524,9 por favor ayuda se que es una estupidez pero no sale como quiero
aqui estan las lineas de codigo para que vean lo que quiero hacer por favor ayudenmeeeeee helppppp!
Dim ccone As ADODB.Connection
Set ccone = New ADODB.Connection
With ccone
.Provider = "microsoft.jet.oledb.4.0"
.Open (App.Path & "\bd_97.mdb")
End With
Dim buscar As ADODB.Recordset
Set buscar = New ADODB.Recordset
buscar.Open "SELECT * FROM tabla WHERE meses= '" & Text8 & "' and anos='" & Text9 & "'", ccone
If buscar.EOF = False Then
Label12 = IIf(IsNull(buscar!preaviso_dias), "", buscar!preaviso_dias)
Label17 = Format(Label17, "##,##0.00")
Label17 = Val(Label12.Caption) * Val(Label15.Caption)
End If
Label17 = Val(Label12.Caption) * Val(Label15.Caption)----> aqui es donde tengo el problema ya que en vez de arrojarme en el label 524.970,00 sale 524,9 por favor ayuda se que es una estupidez pero no sale como quiero
Valora esta pregunta


0