jeroenhoog
Nieuwe gebruiker
- Lid geworden
- 10 feb 2010
- Berichten
- 2
Deze vba noob zoekt hulp 
Eerst een stukje achtergrond van het probleem.
Voor een opdracht ben ik een magazijn voorraad analyze tool aan het maken. Ik heb daarvoor een hoop data ingeladen uit het ERP pakket en vervolgens bewerk ik die tot 1 tabel.
Deze tabel bevat van alle delen in het magazijn meta data, en informatie mbt voorraad mutaties.
Op basis van die tabel heb ik een dashboard gemaakt, waarin mbv berekende velden, een waarde bepaald wordt obv overeenkomsten van de delen.
Vervolgens heb ik een stuk code gemaakt dat je mbv filters doorsnedes kan maken.
Het volgende probleem loop ik nu tegenaan. Ik wil namelijk een functie inbouwen dat wanneer je op een vak in het formulier klikt, er een datasheet wordt geopend met daarin de onderliggende data, die de calculatie vult. Die bestaat dan uit een selectie op basis van de onderliggende (gefilterde tabel) en een aantal hardcoded criteria.
Ik heb echter geen idee hoe ik dit moet aanpakken.
WIe o wie?
Mijn filter is als volgt opgebouwd:
Eerst een stukje achtergrond van het probleem.
Voor een opdracht ben ik een magazijn voorraad analyze tool aan het maken. Ik heb daarvoor een hoop data ingeladen uit het ERP pakket en vervolgens bewerk ik die tot 1 tabel.
Deze tabel bevat van alle delen in het magazijn meta data, en informatie mbt voorraad mutaties.
Op basis van die tabel heb ik een dashboard gemaakt, waarin mbv berekende velden, een waarde bepaald wordt obv overeenkomsten van de delen.
Vervolgens heb ik een stuk code gemaakt dat je mbv filters doorsnedes kan maken.
Het volgende probleem loop ik nu tegenaan. Ik wil namelijk een functie inbouwen dat wanneer je op een vak in het formulier klikt, er een datasheet wordt geopend met daarin de onderliggende data, die de calculatie vult. Die bestaat dan uit een selectie op basis van de onderliggende (gefilterde tabel) en een aantal hardcoded criteria.
Ik heb echter geen idee hoe ik dit moet aanpakken.
WIe o wie?
Mijn filter is als volgt opgebouwd:
Code:
Public Sub AddFieldFilter(pForm As Form, sField As String, sValue As String)
If (pForm.Filter = "") Then
pForm.Filter = sField & "=""" & sValue & """"
Else
pForm.Filter = pForm.Filter & " AND " & sField & "=""" & sValue & """"
End If
End Sub
Public Sub ResetFilter(pForm As Form)
Dim fieldComboBox As ComboBox
' *** Schakel Filter uit en verwijder de filterconditie
pForm.FilterOn = False
pForm.Filter = ""
' ***>>> FILTER PER FILTER-VELD <<<****
' *** Verwijs naar de combobox op basis waarvan gefilterd wordt
Set fieldComboBox = pForm.filterType
' *** Is er een filter-waarde gekozen ?
If Not IsNull(fieldComboBox.Value) Then
' er is een selectie gemaakt, voeg de gekozen waarde toe aan de filtercondities
Call AddFieldFilter(pForm, "[Item Type]", fieldComboBox.Value)
End If
' ***>>> EINDE FILTER PER FILTER-VELD <<<****
'*** Onderstaand de extra toegevoegde filters
Set fieldComboBox = pForm.filterGroup
If Not IsNull(fieldComboBox.Value) Then
Call AddFieldFilter(pForm, "[Group]", fieldComboBox.Value)
End If
'*** etc....
'*** Einde Filters
If (pForm.Filter <> "") Then pForm.FilterOn = True
End Sub
