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
Dim A As String
A = "[Formulario]='" & Me.Form.Name & "'"
Así lo solucione para alguien que lo necesite
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