Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: meerdere option groupes combineren  (gelezen 2803 keer)

0 leden en 1 gast bekijken dit topic.

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
meerdere option groupes combineren
« Gepost op: 12 augustus 2016, 19:26:03 »
ik heb een formulier met daarop een subformulier die records bevat.
2 of 3 option groups die met de respectievelijke options het subform filteren.
dat lukt prima met elke option group apart.
maar is het ook mogelijk om beide(of meerdere) filters te combineren.
maw criteria van 2 of meerdere option groups toepassen.

mijn code voor 1 group:
Dim strFilter As StringSelect Case [Frame26]
Case 1
     'Forms!YourFormName.Form.FilterOn = False
Case 2
     'strFilter = "[YourFieldName] = 'Open - Normal' Or [YourFieldName] = 'Open - Urgent'"
     'Forms!YourFormName.Form.Filter = strFilter
     'Forms!YourFormName.Form.FilterOn = True
case3
enz.....
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: meerdere option groupes combineren
« Reactie #1 Gepost op: 13 augustus 2016, 07:03:06 »
Ja dat kan zoals je nu bezig bent.
Als je verschillende criteria bekijkt zal je daar een AND moeten aanplakken.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere option groupes combineren
« Reactie #2 Gepost op: 13 augustus 2016, 08:14:47 »
het is de bedoeling dat ik een soort link leg tussen de 2 of meerdere option groups.
group 1 select bv banknummer = alle records van bank.
group 2 select bv productnummer = alle records van dat product.

bedoeling is van alle records van die bank bv te filteren met dat product.....

kan er iemand een voorbeeldje geven?
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere option groupes combineren
« Reactie #3 Gepost op: 13 augustus 2016, 09:56:32 »
heb het ondertussen gevonden met dank aan stackoverflow.

Dim strFilter As String
Dim strFilter2 As String

Select Case [Frame26]
Case 2
     strFilter = "[YourFieldName] = 'Open - Normal' Or [YourFieldName] = 'Open - Urgent'"
case3
'............

End Select

' Add second filter - replace all your logic and fields to fit second options
Select Case [Frame<##>]
Case 2
     strFilter2 = "[YourFieldName] = 'Open - Normal' Or [YourFieldName] = 'Open - Urgent'"
case3

if strFilter = "" AND strFilter2 = "" Then
     Forms!YourFormName.Form.FilterOn = False
     Exit Sub
End If

If strFilter <> "" AND strFilter2 <> "" then
    ' Join both filters
     strFilter = "(" & strFilter & ") AND (" & strFilter2 &  ")"
Else If strFilter2 <> "" then
     ' Just Using second filter
     strFilter = strFilter2
End if

Forms!YourFormName.Form.Filter = strFilter
Forms!YourFormName.Form.FilterOn = True
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere option groupes combineren
« Reactie #4 Gepost op: 13 augustus 2016, 10:04:37 »
in dit verband nog een bijkomende vraag.
heb onderaan dat subform  in de footer een txtbox met de som van een bepaald veld
dit wordt telkens aangepast als er keuzes gemaakt worden met de options.

is het mogelijk om hier ook txtbox met percentages te krijgen:
vb alle records van banken en alle producten te samen (maw geen option button ingedrukt) geeft een bepaald bedrag in de eertse txtbox.
in de tweede txtbox zou dan 100% moeten komen.
als er dus keuzes worden gemaakt moet niet alleen het bedrag veranderen, maar ook dat percentage.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

 


www.combell.com