Forespørgsel på baggrund af listbokse

NB! Formularen hedder Defect rapport, og listboksene hedder :

ListboksProjekt, ListboksSeverity og ListboksStatus

Istedet for Like, skal du benytte syntaxen In() istedet ....

Jeg har en lille demodatabase som viser funktionen ( Multiselect ) som jeg kan maile til dig

ja tak, du må gerne maile den til janriisNOSPAM@the-dot.dk
fjern NOSPAM

Sendt

jensen363>må jeg også se.... spg.eksperten@gmail.com

spg > sendt :-)

!~)

Hej Jensen363: tak for db'en. Hvad bruges den txtCriteria_1 til ?

Sådan så virker det. hvordan retter jeg min forespørgsel til, hvis jeg har mere end en listboks ? I dit eksempel kunde det være at man både ville vælge kunder og f.eks geografisk placering.

Du benytter dig af kriteriet WHERE ...

Eksempel hvor du søger bestemte Kunder i bestemte postnr

WHERE (((tblKundekartotek.KundeNavn) In ("Kunde1","Kunde2")) AND ((tblKundekartotek.Postnr) In ("Postnr1","Postnr2")));

txtCriteria_1 benyttes til at opbygge den tekststreng som benyttes i In("tekststreng")

Takker. Det er perfekt :-)

Og tak for point :-)

Jeg var lidt hurtig her. Det virker ikke helt efter hensigten. Skal jeg lave ny txtCriteria textbox til nr 2 og 3 listboxe og derefter tilrette "EfterOpdatering" koden ?

Ja, du skal have een txtCriteria boks for hver søgekriterie

Programkoden er nok lidt langhåret ... men jeg håber du kan gennemskue den

den kode må du da godt sende. Jeg skal nok stille et nyt spørgsmål så du kan få point for den

Jeg refererede til den programkode ( AfterUpdate ) som ligger i formularen i det pågældende eksempel

Private Sub P_Valg_AfterUpdate()

Dim Q_1 As QueryDef, DB As Database
Dim Criteria_1 As String
Dim ctl_1 As Control  ' listbox
Dim Itm_1 As Variant  ' variable i listbox

Set ctl_1 = Me![P_Valg]

For Each Itm_1 In ctl_1.ItemsSelected
    If Len(Criteria_1) = 0 Then
        Criteria_1 = Chr(34) & ctl_1.ItemData(Itm_1) & Chr(34)
    Else
        Criteria_1 = Criteria_1 & "," & Chr(34) & ctl_1.ItemData(Itm_1) _
        & Chr(34)
    End If
   
Next Itm_1

If Len(Criteria_1) = 0 Then
    Itm_1 = MsgBox("Vælg én eller flere kunder eller '*'.", 0, "Intet valg")
Exit Sub

End If

    txtCriteria_1.Value = Criteria_1

Set DB = CurrentDb()
Set Q_1 = DB.QueryDefs("Multiselect_1")
Q_1.SQL = "Select * From tblKundekartotek Where [Kundenavn] In(" & Criteria_1 & _
    ");"
               
End Sub

Du skal have en noget nær identisk programkode for hver listbox du vil benytte i din udvælgelse ... eneste forskel er, at den skal levere data til hver sit kriterie

    Criteria_1 ændres til Criteria_2
    ctl_1 ændres til ctl_2
    Itm_1 ændres til Itm_2
    txtCriteria_1 ændres til txtCriteria_2

osv ...