Afkryds felter i forespørgsel, afhængig af combobox

pt. har jeg 12 forespørgsler, og en lille kode på combo'en, der siger at "rowsource" skal være dit, hvis valget er dat...og det virker ærlig talt en smule kluntet, at have næsten den samme if-sætning, 12 gangen under hindanden, og ikke mindst 12 næsten ens forespørgsler. *hjælp*
:D

Jeg tror at din db i sin grundlæggende form er konstrueret forkert.
Du skriver, at der kun skal være et "ja" hver gang, og som jeg fortolker det, er det den samme post.

Du kan evt. benytte en gruppeboks, der kun giver dig mulighed for at vælge een værdi. Denne værdi bliver returneret til tabellen som en numerisk værdi. Hvis du vil have en tekstboks til at vise "Ja" eller "Nej", kan du bruge en Select Case i boksens Vedklik.

There may be an easier solution, but I would use this method myself!

In a module

If MyCombo = 1 Then

CurrentDb.QueryDefs("YourQueryNameGoesHere").SQL = "SELECT...... WHERE rk1 = 'ja'"

Else

CurrentDb.QueryDefs("YourQueryNameGoesHere").SQL = "SELECT...... WHERE rk2 = 'ja'"


End if

NOTE: NOT tested

and I am assuming that rk1 and rk2 are text fields not booleon

Ok...jeg har nok ikke forklaret mig så grundigt :D
En post indeholder 12 "ja/nej"(boolean). Et vilkårligt antal kan være afkrydset. Aktuelt er det en række skabeloner, der kan bruges i et antal sammenhænge. Brugeren kan så definere i hvilke sammenhænge en bestemt skabelon kan bruges.
Udfra valget skal man så præsenteres for lige præcis de skabeloner, der har "ja" i det valgte felt.

Jeg er ikke klar over, om det kan laves smartere...det kan det sikkert :D

Så kan du ikke bruge min løsning.

kasper>If I undersaymd your problem correctly you want to change the SQL in the query depending on what value you have chosen in the combo. If this is correct then the solution (example) I have given does just that! It obvioulsy needs to be modified to take into account ALL possible values in the combo!

and because it is a boloean then you need to use

"... WHERE WHERE rk1 = -1"

so in the combos AFTER UPDATE event you need to perform the code which changes the SQL in the query!

"... WHERE WHERE rk1 = -1" = "... WHERE rk1 = -1"

ok...den vil ikke som jeg vil, men du er inde på det helt rigtige Terry.
Jeg har:
If Me!Kbox1 = 1 Then
  CurrentDb.QueryDefs("qryA").SQL = ("Dette her er jeg i tvivl om")
End If

Kriteriet i kolonne "rk1" skal sættes til "sand", eller hvad det nu måtte være.
Hvad ska der stå, der hvor jeg er i tvivl?
:D
/kasper

.SQL = "This contains the SQL as it is in the query when you set the criteria for rk1"

Example:

CurrentDb.QueryDefs("qryA").SQL = "SELECT * From YourTable WHERE rk1 = -1"

If the SQL is long then an easier method would be to make a copy of qryA and name it qryB. Remove any criterie from the query. Now change qryA to

"SELECT * from qryB"


Now use

If Me!Kbox1 = 1 Then
  CurrentDb.QueryDefs("qryA").SQL = "SELECT * FROM qryB WHERE rk1 = -1"
End If


Hope that all makes sence?

Ja...det giver mening...nu tror jeg sq det lykkedes :D
Det kræver lidt mere tilretning, men det skal nok virke, og du får dine velfortjente point.

Thanks Kasper

drop a comment if you need further help. Will take a look tomorrow, I'm off for a beer :o)