dynamisk søgefunktion med dobbelt kriterie

det kan man ikke se på
SQLStr = SQLStr & "[ansættelsesdato] <= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "# and "

mangler der ikke noget ??

Mener du sådan her:

If Me![oplysninger pr] <> "" Then
  SQLStr = SQLStr & "(([ansættelsesdato] <= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "# AND [fratrædelsesdato] Is Null)"
  SQLStr = SQLStr & " OR "
  SQLStr = SQLStr & "([fratrædelsesdato] >= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "#)) and "
End If

Bemærk alle de nye paranteser ;o)

For mig ser den ud til at virke. Den er brugt på eksperten flere steder, men ikke i den udgave jeg søger. Hvad mener du mangler?

Det er svaert at sige naar vi ikke ser hele sql expression, men jeg tror det er forkert at lave to if-grupper.

Proev med dette:

If Me![oplysninger pr] <> "" Then
SQLStr = SQLStr & "[ansættelsesdato] <= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "# and "
SQLStr = SQLStr & "[fratrædelsesdato] >= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "# and "
End If

#2 og #3 blev aabenbart sendt mens jeg var i gang med at skrive mit indlaeg.

Den virker som den første (er afprøvet). Hele koden:
Private Sub Kommandoknap4_Click()
Dim SQLStr As String
   
    If Me![oplysninger pr] <> "" Then
        SQLStr = SQLStr & "[medarbejdernummer] like '*" & Me!Medarbejdernummer & "*' And "
        SQLStr = SQLStr & "[ansættelsesdato] <= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "# and "
        SQLStr = SQLStr & "[fratrædelsesdato] >= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "# and "
    End If
     
    If Len(SQLStr) = 0 Then
        DoCmd.OpenForm "ansættelser"
        DoCmd.Close acForm, "ansættelser søgning"
    Else
        SQLStr = Left(SQLStr, Len(SQLStr) - 5)
        DoCmd.OpenForm "ansættelser", , , SQLStr
        DoCmd.Close acForm, "ansættelser søgning"
    End If
End Sub

Jeg søger udover datoen også på medarbejdernummer

Jamen saa tillader jeg mig at oprette et svar for med undtagelse af tilfoejelsen for medarbejdernummer saa var det den loesning jeg presenterede i #4.

den søger ikke på blank fratrædelsesdato

>> Christian. Blander mig lige. Du mangler en lille (ikke ubetydelig) krølle.

Bemærk spm: ...hvor ansættelsesdatoen er mindre eller lig med [oplysninger pr] OG fratrædelsesdato er blank ELLER fratrædelsesdato er større end [oplysninger pr]

Din løsning medtager kun poster, hvor ansættelses- og fratrædelsesdatoerne begge er udfyldt.

Se i mit svar #2. Her er udtrykket:
  ansættelsesdatoen er mindre eller lig med [oplysninger pr] OG fratrædelsesdato er blank
    ELLER
  fratrædelsesdato er større end [oplysninger pr]

Sorry, havde ikke set dit svar. Vi er tæt på.
Men af en eller anden grund tager din kode også data med hvor [oplysninger pr] ligger før ansættelsesdatoen.
Det gør koden i #6 ikke.

Til oplysning skal det nævnes at jeg har smidt SQLStr = SQLStr & "[medarbejdernummer] like '*" & Me!Medarbejdernummer & "*' And "
ind på hver sin side af OR

fdata, de indlaeg vi sendte med 4 minutters mellemrum (du foerst mens jeg skrev mit) har det til faelles at de fjerner det dobbelte IF  END IF hvilket synes at vaere hovedproblemet i koden i det oprindelige spoergsmaal.

dane022 (og fdata), det jeg konstaterede er at den kode du i #6 siger virker og som du synes at vaere tilfreds med svarer til mit indlaeg.

fdata synes saa at sige at du ikke burde vaere tilfreds med koden i #t6 (og med min kode) fordi de ikke tester for blanke dater, og i #9 siger du saa det samme.

