Meervoudige selectie als crietria in querie

[Ronaldxx]

In mijn database sla ik meerdere waarden op in 1 veld van de tabel.
Deze worden zo toegevoegd: Voorbeeld1; Voorbeeld2; Voorbeeld 3

Dit omdat een bepaalde eis aan meerdere objecten "voorbeelden" kan worden gekoppeld.

Nu zou ik graag de eisen met betrekking tot een object tonen, en degene die aan meerdere objecten voldoen of aan 1 van de gekozen objecten.
Voorbeeld: Tabel
Veld 1......Veld2
Eis 1........Fundering; Landhoofd; Grondwerkzaamheden
Eis 2........Fundering;
Eis 3........Landhoofd; Grondwerkzaamheden

In de zoekbox kies ik als criteria fundering en landhoofd.
Ik zou willen dat hij dan Eis 1 en 2 toont omdat deze 1 van de 2 criteria bevat.
Is dit mogelijk ? Ik gebruik wizard opzoeken in 2007 dus een voorbeeldje in 2003 bijgaande.

Mijn dank is groot.

gr, Ronald

Bekijk bijlage Database11.zip

 

[OctaFish]

Heb je hier al wat aan?

Dim Omschrijving As Variant
Dim sOpzoeken As String
Dim sCriterium() As String, sTmp() As String
Dim i As Integer, x As Integer
x = -1
ReDim sCriterium(0)
    
    For Each Omschrijving In Keuzelijst.ItemsSelected()
        sTmp = Split(Keuzelijst.Column(1, Omschrijving), ";")
        If LBound(sTmp) = UBound(sTmp) Then
            x = x + 1
            If x >= 1 Then ReDim Preserve sCriterium(x)
            sCriterium(x) = sTmp(0)
        Else
            For i = LBound(sTmp) To UBound(sTmp)
                x = x + 1
                If x >= 1 Then
                    ReDim Preserve sCriterium(x)
                    sCriterium(x) = sTmp(i)
                End If
            Next i
        End If
    Next Omschrijving

    If UBound(sCriterium) > LBound(sCriterium) Then
        For i = LBound(sCriterium) To UBound(sCriterium)
            If i = LBound(sCriterium) Then
                sOpzoeken = "'" & sCriterium(i) & "'"
            Else
                sOpzoeken = sOpzoeken & " OR '" & sCriterium(i) & "'"
            End If
        Next i
    End If
    
    MsgBox sOpzoeken

Met deze code kun je alle gekozen waarden in een criteriumstring zetten.

 

[Ronaldxx]

bijgaande een duidelijker voorbeeldje met wat duidelijkere tabellen uit de huidige database.

Ik heb een x aantal relaties eruitgehaald want die worden nie ondersteund door 2003.
Maar ik heb een meerderewaarden selectiekeuze vak, deze slaat gegevens op Fundering;Grondwerk ect.

Het probleem is dat ik nu een werkpakket gekoppeld met Fundering;Grondwerk ik de eisen voor Fundering en Grondwerk wil krijgen. De eisen zijn onderling ook veel meerkeuzes dus kunnen ook aan beide categorieën gekoppeld zijn.

Ik heb in de bijgezonden database een querie gemaakt met als opbouw:
Like "*" & [Forms]![Werkpakettenrapportmaken]![Objecten] & "*"
Dit werkt niet goed, hij kijkt alleen achter en voor de verschillen. Soms staan de gegevens niet achterelkaar.

Is dit met een querie te doorzoeken ?

Bedankt alvast. Bijgevoegd database querie is gebaseerd op werkpaketten formulier.
Bekijk bijlage Database4.zip

 

[OctaFish]

Ik snap nog niet wat je bedoelt... Als ik je query aanpas, dan krijg ik voor het eerste record wel de bijbehorende eisen te zien.
Het criterium verwijst in dit geval letterlijk naar het Objecten veld. Maar ik vermoed, dat je iets anders wilt zien. Kun je een voorbeeldje geven van wat je bij een bepaald record wilt terugzien?

 

[Ronaldxx]

Dit is de eisen tabel waarop de query is gebaseerd.
In het eerste record staat ook Fundering;Grondwerk, die zou ik ook graag willen zien.
Het kan ook zo zijn dat bij objecten in de eisen tabel staat: Fundering;Dubbeltest;Grondwerk;Test

Dus er zijn variabele mogelijkheden. De objecten bij werkpaketten dienen als basis.
Ik weet niet of dit mogelijk is.

Mvg,

 

[OctaFish]

Dus je wilt bij Werkpakket 01 de eisen 02 en 10 terugzien?

 

[Ronaldxx]

Eigenlijk allemaal, omdat Grondwerk in alle eisen zit.

Hij moet de objecten hangend aan werkpaketten zien als losse delen als het ware.
Waarbij de plaats niet uitmaakt. Ik wete niet of dit mogelijk is omdat hij ze zo vreemd opslaat. Dit komt door wizard opzoeken, access 2007 haha.

 

[Ronaldxx]

Geen oplossing ?