Access - lis

SOLAMENTE ME HAN DADO RESPUESTAS ENLAZADAS A UN LINKS
QUIERO RESPUESTAS CONCRETAS POR FAVOR SIN PUBLICITAR SU SITIOO....

"RESPUESTAS ATRAVEZ DE ESTE CUADRO DE DIALOGO"

NECESITO TOMAR VALORES DE UNA LISTA MULTISELECCION ;
ESTA LISTA TIENE LOS RUT DE LOS CLIENTES, ENTONCES AL MOMENTO DE SELECCIONAR UN CONJUNTO DE RUT; QUE ME CAPTEN ESTOS VALORES EN UNA CONSULTA;
QUE PONGO EN LOS PARAMETROS????

QUIERO VISUALIZAR LOS RUT SELECCIONADOS DESDE LA LISTA Y SUS DATOS

MUCHAS GRACIAS

Mi amigo tu caso esta dificil, toda la yuda que se te ha dado no te sirve, de seguro que ni siquiera te haz tomado la molestia de leer los códigos porque ahí encuentras lo que pides y MUCHO MAS.

Los links que les enviamos no son para "PUBLICITAR" ya que hasta la fecha ningun forero serio anuncia ni vende nada en sus links solo se regala código para investigar y aprender.

OJALAS PUDIERA LEER LOS CODIGOS PERO ME DICE K ESTA BASE ES DE SOLO LECTURAAAA!!!!!!!!!!!!!!!

Mi amigo veo que eres una persona decente porque pense que al abrir esta lectura me iba a encontrar con un recordatorio para mi mamá, pero que bueno que me equivoque.
Desde un principio ubieras comentado esto.
Mira yo al principio tuve el mismo problema y por mas que trato de recordar como lo solucione no me acuerdo es algo sencillito de hacer pero no lo recuerdo, a ver si alguién te puede hechar la mano y cuando lo logres checa el codigo y comentas.

Hola Sebastian

Te he preparado este codigo

Function Seleccion(Lista As ListBox) As String
Dim ItemSelect As String
Dim i As Integer
For i = 0 To Lista.ListCount - 1
If Lista.Selected(i) Then
If ItemSelect = "" Then
ItemSelect = """" & Lista.Column(0, i) & """"
Else
ItemSelect = ItemSelect & " Or IdCliente= " & """" & Lista.Column(0, i) & """"
End If
End If
Next i
Seleccion = "IdCliente= " & ItemSelect
End Function

Si deseas ver un ejemplo de uso descarga el ejemplo de la direccion URL

Desde Venezuela
Jefferson

HERMANO DE VENEZUELA JEFFERSON
TENGO K LLAMAR LA FUNCION EN EL OBJETO LIST CON ALGUN EVENTO EN ESPECIFICOO??
Y EN CRITERIOS PONGO FORMS!FORMULARIO1.LISTA O QUE PONGO PARA QUE ME PESQUE LOS ELEMENTOS SELECCIONADOS DE LA LISTA

Chamo la verdad desconozco cual es tu problema con las bases de datos...??

Vamos a hacerlo por paso.........

1) Crea una base de datos Nueva e importa la tabla Clientes del ejemplo NEPTUNO

2) Crea un Form en vista Diseño y Agrega los siguientes CONTROLES
* Un boton de Comando y llamalo "CreaConsulta"
* Dos Cuadro de Lista (El Primero llamalo "Lista0" y el segundo "Lista5")
* Al Cuadro Lista0 en propiedades busca la opcion
"""""Seleccion Multiple = Simple"""""

