[Access] Dubbele stlinkcriteria

[AB-Systems]

Dit is mijn eerste topic dus sorry als er iets verkeerd gaat!!

Ik zit met het volgende probleem:
ik heb een formulier die op basis van een keuzelijst met invoervak een formulier opend met een soort van filter die het te openen formulier filtert op hetgeen wat in het keuzelijst met invoervak is ingevult. maar nou wil ik graag een vaste waarde toevoegen.

de code zoals ik hem nu heb:

code:

Private Sub Knop6_Click()
On Error GoTo Err_Knop6_Click

    Dim stDocName As String
    Dim stlinkcriteria As String
  
    stDocName = "Meldingen"
    stlinkcriteria = "[Medewerker-ICT]=" & "'" & Me![Keuzelijst met invoervak4] & "'"
        
    DoCmd.OpenForm stDocName, acNormal, stlinkcriteria
    

Exit_Knop6_Click:
    Exit Sub

Err_Knop6_Click:
    MsgBox Err.Description
    Resume Exit_Knop6_Click
    
End Sub

Hetgeen wat ik dus zoek is een soort van dubbele stlinkcriteria zodat ik een vaste waarde erbij kan zetten.
het formulier dat geopend word moet gefiltert worden op: MedewerkerICT (keuzelijst met invoervak) en status (opgelost) <- vaste waarde

[ Voor 5% gewijzigd door AB-Systems op 19-09-2005 11:40 ]

[pasta]

Welke taal gaat het hier over?

[AB-Systems]

VBA achter een formulier van access

[pasta]

In dat geval pas ik je titel iets aan en move ik de thread naar Officesuites en -software, waar zulke dingen beter tot z'n recht zullen komen.

[TXC]

Waarom breid je niet gewoon je filtercriteria uit met:

Visual Basic:

AND status < vaste_waarde

Je kunt toch gewoon meerdere criteria weergeven in het filter?

[AB-Systems]

Heb ik geprobeerd maar ik kan geen AND gebruikeren achter de laatste regel van de code (waar het naar mijn idee zou moeten staan)

code:

stDocName = "Meldingen"
stlinkcriteria = "[Medewerker-ICT]=" & "'" & Me![Keuzelijst met invoervak4] & "'"

DoCmd.OpenForm stDocName, acNormal, stlinkcriteria

[ Voor 34% gewijzigd door AB-Systems op 19-09-2005 11:45 ]

[TXC]

Dan neem je het toch gewoon op in je variabele stlinkcriteria?

Visual Basic:

stlinkcriteria = "[Medewerker-ICT]=" & "'" & Me![Keuzelijst met invoervak4] & "' AND status < 100"

Je kunt voor code op het forum van code-tags gebruik maken. Dan zet je je code tussen [ code ] en [/] tags (zonder spatie na code natuurlijk)

[ Voor 35% gewijzigd door TXC op 19-09-2005 11:30 ]

[AB-Systems]

Datgeen werkt (bedankt!)

nou zit ik alleen wel met iets, elke keer als ik dan een Medewerker-ICT selecteer en op een button klik waar die code achter zit krijg ik een schermpje waar in staat OPGELOST, als ik hierin opgelost overtyp laat hij het formulier zien gefilterd door: medewerker-ICT en OPGELOST

Hoe is dit over te nemen zodat ik dat schermpje niet meer krijg?
De code zoals ik hem nu heb:

code:

stlinkcriteria = "[Medewerker-ICT]=" & "'" & Me![Keuzelijst met invoervak4] & "' AND status = Opgelost"

[TXC]

Je zult aanhalingstekens moeten gebruiken

code:

stlinkcriteria = "[Medewerker-ICT]=" & "'" & Me![Keuzelijst met invoervak4] & "' AND [status] = 'Opgelost'"

Zo dan denk ik.

[AB-Systems]

Dit werkt ook gaat de goede kant op
zou je me nog 1 hint kunnen geven?

Hoe kan ik meerdere AND's achter elkaar zetten (als dit kan)

[TXC]

Gewoon de AND's binnen de dubbele quotes (" ") plaatsen. Bijvoorbeeld zo:

Visual Basic:

MijnFilter = "[veld1] = 'voorwaarde1' AND [veld2] = 'voorwaarde2' OR [veld3] = 'voorwaarde3'"

Je kunt zowel AND en OR's gebruiken en je kunt ze ook nesten door haakjes te gebruiken:

Visual Basic:

MijnFilter = "[veld1] = 'voorwaarde1' OR ([veld2] = 'voorwaarde2' AND [veld3] = 'voorwaarde3')"

Even experimenteren, het is eigenlijk analoge schakeltechniek

[ Voor 15% gewijzigd door TXC op 19-09-2005 12:29 ]

[AB-Systems]

ik heb het nu als volgt.. maar dat werkt niet naar behoren

code:

Dim stDocName As String
    Dim stLinkCriteria As String
    
    stDocName = "Meldingen"
    
    stLinkCriteria = "[Medewerker-ICT]=" & "'" & Me![Keuzelijst met invoervak4] & "' AND [Status] = 'Nieuw' AND [status] = 'Wachtend'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

[TXC]

code:

Dim stDocName As String
    Dim stLinkCriteria As String
    
    stDocName = "Meldingen"
    
    stLinkCriteria = "[Medewerker-ICT]=" & "'" & Me![Keuzelijst met invoervak4] & "' AND [Status] = 'Nieuw' AND [status] = 'Wachtend'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Dit werkt inderdaad niet. Hoe kan de status nu tegelijk 'Nieuw' zijn en 'Wachtend'?

De laatste AND moet een OR (of) worden en dan moet je haakjes om de criteria gebruiken.

code:

stLinkCriteria = "[Medewerker-ICT]=" & "'" & Me![Keuzelijst met invoervak4] & "' (AND [Status] = 'Nieuw' OR [status] = 'Wachtend')"

[AB-Systems]

als ik het doe zoals jij reageert krijg ik een foutmelding

hij loopt vast bij die haakjes ( )

[TXC]

De bedoeling van GoT is dat je zelf ook eens bezig gaat met proberen wat zou kunnen helpen en niet alles klik en klaar kan overnemen.

Voor deze keer zal ik nog eens aardig zijn . Probeer dit eens:

code:

stLinkCriteria = "[Medewerker-ICT]=" & "'" & Me![Keuzelijst met invoervak4] & "' AND ([Status] = 'Nieuw' OR [status] = 'Wachtend')"[/quote]

[AB-Systems]

Sorry daarvoor maar ben nou al 3 weken aan het kloje met die database en het geen wat ik probeer lukt de ene keer weer wel en dan niet dus zat er even doorheen.
verder heel erg bedankt nou kan ik weer verder ermee.. want bleef steken op dit punt...