Filter by selection

Filtrer efter formular:

DoCmd.RunCommand acCmdFilterByForm

Denne er måske mere anvendelig:

Me.filter = "FELTNAVN = '" & Me!FELTNAVN & "'"
Me.FilterOn = True

Hvor FELTNAVN er det felt i formularen som der skal filtreres på. Hvis feltet er numerisk, skal du fjerne apostrofferne.

Jeg har prøvet
DoCmd.RunCommand acCmdFilterBySelection
men jeg får fejlen:
FilterBySelection isn't available now
Hvad kan det skyldes?

Dit andet forslag virker fint, men hvis jeg kun vil have en knap, kan jeg så finde ud af hvilket felt jeg står i, og så bruge feks. en case sætning?
Du får point, men hvis du kunne svare på dette ville det være dejligt.

Private Sub felt2_Exit(Cancel As Integer)
Dim ctlCurrentControl As Control
Dim strControlName As String
Set ctlCurrentControl = Screen.ActiveControl
strControlName = ctlCurrentControl.Name
Select Case strControlName
Case Is = "felt1"
MsgBox "du forlader felt1"
Case Is = "felt2"
MsgBox "du forlader felt2"
Case Is = "felt3"
MsgBox "du forlader felt3"
End Select
End Sub

Du kan naturligvis indsætte koden i et modul, og så kalde den fra formularen.

Tak for hjælpen!

Selv tak - Kan du bruge det efter din hensigt?

Jo tak! det var lige hvad jeg skulle bruge.