Tomar el valor del nombre real del formulario

Enecesito abrir un formulario donde tiene el campo formulario y que al abrir sea igual que nombre del que lo estoy ejecutando

Si lo abro de aa_panel solo filtre los que tengan aa_panel

Este el formulario que abre...

2 respuestas

Respuesta
2

No me queda muy clara tu pregunta, pero a ver si esto te sirve:

Si el formulario que quieres abrir filtrado es el formulario "Ayuda" (el de la imagen), y lo quieres abrir filtrado desde los otros formularios, el código sería así:

DoCmd.OpenForm "Ayuda",,,"formulario='" & Me.Name & "'"

Si ese código lo ejecutas desde el formulario "AA_Panel", te mostrará dos registros (según la imagen, claro), si lo abres desde "Usuarios_Ingresos", te mostrará un registro, y desde cualquier otro, te saldrá sin registros.

¡Gracias! No había visto tu respuesta

On Error GoTo Error_control

Dim A As String
Dim B As String
Dim stDocName As String
Dim stLinkCriteria As String
Dim stLinkCriteria1 As String
A = "[Formulario]='" & Me.Form.Name & "'"
B = "permiso = 0"  
stDocName = "Ayuda"
stLinkCriteria = A
stLinkCriteria1 = A and B
If Forms!AA_PAnel![Administra] <> -1 Then

DoCmd.OpenForm stDocName, , , stLinkCriteria1
Else
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If


Salir_Control:
'On Error GoTo 0
Exit Sub
Error_control:
MsgBox "Error #" & Err.Number & vbCrLf & Err.Source & vbCrlLf & Err.Description
Resume Salir_Control

Necesito aplicar en slinkcriteria1 los dos filtros

Pero me da error

A es texto

B es casilla de Verificación Aceptada

Ya te respondí en la otra pregunta

Respuesta
1

Dim A As String
A = "[Formulario]='" & Me.Form.Name & "'"
Así lo solucione para alguien que lo necesite

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas