🚀 go-pugleaf

Viejito, falta mas info, estas seguro que estas abriendo la consulta?
un ejemplo:

    stSql = "SELECT * FROM CLIENTES WHERE CLI_RUT =
'99.999.999-A" ' �es v�lido ese A como dv?
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open stSql, con, 1
    If (rs.EOF) Then
        Me![OptionLabel1].Caption = "No existen elementos"
    Else
        While (Not (rs.EOF))
            ' hacer algo con la data
            rs.MoveNext
        Wend
    End If


"Batusay Leal P." <cristian.leal~@~vtr.net> escribi� en el mensaje 
news:g79p90$k2i$1@news.nivel5.cl...
> Estimados, estoy haciendo un peque�o gestor de datos de clientes en access 
> 2003 apra control mio y hace tiempo que no veo access 2003
> keria pedir una ayuda para poder avanzar, estoy hace ya 1 semana con lo 
> mismo sin tener rrspultados
> les explico:
> Tengo una base en access 2003 la cual tendre en red accesandola 3 
> usuarios. dentro de la base (base_DB.mdb) tengo 3 tablas (CLIENTES, COMUNA 
> y SOPORTE)
>
> Tabla Clientes             Tabla Comuna            Tabla Soporte
> id_cliente                    id_comuna                  id_ticket
> cli_rut                        com_nombre               sop_rut
> cli_nombre sop_detalle_soporte
> cli_comuna sop_fecha_soporte
> cli_direccion
>
> para poblar la tabla soporte, se hace la consulta a traves de un 
> formulario la cual tiene texbox, 1 de ellos (textbox1 esta habilitado para 
> escribir)
> se ingresar� el RUT (formato 99.999.999-A) y desde un command buttons se 
> har� la busqueda por medio de SELECT.
> mi pregunta es ver si me pueden ayudar ya que al hacerlo no me arroja nada 
> y no cacho como saber cuando la busqueda ha encontrado el registro o no.
> Adjunto mi codigo del boton de busqueda.
>
> Private Sub Buscar_Cliente_Click()
>
> Dim strsql As String
> Dim Rut_Cliente As String
> Dim resultado
>
> Rut_Cliente = Soporte_RUT_Cliente   ' TextBox con formato "99.999.999-A" 
> para el RUT del cliente
>                                    ' campo texto
>
> strsql = "Select * from CLIENTES where CLI_RUT = '" + Rut_Cliente + "' ;" 
> ' consulta sobre la
>                                                            ' tabla 
> clientes para la busqueda
>                                                            ' del cliente
>    ' la consulta es la siguiente : SELECT * FROM CLIENTES WHERE CLI_RUT = 
> '99.999.999-A';
>
> Me.RecordSource = strsql    ' consulta a la tabla abierta en formulario
>                            ' (Base gestion_burtec.mdb tabla CLIENTES)
>
> ' Si fue exitosa la busqueda, se pasaran los campos de la tabla clientes 
> hacia textbox
> ' textbox1.Text = tabla.campo1
> ' textbox2.Text = tabla.campo2
> ' textbox3.Text = tabla.campo3
> ' en caso contrario se indicara por un mensaje que el RUT no fue 
> encontrado
> ' Se esta  programando directamente en access 2003 solamente
>
> End Sub
>
> please si me pueden ayudar a resolver esto
>
> Saluda atte.
>
> Cristian Leal P.
>