14/03/2006, 13:34
|
| | | Fecha de Ingreso: enero-2006
Mensajes: 83
Antigüedad: 19 años, 3 meses Puntos: 0 | |
| el codigo
es un textbox que realiza una accion numerica
If (Not Recordset.BOF) And (Not Recordset.EOF) Then
Text1 = Recordset("campo1")
Else
MsgBox "La tabla no contiene registros"
Dim pos As Integer
If (Not IsNumeric(Text5.Text)) Then
Text5.Text = 0
End If
Text6.Text = Format(CLng(CDbl(Text5.Text)) * 50 / 100, "##,##0.00")
pos = Text5.SelStart
If (CDbl(Text5.Text) / 1000 >= 1) Then
pos = pos + 1
End If
Text5.Text = Format(Text5.Text, "##,##0.00")
Text5.SelStart = pos |