Programación General > Visual Basic 6.0 e inferiores

 Procedimiento Demasiado Largo?

(1/3) > >>

_vgt_:
mmmmmmmm pues eso... estoy probando un procedimiento de introduccion de datos en una bd y me dice eso, k el procedimiento es demasiado largo :huh: ... hay alguna forma de saltarse ese error?...

muxas asias !!!

Sagutxo:
Salu2.
¿Puedes poner el trozo de código donde te da el error?. sino será muy difícil ayudarte.

 :comp:

_vgt_:
Es k es una cosa un poco rara xk no me da el error en una linea de código concreta sino k se pone a ejecutar un procedimiento y de repente me saca un msgbox diciendome k el procedimiento es demasiado largo... de todas formas te pongo el "chorizo" de codigo x si soy yo desde mi inmensa garrulidad xD

(te agradeceria tb k si existe otra forma de hacerlo k sea menos "garrula", como verás actualizo el contenido del almacen  con el contenido de las cajas de texto en donde el usuario ha escrito... ufff, un poco liosillo...)

Muchas gracias de antemano  :lol:
ahi va eso:
[CODE]
'-------------------------------------------------------------------------------------------
If fraArticulo(0).Visible = True Then
   
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla1") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades1") = adcArticulos.Recordset.Fields("Unidades1") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
   
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla2") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades2") = adcArticulos.Recordset.Fields("Unidades2") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla3") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades3") = adcArticulos.Recordset.Fields("Unidades3") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla4") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades4") = adcArticulos.Recordset.Fields("Unidades4") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla5") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades5") = adcArticulos.Recordset.Fields("Unidades5") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla6") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades6") = adcArticulos.Recordset.Fields("Unidades6") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla7") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades7") = adcArticulos.Recordset.Fields("Unidades7") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla8") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades8") = adcArticulos.Recordset.Fields("Unidades8") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla9") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades9") = adcArticulos.Recordset.Fields("Unidades9") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla10") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades10") = adcArticulos.Recordset.Fields("Unidades10") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla11") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades11") = adcArticulos.Recordset.Fields("Unidades11") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla12") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades12") = adcArticulos.Recordset.Fields("Unidades12") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla13") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades13") = adcArticulos.Recordset.Fields("Unidades13") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla14") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades14") = adcArticulos.Recordset.Fields("Unidades14") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla15") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades15") = adcArticulos.Recordset.Fields("Unidades15") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla16") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades16") = adcArticulos.Recordset.Fields("Unidades16") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
   
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla17") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades17") = adcArticulos.Recordset.Fields("Unidades17") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla18") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades18") = adcArticulos.Recordset.Fields("Unidades18") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
   
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla19") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades19") = adcArticulos.Recordset.Fields("Unidades19") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If
   
    If Text13(0).Text = adcArticulos.Recordset.Fields("Talla20") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades20") = adcArticulos.Recordset.Fields("Unidades20") - Val(Text14(0).Text)
        adcArticulos.Recordset.Update
       
    End If

End If

If fraArticulo(1).Visible = True Then

    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla1") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades1") = adcArticulos.Recordset.Fields("Unidades1") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
   
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla2") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades2") = adcArticulos.Recordset.Fields("Unidades2") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla3") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades3") = adcArticulos.Recordset.Fields("Unidades3") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla4") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades4") = adcArticulos.Recordset.Fields("Unidades4") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla5") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades5") = adcArticulos.Recordset.Fields("Unidades5") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla6") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades6") = adcArticulos.Recordset.Fields("Unidades6") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla7") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades7") = adcArticulos.Recordset.Fields("Unidades7") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla8") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades8") = adcArticulos.Recordset.Fields("Unidades8") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla9") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades9") = adcArticulos.Recordset.Fields("Unidades9") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla10") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades10") = adcArticulos.Recordset.Fields("Unidades10") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla11") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades11") = adcArticulos.Recordset.Fields("Unidades11") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla12") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades12") = adcArticulos.Recordset.Fields("Unidades12") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla13") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades13") = adcArticulos.Recordset.Fields("Unidades13") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla14") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades14") = adcArticulos.Recordset.Fields("Unidades14") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla15") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades15") = adcArticulos.Recordset.Fields("Unidades15") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla16") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades16") = adcArticulos.Recordset.Fields("Unidades16") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
   
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla17") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades17") = adcArticulos.Recordset.Fields("Unidades17") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla18") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades18") = adcArticulos.Recordset.Fields("Unidades18") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
   
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla19") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades19") = adcArticulos.Recordset.Fields("Unidades19") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If
   
    If Text13(1).Text = adcArticulos.Recordset.Fields("Talla20") Then
        adcArticulos.Recordset.Edit
        adcArticulos.Recordset.Fields("Unidades20") = adcArticulos.Recordset.Fields("Unidades20") - Val(Text14(1).Text)
        adcArticulos.Recordset.Update
       
    End If

End If
'----------------------------------------------------------------------------------------------

Sagutxo:
Es posible que tengas demasiados if prueba a ponerlos con un
SELECT case Text13(0).Text

case patatin

case patatan

   Comento, tengo la sensacion de que hay excesivo codigo ademas veo que en el campo de comprobacion if solo cambia el último número lo que supuestamente hace mas facil la reducción del codigo. Me encantaría orientarte, pero hasta ahora no me ha hecho falta utilizar el evento .fields en mis aplicaciones, y no tengo ni idea de que es lo que hace. si puedo luego telo miro.

Suerte.Agur.

_vgt_:
Con el adc.recordset.fields ("nombre del campo") haces referencia a un campo de una base de datos... x ejemplo en el codigo ese k he puesto lo k estoy haciendo es meter en el campo unidades1 el valor de una caja de texto...  yo suelo usarlo muxo xk no me gusta enlazar las cajas de texto (x ejemplo) a la base de datos... no se, pa gustos colores... soy un poco raro programando y mis profesores dicen k a veces me rallo demasiado xD

Saludos y gracias !!

Navegación

[0] Índice de Mensajes

[#] Página Siguiente