Envío de datos entre formularios con VB
Hola a todos, y muchas gracias por vuestra atención,
Con esta línea, access busca si existe un dato relacionado entre tablas mostradas por formularios.
stLinkCriteria = "[CODIGO EPISODIO]=" & Me![CODIGO EPISODIO]
Si existe coincidencia, muestra el registro en el formulario y si no se posicionaría en el primer registro de la tabla, si no hay registros, se posiciona en un registro nuevo.
Lo que quería hacer es comprobar con un IF que se ha encontrado coincidencia. Si se encuentra, simplemente me posiciono y muestro los datos. Si no existe coincidencia, lo que quiero es que siempre cree un registro nuevo y coloque el codigo relacionado en el cuadro de texto correspondiente
If (stLinkCriteria = "[CODIGO EPISODIO]=" & Me![CODIGO EPISODIO]) Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Forms![EXPLORACION]![CODIGO EPISODIO] = Forms![EPISODIO]![CODIGO EPISODIO]
MsgBox ("Nueva exploración del paciente")
End If
El problema que tengo es que no consigo que la sentencia IF funcione.
¿Como puedo hacer para que compruebe si "stLinkCriteria" a encontrado datos relacionados y ejecute el IF dependiendo del caso? Espero que puedan ayudarme, por que empiezo a estar un poco cansado...
Con esta línea, access busca si existe un dato relacionado entre tablas mostradas por formularios.
stLinkCriteria = "[CODIGO EPISODIO]=" & Me![CODIGO EPISODIO]
Si existe coincidencia, muestra el registro en el formulario y si no se posicionaría en el primer registro de la tabla, si no hay registros, se posiciona en un registro nuevo.
Lo que quería hacer es comprobar con un IF que se ha encontrado coincidencia. Si se encuentra, simplemente me posiciono y muestro los datos. Si no existe coincidencia, lo que quiero es que siempre cree un registro nuevo y coloque el codigo relacionado en el cuadro de texto correspondiente
If (stLinkCriteria = "[CODIGO EPISODIO]=" & Me![CODIGO EPISODIO]) Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Forms![EXPLORACION]![CODIGO EPISODIO] = Forms![EPISODIO]![CODIGO EPISODIO]
MsgBox ("Nueva exploración del paciente")
End If
El problema que tengo es que no consigo que la sentencia IF funcione.
¿Como puedo hacer para que compruebe si "stLinkCriteria" a encontrado datos relacionados y ejecute el IF dependiendo del caso? Espero que puedan ayudarme, por que empiezo a estar un poco cansado...