Visual Basic - ayuda con GOTO urgente

Life is soft - evento anual de software empresarial
 
Vista:

ayuda con GOTO urgente

Publicado por txetxo (88 intervenciones) el 09/07/2003 12:35:36
Hola
tengo las siguientes instrucciones:
a = "ref_sub like '*" & cod_product.Text & "*'"
Data2.Recordset.FindFirst a
While Data2.Recordset.Fields("ref_sub") = cod_product.Text
contar = contar + 1
Data2.Recordset.MoveNext
Wend
If contar > 15 Then GoTo error Else GoTo correcto

correcto:
contar = 0
While Not Data13.Recordset.EOF And Data2.Recordset.Fields("ref_sub") = Val(cod_product.Text)

error:
contar = 0
Data1.Recordset.AddNew
Data1.Recordset.Fields("cod") = cod_product.Text
Data1.Recordset.Fields("descripción") = desc_product.Caption
Data1.Recordset.Update

pero cuando ejecuto la aplicacion me hace todo, es decir que no me direfencia la parte verdadera por un lado y la erronea por otro, y me hace las dos.

¿Sabe alguien como solucionar esto?

Gracias de antemano.
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:ayuda con GOTO urgente

Publicado por Cecilia Colalongo (3117 intervenciones) el 09/07/2003 13:56:31
Deberías colocar un Exit Sub o Exit Function según corresponda debajo del If, otra opción es que coloques los bloques que llamas dentro del If:

If contar > 15 Then
contar = 0
Data1.Recordset.AddNew
Data1.Recordset.Fields("cod") = cod_product.Text
Data1.Recordset.Fields("descripción") = desc_product.Caption
Data1.Recordset.Update
Else
contar = 0
While Not Data13.Recordset.EOF And Data2.Recordset.Fields("ref_sub") = Val(cod_product.Text)
End If
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