Que tal como estan, de nuevo aqui con una consulta, les comento que tengo una consulta la cual me muestra mis datos sin problema pero de ahi me obtiene otros registros q estan asignados a la consulta, es decir consulto un diagnostico y de ahi ya tengo enlazado todas sus citas y me las muestra perfectamente bien aqui mi problema es que cuando selecciono un diagnostico quiero me me muestre automaticamente la primera cita de este diagnostico.
Mis codigos son los siguientes:
Código:
Private Sub DatosDiagnostico()
Dim RECBDD As ADODB.Recordset
Dim sql As String, cadena As String
Dim X As Integer
cadena = text1(0).Text
Call VisualizarPacienteDiagnosticos
sql = "SELECT * FROM pacientediagnostico WHERE idpaciente Like '" & cadena & "'"
Set RECBDD = New ADODB.Recordset
RECBDD.Open sql, BD, adOpenKeyset, adLockOptimistic
If RECBDD.BOF = True Or RECBDD.EOF = True Then
MsgBox "Paciente sin Diagnosticos"
Exit Sub
End If
End Sub
Código:
Private Sub DatosProcedimiento()
Dim sql As String, cadena As String, idpaciente As String
cadena = Text2(2).Text
idpaciente = Text2(0).Text
Call VisualizarPacienteProcedimiento
sql = "SELECT * FROM pacienteprocedimiento WHERE id1 Like '" & cadena & "' AND idpaciente LIKE '" & idpaciente & "'"
Set RECBDDDD = New ADODB.Recordset
RECBDDDD.Open sql, BD, adOpenKeyset, adLockOptimistic
If RECBDDDD.BOF = True Or RECBDDDD.EOF = True Then
MsgBox "Paciente sin Citas"
Exit Sub
End If
End Sub
De atemano muchas gracias por las respuesta y ojala me haya dado a entender
Saludos
