Buenas de nuevo, he conseguido que funcione la consulta...
Tratando el dato "Busqueda" como si fuera de tipo texto y cambiando la consulta a esta forma:
Código:
Busqueda = Forms![PACIENTE]![CODIGO PACIENTE]
Set Rst = CurrentDb.OpenRecordset("SELECT [EPISODIO].[CODIGO PACIENTE] FROM EPISODIO WHERE [EPISODIO].[CODIGO PACIENTE] LIKE 'Busqueda'")
El problema que tengo ahora es que al comprobar el contenido del RecordSet, solo funciona cuando se ha encontrado el dato, si no se encuentra el dato no hace lo que debería:
Código:
If Rst.NoMatch Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Forms![EPISODIO]![CODIGO PACIENTE] = Forms![PACIENTE]![CODIGO PACIENTE]
MsgBox ("Nuevo episodio del paciente")
Else
stLinkCriteria = "[CODIGO PACIENTE]=" & Me![CODIGO PACIENTE]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Rst.Close
Set Rst = Nothing