Imprimir un solo informe desde formulario

Hola experto, tengo una tabla de la que se derivan un formulario y un informe, y quiero crear y botón de comando que me imprima única y exclusivamente el registro que estoy visualizando en el formulario, ya que de la forma en que lo hice, se imprimen todos los registros (571 para ser exactos)le eche un ojo a la base de datos neptuno, observe que usa un filtro para hacer esto, en el formulario pedidos, pero la estructura de mi base de datos es diferente. De antemano te lo agradezco...
Un experto respondió eso
El ejemplo de Neptuno.mdb para imprimir el Informe Factura desde el form Pedidos es lo que se suele hacer habitualmente. Se le pasa el valor de un campo del form a la consulta y se usa como filtro.
También puedes usar el siguiente código cortesía de DevAshish:
'******************** Code Start ************************
Dim strDocName As String
Dim strWhere As String
strDocName = "rptSomeReport"
strWhere = "[RunID]=" & me!RunID
DoCmd.OpenReport strDocName, acPreview, , strWhere
'******************** Code End ************************
NOTA: el campo [RunID] debe estar al alcance de la variable tanto en el informe como en el formulario.
Un cordial saludo
Mi duda es que es [RunID]
Yo implemente de esta forma
Private Sub Comando18_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "Meneses"
strWhere = "[RunID]=" & Me!numerocaso
DoCmd.OpenReport strDocName, acViewNormal, , strWhere
End Sub
hazta le puse el nombre RUdID numerocaso
Urgente experto ayudennn soy novato necesito un consejo

1 respuesta

Respuesta
1
Lo único que se necesita es el filtro del openreport
es como la clausula where del sql
así
DoCmd.OpenReport "Meneses", , , "Numerocaso=" & Me!numerocaso
RunId es el campo de la tabla en el que se guarda el dato que quieres listar
no se hace con el numero de registro si no con un código, id u otro dato único
de lo mandas en el openReport y el lo busca y te saca solo ese código, ID u otro enlace
en el ejemplo supuse NumeroCaso pero no dices como se llama, y el segundo NumeroCaso es el control del form que contiene el dato Código o Id que quieres listar
si no puedes mándamela a [email protected] con tu nick y el titulo de tu pregunta
Hola luis experto gracias por contestar
Mi código te lo pase a tu correo
 Private Sub Comando18_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "Meneses"
'DoCmd.OpenReport strDocName, acPreview, , "numerocaso=" & "Me.numerocaso"
DoCmd.OpenReport strDocName, , , "numerocaso=" & Me!numerocaso
End Sub 
No entendí muy bien tu respuesta
Agradecería tu ayuda
Saludos
Ya esta listo,
si quieres cierra y puntúa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas