Just nu i M3-nätverket
Jump to content

Som excel autofilter i access-formulär


Sladdeniskogen

Recommended Posts

Sladdeniskogen

Hej,

 

Jag försöker göra en funtion som fungerar som autofilter gör i excel, men jag lyckas inte.

 

Jag använder Access 2007.

 

Jag har ett formulär som listar supportsamtal/reklamationsärenden.

Det finns några fält som jag vill kunna använda filter på, 4st.

Jag har gjort 4st comboboxar där jag hämtat in de värden som kan finnas i de aktuella fälten. I den ena comboboxen har jag lagt in följande kod på after_update:

 

Private Sub VäljÄrendeTyp_AfterUpdate()

Dim lngLen As Long
Dim strFString As String

If Not IsNull([Forms]![ÄrendeLista]![VäljÄrendeTyp]) Then
strFString = strFString & "([forms]![ÄrendeLista]![tblType] = '" & [Forms]![ÄrendeLista]![VäljÄrendeTyp] & "') AND "
End If

If Not IsNull([Forms]![ÄrendeLista]![VäljKostnadsgrupp]) Then
strFString = strFString & "([forms]![ÄrendeLista]![tblKostnadsgrupp] = '" & [Forms]![ÄrendeLista]![VäljKostnadsgrupp] & "') AND "
End If

If Not IsNull([Forms]![ÄrendeLista]![VäljArtikel]) Then
strFString = strFString & "([forms]![ÄrendeLista]![ArtikelNummer] = '" & [Forms]![ÄrendeLista]![VäljArtikel] & "') AND "
End If

If Not IsNull([Forms]![ÄrendeLista]![väljstatus]) Then
strFString = strFString & "([forms]![ÄrendeLista]![Ärendestatus] = '" & [Forms]![ÄrendeLista]![väljstatus] & "') AND "
End If

lngLen = Len(strFString) - 5 'Ta bort sista and " AND ".

strFString = Left(strFString, lngLen)
Me.Filter = strFString
Me.FilterOn = True


End Sub

På de andra comboboxarna kör jag

Call VäljÄrendeTyp_AfterUpdate

Inga poster syns när filtert är på.

Jag har försökt länge nu, först skrev jag själv, men eftersom att jag inte heller då fick det att funka, körde jag klipp och klistra från en annan sida. Tillbaka på ruta 1.

 

Är det någon som kan se vad jag missat, eller funkar det helt enkelt inte att göra så här?

Link to comment
Share on other sites

Sladdeniskogen

Tack för svaren!

 

Det är lustigt att när man ställt frågan så hittar man felet.

 

Jag ändrade så att queryn som skapade listan blev filtrerat istället för formuläret.

Jag tycker iof fortfarande att det skulle gå att göra som jag gjorde först.

 

Jag provade även docmd.applyfilter tidigare, utan resultat.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...