Lad mig lave to kommentarer:  (1) Jeg er selv i gang med at laere Access (startede for cirka to maaneder siden) og det er tilfredsstillende og jeg giver mig selv interne points for at jeg kunnet se hovedproblemet og foreslaa en loesning der virker.

(2)  Det er ved at vaere sengetid i Belgien hvor jeg bor.  Nu hvor du har en loesning paa det problem du stillede synes jeg at du boer lukke spoergsmaalet og uddele points som du skoenner.  Jeg kikker paa traaden i morgen tidlig.

Og saa igen, #11 blev sendt mens jeg skrev min #12.  Jeg stopper.  Held og lykke med at fastlaegge hvilken kode du vil bruge.

Her er et eksempel for at vise princippet, der kan give dig din løsning:

qFraTraadt:
SELECT tblAnsatte.Navn, tblAnsatte.Fratraadt
FROM tblAnsatte
WHERE (((tblAnsatte.Fratraadt)<=[DinDato:]));

...og endelig forespørgsel:

SELECT tblAnsatte.Navn, tblAnsatte.Ansat, tblAnsatte.Fratraadt
FROM tblAnsatte LEFT JOIN qFraTraadt ON tblAnsatte.Navn = qFraTraadt.Navn
WHERE (((tblAnsatte.Ansat)<=[DinDato:]) AND ((qFraTraadt.Navn) Is Null));

!~)

Øøøh. Nu er jeg forvirret. Du skriver: Men af en eller anden grund tager din kode også data med hvor [oplysninger pr] ligger før ansættelsesdatoen.

Ja, i de tilfælde, hvor en medarbejder er fratrådt, ses der ikke på ansættelsesdatoen; men det er jo sådan, du har specificeret dit spørgsmål!

Hvis du mener noget andet, må du lige forklare helt præcist, hvad det er du så ønsker.

Tjah, jeg kan jo forresten prøve at gætte. Hvad med:

If Me![oplysninger pr] <> "" Then
  SQLStr = SQLStr & "[ansættelsesdato] <= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "#"
  SQLStr = SQLStr & " AND ""
  SQLStr = SQLStr & " (([fratrædelsesdato] Is Null) OR ([fratrædelsesdato] >= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "#)"
End If

Det vil give dig alle medarbejdere der er ansat pr. den dato der skrives i [oplysninger pr.]., som du skriver i dit spm.

Jeg er glad for de mange input, det er godt at være omgivet af eksperter.

Christian: Jeg skriver i #1 at koden skal udsøge de medarbejdere der er aktive på den gældende dato. Din kode i #4 er egentlig bare en gentagelse af den jeg havde i forvejen, men uden dobbelt IF og END IF. De gør ingen forskel, men er selvfølgelig unødvendige.

Den kode der kom tættest var #2. Den havde kun den fejl, at var fratrædelsesdatoen udfyldt og udsøgningsdatoen lå før ansættelsesdatoen, kom medarbejderen stadig frem. Fdata får derfor point. Den tilrettede kode:
If Me![oplysninger pr] <> "" Then
        SQLStr = SQLStr & "[medarbejdernummer] like '*" & Me!Medarbejdernummer & "*' And "
        SQLStr = SQLStr & "(([ansættelsesdato] <= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "# AND [fratrædelsesdato] Is Null)"
        SQLStr = SQLStr & " OR "
        SQLStr = SQLStr & "[medarbejdernummer] like '*" & Me!Medarbejdernummer & "*' And "
        SQLStr = SQLStr & "[ansættelsesdato] <= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "# and "
        SQLStr = SQLStr & "([fratrædelsesdato] >= #" & Format(Me![oplysninger pr], "yyyy-mm-dd") & "#)) and "
    End If

fdata, jeg har først lige set dine indlæg fra idag.
Håber du med mit sidste indlæg forstod hvad jeg mente, men det vigtige er jo at det er løst. Koden blev måske bare lidt længere end du selv ville have gjort den til, men for mig er det vigtigste at det virker

No sweat. Din løsning er jo i runde tal magen til mit forslag.
Takker for point  ;o)