Ayuda por favor, soy nuevo en el foro y en el tema de programacion con VB.
Estoy haciendo un programa del tipo venta de comidas.
Son 2 Formularios en el primero se indican lascantidades de bebidas, postres, comidas, etc. y en el segundo los valores.
en el Form1 tiene un command que lo que hace es darte el total en $ de bebidas,comidas,postres,etc.
en esa parte me da un error, no se como es si lo hice bien por favor ayudenme e indiquenme cual es mi error si no es de mucha molestia, Gracias!
Aqui esta el codigo :
Código:
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim n As Integer
Dim o As Integer
Dim p As Integer
Dim q As Integer
Dim r As Integer
Dim s As Integer
Dim t As Integer
Dim u As Integer
Dim v As Integer
'En esta parte me da el error
'Bebidas
a = Form2.txtCoca600 * Coca600
b = Form2.txtCoca1 * Coca1
c = Form2.txtAguamedio * Aguamedio
d = Form2.txtAgua1 * Agua1
e = Form2.txtPilsen1 * Pilsen1
f = Form2.txtWhisky * Whisky
'Poestres
v = Form2.txtTarta * Tarta
g = Form2.txtHelado * Helado
h = Form2.txtFlan * Flan
i = Form2.txtLemon * Lemon
j = Form2.txtMacini * Macini
'Comidas
k = Form2.txtBraserito * Braserito
l = Form2.txtVacio * Vacio
m = Form2.txtTira * Tira
n = Form2.txtMilanesa * Milanesa
o = Form2.txtFritas * Fritas
p = Form2.txtFideo * Fideo
q = Form2.txtChivito * Chivito
r = Form2.txtHamburguesa * Hamburguesa
s = Form2.txtHamburguesasalsa * Hamburguesasalsa
'Varios
t = Form2.txtVario1 * Vario1
u = Form2.txtVario2 * Vario2
'.................................................
TB = a + b + c + d + e + f
TP = g + h + i + j + v
TC = k + l + m + n + o + p + q + r + s
TV = t + u
'.................................................
ST = TB + TP + TC + TV
Iva = (ST * 100) / 22
Total = ST + Iva
End sub
Gracias nuevamente.