Ja/nej-problem

Du henviser til en formular således:

=[FORMS]![FORMULARNAVN]![FELTNAVN]

Når du indtaster ovennævnte kriterie, forlanger din forespørgsel en værdi i formularens felt. Hvis du vil ghave alle poster, vil jeg råde dig til at lave en ny forespørgsel med tilhørende rapport uden kriterier. Husk, at forespørgsler og rapporter fylder meget lidt i din db, idet de jo ikke indeholder data før de bliver åbnet.

200 point er max for et spørgsmål :o)

Mange tak - men min mening er at kombinere 23 forskellige ja/nej-muligheder, så det bliver hurtigt til mange forskellige forespørgsler, hvis der skal være én til hvis kombination af disse ja/nej-muligheder. Men leger lidt videre med det - tror måske, jeg har en ide, hvor jeg bruger nogle jokertegn, eller et eller andet.

Hvis du har alle dine Ja/nej felter i forespørgslen kan du jo blot indsætte et kriterie for hvert felt i formularen.

Hej igen.

Altså - for at tage et lidt mere lay low-eksempel har jeg følgende:
SELECT [tryout].[id], [tryout].[tekst]
FROM tryout
WHERE [tryout].[id]=[forms]![frm_tryout]![id] And [tryout].[tekst] Like "*=[forms]![frm_tryout]![tekst]*";

Det er min sql-sætning i min query. Har naturligvis en tabel bag med nogle eks-data.
Min formular hedder self frm_tryout og de to felter, jeg bruger hedder hhv. id og tekst. Jeg har i formen en knap der åbner queryen med denne sætning - men den finder ingenting overhovedet, når jeg trykker på knappen.
Er der én, der har en anelse om, hvorfor???

Jo - men det skal være sådan, at nogle kan være "tomme" så den ikke tager sig af, om det er ja eller nej i tabellen, da det er en anden ja/nej-mulighed, der er den vigtige

Jeg har ikke selv brugt det men kan man ikke sætte ja/nej felterne til at have 3 tilstande og så sætte dem alle ind i forespørgslen. Det kræver nok at dit datamateriale også har 3 værdier... Det er bare lidt strøtanker fordi jeg kan ikke helt overskue dit problem, jeg har nok brug for et lidt mere specifikt eksempel før jeg kan hjælpe!~)

Er der en forespørgsel til hver ja/nej kombination, så kunne du vel lave det i sql. Måske med nogle if sætninger...

Tomme Ja/Nej felter?
Jeg mener ikke det er muligt, idet et Ja/Nej felt jo i sagens natur kun kan have 2 tilstande: Ja eller Nej, True eller False, 0 eller -1.

Men lad os høre nogle bud.

Lad være med at bruge mere krudt på ham, han vil alligevel ikke dele point ud.

Ja - Ude

Hvis dine Ja/Nej felter er oprettet som Afkrydsningsfelter i din formular, kan du på egenskaberne/fanen Data i nederste række markere, om afkrydsningsfelterne skal have 3 tilstande. Er det den, du efterlyser?

Eksempel til illustration af mulig løsning:

Tabel: Tabel1
Id    Autonummerering
Cb1    Ja/nej
Cb2    Ja/nej
Cb3    Ja/nej
Et antal poster oprettet m/variabelmønster af værdier i Cb’er

Forespørgsel: Forespørgsel1
-    Tabel1
-    Alle felter – MED ET KRITERIUM – felt/værdi underordnet (af hensyn til ”WHERE”)

Formular: Resultat
-    Forespørgsel1

Formular: Søgeformular
-    Ubundet
-    3 checkbokse – benævnt Cb1 – Cb3
-    1 Knap m/navnet ”Go”

VBA - kode – der aktiveret v/klik på Go
Aflæser den ønskede indstilling af checkbokse – og modificere SQL-sætning i Forespørgse1.

Option Compare Database
Const fsp = "Forespørgsel1"                        '*** Tilrettes ***

Private Sub cb1_DblClick(Cancel As Integer)        'DobbelKlik
    [cb1].Value = Null                              'værdi sættes til Null
End Sub

Private Sub cb2_DblClick(Cancel As Integer)
    [cb2].Value = Null
End Sub

Private Sub cb3_DblClick(Cancel As Integer)
    [cb3].Value = Null
End Sub

Private Sub Form_Open(Cancel As Integer)
Rem Sæt alle checkbox = null
    [cb1].Value = Null
    [cb2].Value = Null
    [cb3].Value = Null
End Sub

Private Sub Go_Click()
Dim db As Database, fs As QueryDef, sqS As String, wP, sq1 As String, sq2 As String, sq3 As String
    Set db = CurrentDb
    Set fs = db.QueryDefs(fsp)
    sqS = fs.sql
   
    wP = InStr(sqS, "Where")
    If wP > 0 Then
        sq1 = Left(sqS, wP - 1)
        sq2 = Mid(sqS, wP + 6)
        sq3 = modificerSQL(LCase(sq2))
       
        fs.sql = sq1 + "WHERE " + sq3
        DoCmd.OpenQuery fsp
    End If
End Sub

Private Function modificerSQL(str As String)
Dim del, ff As Control, rSQL, svar As String, fNavn As String, antalCB As Integer, count As Integer
    rSQL = ""
    antalCB = 0
   
    For Each ff In Controls
        If InStr(LCase(ff.Name), "cb") > 0 Then
            antalCB = antalCB + 1
        End If
    Next ff
   
    count = 0
    For Each ff In Controls
        If InStr(LCase(ff.Name), "cb") > 0 Then
            fNavn = "((Tabel1." + ff.Name + ")"
           
            If ff.Value = True Then
                svar = fNavn + "=Yes)"
            Else
                If ff.Value = "False" Then
                    svar = fNavn + "=No)"
                Else
                    svar = fNavn + "is not null)"
                End If
            End If
            count = count + 1
           
            If count < antalCB Then
                rSQL = rSQL + svar + " AND "
            Else
                rSQL = rSQL + svar
            End If
        End If
    Next
    modificerSQL = "((" + rSQL + "))"
End Function

Mvh

Ønskes DB tilsendt – kontakt pb@supertekst-it.dk