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:
Gracias nuevamente. 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