Basic - error en los codigos fuentes

   
Vista:

error en los codigos fuentes

Publicado por Alberto (1 intervención) el 05/04/2008 07:44:20
hola a todos;
estoy haciendo un programas que calcula en todas las formas, en visual basic pero en access en la misma base de datos, en la parte de formulario, cuando lo ejecuto me manda error en la primera linea y cada campo se llama como esta en los codigos, necesito saber poque me manda error. el codigo 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:error en los codigos fuentes

Publicado por Antoni Masana (35 intervenciones) el 07/04/2008 06:51:45
Como no dices cual es el error no se cual es el problema.
Intenta replantear la explicación un poco mejor por que no entiendo el problema.

Cuando dices que la primera linea te da error, ¿Esta es la primera linea?

Private Sub CommandButton3_Click()

¿O es esta?

Dim BD As Database

Solo un comentario más, esto:

Dim cant1, cant2, cant3, cant4, cant5, cant6, cant7, cant8 As Integer

No es lo mismo que esto:

Dim cant1 As Integer , cant2 As Integer, cant3 As Integer,cant4 As Integer
Dim cant5 As Integer, cant6 As Integer, cant7 As Integer, cant8 As Integer
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar