Random select med kriterie

Lav din forespørgsel, og i true/false felt, skriver du i kriterier:
-1 'For true
0  'for Falde

Jeg har opretted en for dig:
SELECT Tabel2.Id, Tabel2.Bøger, Tabel2.Bøgervis
FROM Tabel2
WHERE (((Tabel2.Bøgervis)=-1));
Rettelse til forige:
0  'for False

Det jeg leder efter er selve query'en

Den forstod jeg ikke, er det knappen til at køre forespørgslen du mener.

Hej,  knappenden den skal se sådan ud i vba:
Private Sub Kommandoknap1_Click()
On Error GoTo Err_Kommandoknap1_Click
Dim stDocName As String
stDocName = "Din forespørgsel"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Kommandoknap1_Click:
Exit Sub

Err_Kommandoknap1_Click:
MsgBox Err.Description
Resume Exit_Kommandoknap1_Click

End Sub
Nu skal du oprette en knap på formularen, rette "Din forespørgsel"
til hvad din hedder.

Det er "Din forespørgsel" som den "random select med kriterier"  jeg leder efter. Selve SQL strengen.

Den skal du oprette ud fra dine egne data,

Udgangspunktet er følgende:
Jeg kalder gettextadvert().

Det holder bare ikke i længden, jeg vil have mit SQL kald til at gøre alt for mig. Det dur jo ikke at jeg kalder samme funktion 2.998 gange for at finde en random af de to bøger som er markeret "aktiv" i databasen.

<%
function gettextadvert()
randomize Timer
set bogrs = server.createobject("adodb.recordset")
strSQL = "SELECT * FROM Bog WHERE ID=(SELECT Min(ID) FROM Bog WHERE ID >=(SELECT Round(CDbl(" & Replace(Rnd(),",",".")*Max(ID))) FROM Bog))"
bogrs.open strSQL, DBAnnonceConnect, 3, 3

if bogrs("Aktiv") = true then
  response.write "Noget tekst"
  bogrs.close
  set bogrs = nothing
else
  randomize Timer
  gettextadvert()
end if
end function
%>