Que tal david mira ya logre hacer el codigo para q me muestre la informacion solo q cuando ocupo mis controles command no mas solo me muestra el ultimo registro y para hacer la prueba agregue 3
mira todo el codigo q ya no me marca error es el siguiente
Cita: Private Sub cmddiagnostico_Click(Index As Integer)
Select Case Index
Case 0
RecBD.MoveFirst
Case 1
RecBD.MovePrevious
If RecBD.BOF Then RecBD.MoveFirst
Case 2
RecBD.MoveNext
If RecBD.EOF Then RecBD.MoveLast
Case 3
RecBD.MoveLast
End Select
Call DatosDiagnostico
End Sub
Private Sub DatosDiagnostico()
Dim sql As String
Call VisualizarPacienteDiagnosticos
Call VisualizarPacientes
sql = "SELECT pacientes.id, pacientediagnostico.* FROM pacientes " & _
"INNER JOIN pacientediagnostico ON pacientes.id=pacientediagnostico.id WHERE pacientes.id = " & Text1(0)
text2(0) = RECBDD!Id
text2(2) = RECBDD!Idpaciente
Combo2 = RECBDD!diagnostico
text2(3) = RECBDD!fecha
text2(4) = RECBDD!hora
text2(5) = RECBDD!descripcion
End Sub
la verdad no se en cual de los dos proceso este mal pero algo debe de estar faltandome ya q me muestra la informacion pero solo del ultimo registro
Saludos y Gracias