Problemer med Combobox

har også prøvet med feltet tomt. virker heller ikke.

if me.combo = ???? then
me.subform.source = "select * from tabel
me.subform.requery

source = RecordSource

hvad snakker du om .

Nope det har jeg prøvet. Jeg fik af vide i et tidligere spørgsmål fra Terry at man ikke kan vælge me.subform.recordsource og det kan man heller ikke. Hvis man skriver derudaf i VB, så kommer det heller ikke som en valgmulighed.

Skal man hen og skrive kode for det. Comboboxen må jo lave en query for at vise posterne som virker. Kan man ikke narrer den til at vise dem alle.

du kan jo lave et kritere i din forspørgelse IIF (form.comboboks = ??? ;"";form.comboks)

svar ..

løsningen er nem:

Typisk vil du have en tabel med et personID som nøgle.

Rowsourcen på comboboksen skal således se sådan ud:

Select PersonID, Navn From tblPerson UNION Select null, "(Alle)" From tblPErson ORder By Navn

Komboboksen indeholder nu 2 kolonner, hvor den første har bredden 0. Bundet kolonne er lig 1.

På komboboksens AfterUpdate-hændelse skriver du således:
If isnull(ME!MinCombobox) then
  Me!Subform.Form.Filteron = False
else
  Me!Subform.Form.Filter = "PersonID = " & Me!MinCombobox
  Me!Subform.Form.Filteron = true
endif

Alle navne skal selvfølgelig justeres til dine egne!

Det virker næsten. Jeg får dog en box op, hvori jeg skal indtaste et parameter værdi i for personen. Hvorfor det ????

Har du ikke personen (personID) med i underformularen?

Feltet behøver ikke at blive vist, men skal blot være med i tabellen/forespørgslen som danner underformularen

det er på rette vej, men det lort driller. nu låser den combo boxen. udfra hvad der bliver vist på hovedformen.

Så virker det. Skulle lige have sat lidt tabeller og forespørgsler på plads sammen med deres relationer. Juhuuuuuuuu.