En El editor VBA del Formulario, Pega Este Codigo
Function Seleccion(CritBusqueda As String, Lista As ListBox) As String
'***************************************************************
'& &*
'& &*
'& &*
'& &*
'& Jefferson Jimenez (JJJT) &*
'& Cabimas - Venezuela &*
'& Marzo - 2010 &*
'& &*
'& &*
'& &*
'& &*
'& &*
'***************************************************************
Dim ItemSelect As String
Dim i As Integer
For i = 0 To Lista.ListCount - 1
If Lista.Selected(i) Then
If ItemSelect = "" Then
ItemSelect = """" & Lista.Column(0, i) & """"
Else
ItemSelect = ItemSelect & " Or " & CritBusqueda & " = " & """" & Lista.Column(0, i) & """"
End If
End If
Next i
Seleccion = CritBusqueda & " = " & ItemSelect
End Function
Private Sub CreaConsulta_Click()
Me.Lista5.Visible = True
Me.Lista5.ColumnCount = 11
Me.Lista5.ColumnWidths = "2 cm;2 cm;2 cm;2 cm;2 cm;2 cm;2 cm;2 cm;2 cm;2 cm;2 cm"
Me.Lista5.Height = 2000
Me.Lista5.Width = 13000
Me.Lista5.RowSource = "SELECT Clientes.*, Clientes.IdCliente FROM Clientes WHERE " & Seleccion("IdCliente", Lista0) & ";"
End Sub
Private Sub Form_Load()
Me.Lista0.RowSource = "SELECT [Clientes].[IdCliente] FROM Clientes;"
Me.Lista0.ColumnCount = 1
Me.Lista0.ColumnWidths = "2 cm"
Me.Lista5.Height = 1000
Me.Lista5.Width = 3000
Me.Lista5.Visible = False
Me.CreaConsulta.Caption = "Crea Consulta"
End Sub


Ejecuta el formulario y veras lo que estas buscando.....

Desde Venezuela
Jefferson

HERMANO ESTO ES LO QUE TENGO;

TENGO UNA LISTA MULTISELECCION EN MI FORMULARIO CON UN BOTON BUSCAR;

TENGO UNA TABLA LLAMADA CLIENTES DE LA BD ;

QUIERO QUE EL USUARIO AL MOMENTO DE SELECCIONAR UN CONJUNTO DE RUT
EN LA LISTA MULTISELECCION ME VISUALISE LA INFORMACION DE ESOS RUT SELECCIONADOS QUE SE ENCUENTRAN EN LA TABLA CLIENTES;

GRACIAS AMIGO DESDE CHILE

HAHA AMIGO CUANDO RECCORE LA LISTA HASTA EL ULTIMO ELEMENTO ME SALE DESBORDAMIENTO YA QUE SON ALGO ASI COMO 6.000 RUT
QUE SE PUEDE HACER???

OTRO DETALLE AMIGGO NO KIERO ARROJAR LOS DATOS EN LIST
SOLO QUIERO QUE ME VISUALISE LOS CAMPOS DE LOS RUT SELECCIONADOS COMO UNA CONSULTA SQL

MUCHAS GRACIAS POR DARTE LA MOLESTIA

Lo del Desbordamiento puedes tratarlo abriendo un recorrido a la lista de los 6.000 registros

y Para lo segundo (Visualizar los resultados en un consulta) te hice esta funcion

Sub CreaQueryTemporal( _
NombreConsulta As String, _
Sql As String)
Dim LaConsulta As QueryDef
Set LaConsulta = _
CurrentDb.CreateQueryDef("" & NombreConsulta & "", "" & Sql & "")
DoCmd.OpenQuery LaConsulta.Name
CurrentDb.QueryDefs.Delete LaConsulta.Name
Set LaConsulta = Nothing
End Sub

Con esto creas una consulta de forma temporal, pues lo que necesitas es eso...

Siento mucho lo de Chile, mi gran apoyo para con ustedes...

Desde Venezuela
Jefferson

AMIGO DONDE COLO ESTA SUBFUNCION,

EN EL COMANDO DEL EVENTO CLICK??

DEJO LO OTRO DE LA LISTA 0

PARA QUE ME FILTRE LOS DATOS SELECCIONADOS DE LA LIST???

COMO LO HAGO

DISCULPA LAS MOLESTIAS HERMANO PERO TOY INICIANDOME EN ESTE MUNDO

Siguiendo con el ejemplo que te comente (La Base de Datos Ejemplo de Neptuno)

Al boton de comando "CreaConsuta" le colocas
CreaQueryTemporal "Lista1", "SELECT Clientes.*, Clientes.IdCliente FROM Clientes WHERE " & Seleccion("IdCliente", Lista0) & ";"

Desde Venezuela
Jefferson