søge ved hjælp af en combo box

Er ikke helt sikker på koden, men kan du ikke evt. lave noget i retning af

If Me.Combobox = "" Then
Exit Sub
Else
DoCmd.ApplyFilter , "[DinTabel]." & Me.Combobox & " = True"
End If

Hvad laver det punktum her:
"[DinTabel]."

Jeg tænkte noget i retning af fx. "[DinTabel].Captain = True" bare med comboboxen som variable. Har ikke testet det, så jeg ved faktisk ikke om det kan lade sig gøre :c)

Har lige lavet et par tests og det virker umiddelbart, så jeg håber det kan bruges :c)

Hvad hvis de faste værdier i combo boksen skal være

Captain
Chief Officer
Chief Engineer
First Officer
Second Officer
Crew

Jamen så laver du bare en combobox baseret på en valuelist som du definere.

men det var måske ikke det du mente?

Hvis du vil tilfoeje din liste til en combo-box kan du laegge koden i onLoad for din formular:

me.Combobox.AddItem "Captain"
osv

Not quite sure I understand the problem Jan!

You say you have a table with 6 yes/no fields (Captain, ChiefOfficer, ChiefEngineer, FirstOfficer, SecondOfficer og Crew)

Now you want to use a combo to filter the result depending on what value you choose from the combo. The combo contains

Captain
Chief Officer
Chief Engineer
First Officer
Second Officer
Crew

First, I'll just point out that it seems to me that this is a normalization problem. You should have a seperate table containing these values each with an ID. Then in the table where you have th e6 Yes/no fields you should have ONE field (foreign key) to contain the ID.


But lets look at your problem as it is!

First I would alter the combo to contain two columsn with these values

0;Captain
1;Chief Officer
2;Chief Engineer
3;First Officer
4;Second Officer
5;Crew



Now in the after update event of the combo you should be able to use something like this


Dim sFilter as string

SELECT Case Me.Combo

    Case 0
          sFilter = "Captain = True"
        Case 1
          sFilter = "ChiefOfficer = True"
        Case 2
          sFilter = "ChiefEngineer = True"
        Case 3
          sFilter = "FirstOfficer = True"
        Case 4
          sFilter = "SecondOfficer = True"
        Case 5
          sFilter = "Crew = True"

End select

    If Len(sFilter) > 0 Then
      Me.filter = sFilter
          Me.filterOn = True
        else
          Me.filterOn = False
        end if

NOTE: Not tested :o)

Tak alle sammen for jeres ideer. Vil teste lidt senere iaften. Er lige kommet hjem efter et langt.... møde

'terry' hvor skal disse sættes ind?

First I would alter the combo to contain two columsn with these values

0;Captain
1;Chief Officer
2;Chief Engineer
3;First Officer
4;Second Officer
5;Crew

Jan

under properties ved default values

'terry' fik det til at virke :-)

RowSource Type = Value List
then the values are set in Row Source

I assume thats what you have done?

'terry' som du skrev lavede jeg en tabel med værdierne. :-) og brugte

din kode:

Dim sFilter as string

SELECT Case Me.Combo

    Case 0
          sFilter = "Captain = True"
        Case 1
          sFilter = "ChiefOfficer = True"
        Case 2
          sFilter = "ChiefEngineer = True"
        Case 3
          sFilter = "FirstOfficer = True"
        Case 4
          sFilter = "SecondOfficer = True"
        Case 5
          sFilter = "Crew = True"

End select

    If Len(sFilter) > 0 Then
      Me.filter = sFilter
          Me.filterOn = True
        else
          Me.filterOn = False
        end if

OK, og tak :o)