26/06/2006, 08:10
|
| | | Fecha de Ingreso: junio-2006
Mensajes: 5
Antigüedad: 18 años, 10 meses Puntos: 0 | |
| YO USO ESTO
Private Sub Calcular_Click()
Dim I, Val1 As Integer
Dim Formato As String
Pagos.Text = " "
Formato = "###,###.00"
Correcto = MsgBox("DESEA CALCULAR EL MONTO....", vbYesNo, "CALCULA DE PAGO")
If Correcto = vbYes Then
For I = 0 To DBGrid1.ApproxCount - 1
DBGrid1.Row = I
Val1 = Format(Val1 + DBGrid1.Columns(14), Formato)
Next I
Pagos.Text = Format(Val1, Formato)
Else
Unload Me
End If
Calcular.Enabled = False
End Sub
P.D (ME SALTA UN ERROR CUANDO SON MUCHOS CAMPOS)
ERROR 6148 NUMERO DE FILA INCORRECTA |