SoloCodigo

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

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

F_Tanori   NO TE DIJE EN KE LINEA  ME MARCA EL ERROR....  SORRY ES EN ESTA

Set .Recordset = .Database.OpenRecordset(ls_SQL, dbOpenDynaset)


GRACIAS

hola mi problema es:

tengo una base de datos y dos tablas en ella, kiero en visual basic poder preguntar una matricula de mi alumno y ke de una tabla kon esta matricula me mande unos datos y ke de la otra tabla me mande los otros datos...  como es el codigo alguien puede ayudarme?  

en la forma tengo:

                TXTMATRICULA.Text
                TXTNOMBRE.Text
                TXTPATERNO.Text
                TXTMATERNO.Text
                TXTGRUPO.Text
                 **** estos los mando a llamar de una tabla
                txtmes
                txtmstatus
                  ****  estos dos ultimos los mando a llamar de otra tabla

ambas tablas tienen el campo matricula con este campo es komo las kiero relacionar..
 



les mando este pedaso de codigo ke ya tengo y les adjunto el archivo de mi programa tambien...  gracias




Private Sub CMDBUSCAR_Click()
If TXTBUSCAR.Text = "" Then
        MsgBox "Escribe el codigo a buscar", vbInformation
        Exit Sub
    End If
    With Data1
        .Recordset.MoveFirst
        For X = 0 To .Recordset.RecordCount - 1
           If Data1.Recordset!MATRICULA & "" = TXTBUSCAR.Text Then
                TXTMATRICULA.Text = .Recordset!MATRICULA & ""
                TXTNOMBRE.Text = .Recordset!NOMBRE & ""
                TXTPATERNO.Text = .Recordset!AP_PATERNO & ""
                TXTMATERNO.Text = .Recordset!AP_MATERNO & ""
                TXTGRUPO.Text = .Recordset!GRUPO & ""
            End If
        .Recordset.MoveNext
        Next X
       
    End With
   
End Sub