codigos de programacion
Publicado por Alberto (1 intervención) el 05/04/2008 07:24:23
hola a todos los del foro;
necesito ayuda sobre como puedo programar una base de datos hecha en access que suma, resta ,divida y mutiplicar, con codigos en lenguaje.
ya que tengo el siguiente codigo en visual basic que es el siguiente:
Private Sub CommandButton3_Click()
Dim BD As Database
Dim t As Recordset
Dim cant1, cant2, cant3, cant4, cant5, cant6, cant7, cant8 As Integer
Dim tol1, tol2, tol3, tol4, tol5, tol6, tol7, tol8, ting, tegr, tliq As Long
cant1 = Val(Texto.Text) - Val(Texto.Text)
cant2 = Val(Texto77.Text) - Val(Texto93.Text)
cant3 = Val(Texto79.Text) - Val(Texto95.Text)
cant4 = Val(Texto81.Text) - Val(Texto97.Text)
cant5 = Val(Texto83.Text) - Val(Texto99.Text)
cant6 = Val(Texto85.Text) - Val(Texto101.Text)
cant7 = Val(Texto87.Text) - Val(Texto103.Text)
cant8 = Val(Texto89.Text) - Val(Texto105.Text)
tol1 = Val(val1.Text) * cant1
tol2 = Val(val2.Text) * cant2
tol3 = Val(val3.Text) * cant3
tol4 = Val(val4.Text) * cant4
tol5 = Val(val5.Text) * cant5
tol6 = Val(val6.Text) * cant6
tol7 = Val(val7.Text) * cant7
tol8 = Val(val8.Text) * cant8
necesito ayuda sobre como puedo programar una base de datos hecha en access que suma, resta ,divida y mutiplicar, con codigos en lenguaje.
ya que tengo el siguiente codigo en visual basic que es el siguiente:
Private Sub CommandButton3_Click()
Dim BD As Database
Dim t As Recordset
Dim cant1, cant2, cant3, cant4, cant5, cant6, cant7, cant8 As Integer
Dim tol1, tol2, tol3, tol4, tol5, tol6, tol7, tol8, ting, tegr, tliq As Long
cant1 = Val(Texto.Text) - Val(Texto.Text)
cant2 = Val(Texto77.Text) - Val(Texto93.Text)
cant3 = Val(Texto79.Text) - Val(Texto95.Text)
cant4 = Val(Texto81.Text) - Val(Texto97.Text)
cant5 = Val(Texto83.Text) - Val(Texto99.Text)
cant6 = Val(Texto85.Text) - Val(Texto101.Text)
cant7 = Val(Texto87.Text) - Val(Texto103.Text)
cant8 = Val(Texto89.Text) - Val(Texto105.Text)
tol1 = Val(val1.Text) * cant1
tol2 = Val(val2.Text) * cant2
tol3 = Val(val3.Text) * cant3
tol4 = Val(val4.Text) * cant4
tol5 = Val(val5.Text) * cant5
tol6 = Val(val6.Text) * cant6
tol7 = Val(val7.Text) * cant7
tol8 = Val(val8.Text) * cant8
Valora esta pregunta


0