Envío de datos entre formularios con VB
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 código 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.
¿Cómo puedo hacer para que compruebe si "stLinkCriteria" ha encontrado datos relacionados y ejecute el IF dependiendo del caso? Espero que puedan ayudarme, por que empiezo a estar un poco cansado...
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 código 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.
¿Cómo puedo hacer para que compruebe si "stLinkCriteria" ha encontrado datos relacionados y ejecute el IF dependiendo del caso? Espero que puedan ayudarme, por que empiezo a estar un poco cansado...
Respuesta de macros_excel
1
Crear un formulario independiente:
Es decir que no tenga como origen una tabla o cuna consulta
En el campo del campo código episodio en el evento al salir del mismo
porner que te busque el datos que has puesto y de encontrarlo, que te muestre los datos relacionados..
De no ser así que te permita seguir capturando
Es decir que no tenga como origen una tabla o cuna consulta
En el campo del campo código episodio en el evento al salir del mismo
porner que te busque el datos que has puesto y de encontrarlo, que te muestre los datos relacionados..
De no ser así que te permita seguir capturando
