Cita:
pero no se como podria hacer q me valide dos campos es decir por ejemplo el id y el idpaciente esto es por q en mi tabla de pueden repetir varias veces el numero de id, es decir varias veces el 1 o 2,etc, pero en el idpaciente es unico, entonces para explicarme un poco mejor, supongamos que hago un llamado al idpaciente numero 29 y de ese llamo al id 2 me muestre la informacion relacionada y si llamo al idpaciente 31 y llamo al id 3 me muestre esa informacion, no se si me haya explicado bien pero de antemano gracias por su ayuda.Private Sub DatosProcedimiento()
Dim sql As String, cadena As String
cadena = Text2(0).Text
Call VisualizarPacienteProcedimiento
sql = "SELECT * FROM pacienteprocedimiento WHERE id Like '" & cadena & "'"
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
Dim sql As String, cadena As String
cadena = Text2(0).Text
Call VisualizarPacienteProcedimiento
sql = "SELECT * FROM pacienteprocedimiento WHERE id Like '" & cadena & "'"
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
Saludos
