Anónimo
Abrir informe sin parámetros access
Hola Experto
Tengo al siguiente código de un comad en un formulario
Private sub vista_infor_click
on error goto err_vista_infor_click
dim stdocname, where as string
stdocname="infor1"
where ="NOMBRE=" & Me.TxtNOMBRE
Docmd.openreport stdocname, acpreview, , where
exit_vista_infor_click:
exit sub
end sub
Este código me abre el informe, pero me pide parámetros en este caso el nombre, desafortunadamente tengo dos registros con el mismo nombre y pues se bloquea por que no sabe cual de los dos escoger, ademas de que seria mejor que sacara el registro que veo en informe automáticamente.
Tanto mi formulario como mi informe se conponen de dos tablas y no se como hacerle para que me abra este informe.
Tengo al siguiente código de un comad en un formulario
Private sub vista_infor_click
on error goto err_vista_infor_click
dim stdocname, where as string
stdocname="infor1"
where ="NOMBRE=" & Me.TxtNOMBRE
Docmd.openreport stdocname, acpreview, , where
exit_vista_infor_click:
exit sub
end sub
Este código me abre el informe, pero me pide parámetros en este caso el nombre, desafortunadamente tengo dos registros con el mismo nombre y pues se bloquea por que no sabe cual de los dos escoger, ademas de que seria mejor que sacara el registro que veo en informe automáticamente.
Tanto mi formulario como mi informe se conponen de dos tablas y no se como hacerle para que me abra este informe.
1 respuesta
Respuesta de fernijon
1
Posible error: Que no construyas la clausula Where correctamente ( te falten comillas y al montarlo no quede bien)
Mira bien éste trozo de código que tengo en uno de mis programas:
Dim valor, criterio As String
...
valor = "02/0000"
criterio = "[ref-cía] = """ & valor & """"
cuantos = DCount("[ref-cía]", "00control", criterio)
...
Si sabes hacer la traza del programa, podrás ver el valor que tiene la variable where en el momento de llamar al Docmd. Openrecord.
Creo que ha de ser éste el problema, sino, mira de cambiar los nombres de los controles del formulario. No tienen porqué ser del mismo nombre que el campo de la tabla que representa.
Mira bien éste trozo de código que tengo en uno de mis programas:
Dim valor, criterio As String
...
valor = "02/0000"
criterio = "[ref-cía] = """ & valor & """"
cuantos = DCount("[ref-cía]", "00control", criterio)
...
Si sabes hacer la traza del programa, podrás ver el valor que tiene la variable where en el momento de llamar al Docmd. Openrecord.
Creo que ha de ser éste el problema, sino, mira de cambiar los nombres de los controles del formulario. No tienen porqué ser del mismo nombre que el campo de la tabla que representa.