Descripción del problema:
Buenas, soy nuevo en esto del Access y vi un tutorial de lo que queria obtener y se trata de un formulario de busqueda de una tabla la cuestion es que realice el cuadro de lista desde la lista y filtre todos los campos que queria que estuvieran dentro del cuadro de lista, pero al momento de buscar las relaciones se mueve toto el cuadro de lista y borro todos los campos y queda la siguiente manera
El orden de las imagenes es como inicia y como termiana
Código:
Public Sub Buscar(NTextBox As TextBox, NListBox As ListBox, NTabla As String, ParamArray NCamposWhere() As Variant)
On Error GoTo ManipulaError
Dim NCampo As Variant, SQL As String
For Each NCampo In NCamposWhere
SQL = SQL & "[" & NCampo & "] Like '*" & Replace(NTextBox.Text, "'", "''") & "*' OR "
Next NCampo
NListBox.RowSource = "SELECT * FROM [" & NTabla & "] WHERE " & Mid(SQL, 1, Len(SQL) - 3)
Exit Sub
ManipulaError:
MsgBox Err.Description, vbCritical, "Avíso"
End Sub
**Y EN OTRO PARTADO SELECCIONE TODOS LOS CAMPOS QUE QUEIRA QUE REALIZARA LA CONSULTA
Private Sub Buscadorlst_Change()**
Call Buscar(Buscadorlst, lstList, "Lista", "Nombre", "Apellido", "1", "2", "3", "4", "5")
End Sub
Captura de pantalla:
Aquí puedes colocar las capturas de pantalla que ayuden a entender el problema
Descripción del problema: Buenas, soy nuevo en esto del Access y vi un tutorial de lo que queria obtener y se trata de un formulario de busqueda de una tabla la cuestion es que realice el cuadro de lista desde la lista y filtre todos los campos que queria que estuvieran dentro del cuadro de lista, pero al momento de buscar las relaciones se mueve toto el cuadro de lista y borro todos los campos y queda la siguiente manera El orden de las imagenes es como inicia y como termiana Código:
Captura de pantalla: Aquí puedes colocar las capturas de pantalla que ayuden a entender el problema
Archivos:
