Anónimo
Consulta alfanumérica por un campo
Hola Manuel, ¿podrías ayudarme?
Tengo un formulario donde introduzco una serie de parámetros para realizar una búsqueda en una tabla de artículos. En uno de los controles (un cuadro combinado cuyo origen es un campo alfanumérico) he introducido un código para que cada vez que se pulsa una tecla se refresque y actualice la búsqueda con los caracteres introducidos hasta el momento. El problema es que a mí me funciona a la perfección, pero cuando se lo instalo al cliente, en sus ordenadores, parece funcionar pero sin embargo en la lista desplegable del cuadro combinado aparece en blanco, aunque ya digo parece que funciona, porque a medida que escribes, van acortándose el número de filas mostradas, aunque, ya digo, en blanco). Es algo muy extraño. Aquí te dejo el código:
C1$ = Chr(KeyAscii)
S = NúmCUPS.SelStart
If KeyAscii = 8 Then C1$ = "": If S > 0 Then S = S - 1
If KeyAscii = 27 Then Exit Sub
If KeyAscii < 32 Or KeyAscii > Asc("z") Then C1$ = ""
W$ = "WHERE [Datos Suministro].[CUPS] LIKE '*" & Nz(Left(DescipciónArtículo.Text, S)) & C1$ & "*'"
DescipciónArtículo.RowSource = "SELECT [Almacén].[Descripción] from [Almacén] " & W$ & " ORDER BY [Almacén].[Descipción];"
If DescipciónArtículo.ListCount > 0 Then DescipciónArtículo.Dropdown
Un saludo y muchas gracias por adelantado.
Tengo un formulario donde introduzco una serie de parámetros para realizar una búsqueda en una tabla de artículos. En uno de los controles (un cuadro combinado cuyo origen es un campo alfanumérico) he introducido un código para que cada vez que se pulsa una tecla se refresque y actualice la búsqueda con los caracteres introducidos hasta el momento. El problema es que a mí me funciona a la perfección, pero cuando se lo instalo al cliente, en sus ordenadores, parece funcionar pero sin embargo en la lista desplegable del cuadro combinado aparece en blanco, aunque ya digo parece que funciona, porque a medida que escribes, van acortándose el número de filas mostradas, aunque, ya digo, en blanco). Es algo muy extraño. Aquí te dejo el código:
C1$ = Chr(KeyAscii)
S = NúmCUPS.SelStart
If KeyAscii = 8 Then C1$ = "": If S > 0 Then S = S - 1
If KeyAscii = 27 Then Exit Sub
If KeyAscii < 32 Or KeyAscii > Asc("z") Then C1$ = ""
W$ = "WHERE [Datos Suministro].[CUPS] LIKE '*" & Nz(Left(DescipciónArtículo.Text, S)) & C1$ & "*'"
DescipciónArtículo.RowSource = "SELECT [Almacén].[Descripción] from [Almacén] " & W$ & " ORDER BY [Almacén].[Descipción];"
If DescipciónArtículo.ListCount > 0 Then DescipciónArtículo.Dropdown
Un saludo y muchas gracias por adelantado.
1 Respuesta
Respuesta de manuelpacha
1
Si la versión de access es la misma no cabe duda que es curioso.
Me he encontrado con ese problema alguna que otra vez y en mi caso era porque en el diseño de la tabla tenía puesto formato mayúsculas en el campo en cuestión.
No entendí a que se debía pero se solucionó el problema.
Revisa esto y si no, envíame la base comprimida y le echo un vistazo.
[email protected]
Ya me comentarás.
Una aperta.
Me he encontrado con ese problema alguna que otra vez y en mi caso era porque en el diseño de la tabla tenía puesto formato mayúsculas en el campo en cuestión.
No entendí a que se debía pero se solucionó el problema.
Revisa esto y si no, envíame la base comprimida y le echo un vistazo.
[email protected]
Ya me comentarás.
Una aperta.