Abrir formulario que solo muestre los registros de un campo
Publicado por ANTONIO (81 intervenciones) el 04/05/2012 13:40:04
HOla a todos
Tengo un formulario RESUMENPROYECTOCORD y quiero que habra un formulario (donde están los gastos) a través de un botón. Esto lo consigo con el código
On Error GoTo Err_Comando71_Click
Dim stDocName As String
Dim stLinkCriteria As String
stLinkCriteria = "[Id_Proyecto]=" & Me![Id_Proyecto]
stDocName = "PROPUESTAS DE GASTO PROYECTO"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando71_Click:
Exit Sub
Err_Comando71_Click:
MsgBox Err.Description
Resume Exit_Comando71_Click
Ahora, para evitar hacer consula, nuevo formulario...quiero que desde el mismo formulario general
llamar a este formulario, pero sólo mostrando los registros donde el campo estadopropuesta = Pendiente.
Me he inventado, sin éxito, este código
¿Sabría alguien decirme como hacerlo?
Gracias
On Error GoTo Err_Comando75_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim Where As String
stLinkCriteria = "[Id_Proyecto]=" & Me![Id_Proyecto]
stDocName = "PROPUESTAS DE GASTO PROYECTO"
Where = (((estadopropuesta.estadopropuesta) = "Pendiente"))
DoCmd.OpenReport stDocName, acPreview, , Where
Exit_Comando75_Click:
Exit Sub
Err_Comando75_Click:
MsgBox Err.Description
Resume Exit_Comando75_Click
Tengo un formulario RESUMENPROYECTOCORD y quiero que habra un formulario (donde están los gastos) a través de un botón. Esto lo consigo con el código
On Error GoTo Err_Comando71_Click
Dim stDocName As String
Dim stLinkCriteria As String
stLinkCriteria = "[Id_Proyecto]=" & Me![Id_Proyecto]
stDocName = "PROPUESTAS DE GASTO PROYECTO"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando71_Click:
Exit Sub
Err_Comando71_Click:
MsgBox Err.Description
Resume Exit_Comando71_Click
Ahora, para evitar hacer consula, nuevo formulario...quiero que desde el mismo formulario general
llamar a este formulario, pero sólo mostrando los registros donde el campo estadopropuesta = Pendiente.
Me he inventado, sin éxito, este código
¿Sabría alguien decirme como hacerlo?
Gracias
On Error GoTo Err_Comando75_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim Where As String
stLinkCriteria = "[Id_Proyecto]=" & Me![Id_Proyecto]
stDocName = "PROPUESTAS DE GASTO PROYECTO"
Where = (((estadopropuesta.estadopropuesta) = "Pendiente"))
DoCmd.OpenReport stDocName, acPreview, , Where
Exit_Comando75_Click:
Exit Sub
Err_Comando75_Click:
MsgBox Err.Description
Resume Exit_Comando75_Click
Valora esta pregunta
0