Abrir formulario filtrando por combo de valores o sin filtrar si no se selecciona ningún valor

En Access 2010 quiero poder abrir un formulario (frmEELLs) con datos de diversas organizaciones (IdEns) filtrándolas a través de un combo (cboEns8) con sus nombres, o sin filtrar si en el combo no selecciono ninguna.

Ahora lo tengo así:


Private Sub Comando20_Click()
On Error GoTo Err_Comando20_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmEELLs"
    stLinkCriteria = "[IdEns]=" & Me![cboEns8]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando20_Click:
    Exit Sub

Err_Comando20_Click:
    MsgBox Err.Description
    Resume Exit_Comando20_Click
End Sub


¿Debo incluir una función If para que me devuelva todos los registros sin no selecciono ninguno en el combo?

1 Respuesta

Respuesta
1

Cambia el código por este:

Private Sub Comando20_Click()
On Error GoTo Err_Comando20_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmEELLs"

   If Nz(Me![cboEns8],-1)=-1 Then

           DoCmd.OpenForm stDocName

  Else
         stLinkCriteria = "[IdEns]=" & Me![cboEns8]
         DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_Comando20_Click:
    Exit Sub

Err_Comando20_Click:
    MsgBox Err.Description
    Resume Exit_Comando20_Click
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas