Ayudita en Access 2003

Thread View: chile.comp.programacion

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Batusay Leal P. Tue, 05 Aug 2008 14:49

#349

Author: Batusay Leal P.
Date: Tue, 05 Aug 2008 14:49

61 lines
3258 bytes

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.

Re: Ayudita en Access 2003

#350

Author: Gomez
Date: Thu, 07 Aug 2008 02:08

82 lines
3988 bytes

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.
>

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads