SoloCodigo

no he descargado el archivo que adjuntaste pero porque no haces un findfirst:

data1.recordsource = "mitabla"
data1.recordset.findfirst "Matricula='" & txtbuscar & "'"
if data1.recordset.nomatch then
   msgbox "no se encontro resultado"
else
  msgbox "hola "
end if

o si estas usando un dbgrid para mostrar la tabla por ejemplo puedes hacer un query con el evento change de tu textbox algo asi

data1.RecordSource = "SELECT * FROM mitabla WHERE Matricula LIKE  '" & txtbuscar & "*'"
data1.refresh
espero haberte ayudado

hola  gracias a ambos por sus consejos y las correcciones a la ortografia...  

F_Tanori me marca un error a la hora de querer  implementar el codigo que me pasaste este es el error


run-time error '3061':

too few parameters. expected 5.

este es el error que me marca   pudieras  ayudarme nuevamente  gracias

que base de datos es?
como tienes las tablas?
que tipo de datos son los campos?

A mi no me marca ningun error debe ser que en un campo de tipo text no estas utilizando las comillas



mira te dejo un ejemplo a ver si te sirve



Suerte

F_Tanori  BUEN DIA...

OYE ABUSANDO DE TU AMABILIDAD OTRA PREGUNTA:

ESTE ES EL CODIGO KE ME PASASTE ADAPTADO AL MIO LO KE ME FALTRA ES HACER KE ME DESPLIEGUE TODOS LOS MESES DE ESE ALUMNO KE TENGAN UN SALDO MAYOR A 0 Y KE SE VAYAN A VENCER O ESTEN VENCIDO....  YA LE INTENTE Y LA VDD NO ME HA SALIDO..  GRACIAS POR TU TIEMPO..
JAVIER CORIA



Private Sub CMDBUSCAR_Click()
 Dim CONTADOR As Integer
Dim ls_Matricula As String, ls_SQL As String
Dim X As Integer
Dim A As Integer
   
   ls_Matricula = Trim(TXTBUSCAR)
   
   ls_SQL = "SELECT ALUMNOS.MATRICULA,ALUMNOS.NOMBRE,ALUMNOS.AP_PATERNO,ALUMNOS.AP_MATERNO,ALUMNOS.GRUPO,ALUMNOS.INSCRIPCION,MESES.MES,MESES.MSTATUS,MESES.SALDO,MESES.VENCIMIENTO "
   ls_SQL = ls_SQL & "FROM ALUMNOS,MESES WHERE ALUMNOS.MATRICULA=MESES.MATRICULA AND MESES.SALDO > '0' AND MESES.VENCIMIENTO >'&DATE&' and ALUMNOS.MATRICULA='" & ls_Matricula & "'"
   
   
   With Me.Data1
      Set .Recordset = .Database.OpenRecordset(ls_SQL, dbOpenDynaset)
       
        ''IF 1
        If Not .Recordset.EOF Then
                'Evitar que Falle el RecorCount
            '====================================
            .Recordset.MoveLast
            .Recordset.MoveFirst
            '====================================
     
            ''IF 2
            If .Recordset.RecordCount > 0 Then
         
                TXTMATRICULA.Text = .Recordset!MATRICULA
                TXTNOMBRE.Text = .Recordset!NOMBRE
                TXTPATERNO.Text = .Recordset!AP_PATERNO
                TXTMATERNO.Text = .Recordset!AP_MATERNO
                TXTGRUPO.Text = .Recordset!GRUPO
                 
               
                ''IF 3
                If Not .Recordset!INSCRIPCION = 0 Then
                    X = 1
                    GRDOTRO.TextMatrix(X, 1) = .Recordset!INSCRIPCION
                    GRDOTRO.TextMatrix(X, 0) = "INSCRIPCION"
                    CONSULTA.GRDOTRO.ColWidth(0) = 1300
               
                      ''IF 4
                    While .Recordset!SALDO > 0 And .Recordset!VENCIMIENTO > Date
                         
                         X = X + 1
                        GRDOTRO.TextMatrix(X, 0) = .Recordset!MES
                        GRDOTRO.TextMatrix(X, 1) = .Recordset!SALDO
                        ''TERMINA IF 4
                    Wend
                     
                         
                Else
                    Select Case .Recordset!SALDO
                        Case Is > 0
                        For A = 1 To 4
                            GRDOTRO.TextMatrix(1, 0) = .Recordset!MES
                            GRDOTRO.TextMatrix(1, 1) = .Recordset!SALDO
                        Next A
                    End Select
                    ''TERMINA IF 3
                End If
             
                 ''TERMINA IF 2
            End If
             
        Else
           MsgBox ("No matricula no encontrada")
         
        ''TERMINA IF 1
        End If
   End With
End Sub

hola  F_Tanori ya corregi todo lo que me dijiste  y si salio  al flexgrid le puse en la propiedad DataSourece  le puse data1.

ahora kiero en el   WHERE DEL SELECT  agregarle and MESES.VENCIMIENTO < '&DATE&'  esta seria otra condicion aparte de las que ya tiene pero me marca un error...


too few parameters, EXPECTED 1.



Y ME LO MARCA EN EL    Set .Recordset = .Database.OpenRecordset(ls_SQL, DBOPENDYNASET)




ESTE ES EL CODIGO KE TENGO EN LA FUNCION BUSCAR.....


Dim CONTADOR As Integer
Dim ls_Matricula As String, ls_SQL As String
Dim X As Integer
Dim A As Integer
   
   ls_Matricula = Trim(TXTBUSCAR)
   
   ls_SQL = "SELECT ALUMNOS.MATRICULA,ALUMNOS.NOMBRE,ALUMNOS.AP_PATERNO,ALUMNOS.AP_MATERNO,ALUMNOS.GRUPO,ALUMNOS.INSCRIPCION,MESES.MES,MESES.MSTATUS,MESES.SALDO,MESES.VENCIMIENTO "
   ls_SQL = ls_SQL & "FROM ALUMNOS,MESES "
   ls_SQL = ls_SQL & "WHERE ALUMNOS.MATRICULA=MESES.MATRICULA AND MESES.SALDO > 0  and ALUMNOS.MATRICULA='" & ls_Matricula & "'"
   
   
   ''AND MESES.VENCIMIENTO<'&DATE&'
   
   With Me.Data1
      Set .Recordset = .Database.OpenRecordset(ls_SQL)
       
        ''IF 1
        If Not .Recordset.EOF Then
                'Evitar que Falle el RecorCount
            '====================================
            .Recordset.MoveLast
            .Recordset.MoveFirst
            '====================================
     
            ''IF 2
            If .Recordset.RecordCount > -1 Then
         
                TXTMATRICULA.Text = .Recordset!MATRICULA
                TXTNOMBRE.Text = .Recordset!NOMBRE
                TXTPATERNO.Text = .Recordset!AP_PATERNO
                TXTMATERNO.Text = .Recordset!AP_MATERNO
                TXTGRUPO.Text = .Recordset!GRUPO
                 
                 ''TERMINA IF 2
            End If
             
        Else
           MsgBox ("No matricula no encontrada")
         
        ''TERMINA IF 1
        End If
   End With



TE AGRADESCO  TU AYUDA...

GRACIAS  F_Tanori
MIRA YA HICE LO QUE  ME SUGERISTE....  PERO AHORA NO ME ESTA DESPLEGANDO NADA  NOOOOOOOO!


TE VOY A MANDAR LOS ARCHIVOS DEL PSEUDO PROGRAMA QUE ESTOY TRATANDO DE HACER PARA VER SI ME ENCUENTRAS EL ERROR PLEASE....