Forespørgsel - med flere kriterier

Hej
I forespørgslen i hvert felt under kriterier skriver du:
Like [Søgeord]
Vh Henrik

Hej
I stedet for søgeord kan du også skrive felteds navne ex.:
Like [Resultatliste]
Vh Henrik

Lidt kryptisk formuleret...
Skal man selv indtaste de tre værdier? Det lyder som om du vil have 3 combo-boxe (drop-down lists), hvor du kan vælge alle muligheder fra en liste.
???

Du skriver, at der er tre felter (og derfor også tre tabeller). Er der kun et felt i hver tabel?

lav en ubundet formular
i den laver du de 3 combo-boxe
de skal hente data fra hver sin tabel
gem formularen men hold den åben
minimer formularen og lug din forespørgsel op
nu kan du under kreterier generer vælge din formular og combo.
vælg formularer indlæste formularer og der kan du se dine combo,
dem skal du så vælge 'like' under de relevante kolonner.
husk i dine combo ved change at skrive me.update.

du kan nu indsætte en underformular som henter sine data fra forespørgslen, den vil så ændre sig efter hvad du vælger i comboerne.

underformularen skal ikke have noget i overordnet og underordnet.

OK, this is something I use myself, it should give you some ideas.

You have one or more combo boxes. In each of the combo boxes AFTER UPDATE paramaters you enter

=NewFilter()

This calls the following function which builds the forms filter property.


Function NewFilter()
Dim sFilter As String

    sFilter = "1 "
   
    If Not fldIsEmpty(Me.cboBy) Then
        sFilter = sFilter & " AND TownID = " & Me.cboBy
    End If
   
    If Not fldIsEmpty(Me.cboGade) Then
        sFilter = sFilter & " AND StreetID = " & Me.cboGade
    End If
   
    If Not fldIsEmpty(Me.cboType) Then
        sFilter = sFilter & " AND TypeID = " & Me.cboType
    End If


   
    Me.Filter = sFilter
   
    If sFilter = "1 " Then 'No filter
        Me.FilterOn = False
    Else
        Me.FilterOn = True
    End If
   
   
    Me.Refresh
   
   
End Function

kjar75 hows it going here?

<terry> Okay.. Jeg er desværre ikke med. Her er mine tabeller - det gør det måske lidt mere overskueligt!!

tbl.leverandør
leverandørnummer
navn

tbl.legeringer
legeringsnummer
legering

tbl.produkter
produktnummer
produkt

tbl.leverandør_produkt_legering
leverandørnummer
legeringsnummer
produktnummer

Den sidste tabel er en "opsamlingstabel" !!

I min søgeformular har jeg så følgende...
leverandørnummer
navn
legeringsnummer
legering
produktnummer
produkt

I denne formular, skal man så via en liste/combo kunne vælge en leverandør (opslagstabel fra tbl.leverandør) - og herefter få listet alle de produkter & legering for den respektive leverandør !!!

Håber forklaringen hjælper !!!

Terry - har du "koden" for dette ??

it may be easier for you to send me the dB!
eksperten@santhell.dk

OK I have altered the function to
Function NewFilter()
Dim sFilter As String

    sFilter = "1 "
   
    If Len(Me.cboLev) > 0 Then
        sFilter = sFilter & " AND LEVERANDØRNUMMER = '" & Me.cboLev & "'"
    End If
   
    If Len(Me.cboProduct) > 0 Then
        sFilter = sFilter & " AND PRODUKTNUMMER = '" & Me.cboProduct & "'"
   
    End If
   
    If Len(Me.cboLeg) > 0 Then
        sFilter = sFilter & " AND LEGERINGSNUMMER = '" & Me.cboLeg & "'"
    End If
   
    Me.Filter = sFilter
   
    If sFilter = "1 " Then 'No filter
        Me.FilterOn = False
    Else
        Me.FilterOn = True
    End If
   
    Me.Refresh
   
End Function

have you received my last mail?

kjar, this question has been open almost a month now, are you going to close it?

Ked af den sene tilbagemelding...
Men 1000 tak for det perfekte svar :-))

better late than never :o)
tak!