Problema
Publicado por Cm (68 intervenciones) el 12/11/2018 13:15:00
En la parte principal del programa, tengo:
La función a la que llama tiene como argumentos:
El valor de Producto, que es una caja de texto que está en el formulario activo, es en este caso "zxc". Lo que creo que pasa con este código es que al usar el Mid, el inStr y demás para dar valor al argumento, si en la cadena de entrada no encuentra símbolos del tipo [ o ] que son los que parece estar buscando, da error.
Si esta hipótesis es correcta, ¿Cómo se podría solucionar para que en el caso que no hubiera símbolos de entrada, el código entrara correctamente en la función?
1
2
If Me!Proveedor = "BIMBO" Then
Me!NombreProducto = Left(BuscaNombre("BIMBO", Mid(Me!Producto, InStr(1, Me!Producto, "[") + 1, (InStr(1, Me!Producto, "]")) - (InStr(1, Me!Producto, "[")) - 1)), 50)
La función a la que llama tiene como argumentos:
1
BuscaNombre(ByVal Tipo As String, ByVal Codigo As String) As String
El valor de Producto, que es una caja de texto que está en el formulario activo, es en este caso "zxc". Lo que creo que pasa con este código es que al usar el Mid, el inStr y demás para dar valor al argumento, si en la cadena de entrada no encuentra símbolos del tipo [ o ] que son los que parece estar buscando, da error.
Si esta hipótesis es correcta, ¿Cómo se podría solucionar para que en el caso que no hubiera símbolos de entrada, el código entrara correctamente en la función?
Valora esta pregunta
0