Dynamisk forespørgelse

see an example here >
http://home1.stofanet.dk/santhel/Download/Search demo 97.zip

I'm not sure what you mean with "at formularen indeholder alle tabeller"!
You cant NOT add ALL tables to a form and expect to create queries, but you can use the query builder where you can add tables and criteria to make a new query!

terry, dit link fungerer ikke.

demo 97.zip
is part of the link

it only a simple search form which demonstrates how to use the filter property

milvos, are you interested in getting help here?

Ja, men jeg har ikke rigtigt fået noget svar jeg kan bruge. Jeg har hentet din "filter" database, men den kan jeg ikke bruge. Jeg vil gerne kunne generer en forspørgelse direkte i en formular ved at markerer med flueben eller vælge fra en rulleliste og så generere en forspørgelse ud fra de valgte markeringer.

milvos, hvis det du skal bruge, skal være 100% dynamisk, så kræver den en hel del VBA-kodning. Alle dine tabeller skal hele tiden enumeres, således det bliver checket for nye tabeller og felter. Felt-typen skal ligeledes evalueres, da det vil have indflydelse på den/de SQL-sætninger som genereres. Men det kan fint lade sig gøre - men er altså et større arbejde end som så.

mvh /Snedker

Hvad hvis der kun er få ja/nej tabeller der skal genereres forespørgelser på ?

Milvos the idea in the form I sent CAN be used to build a dynamic SQL.

You should get an idea from this


Dim sSQL as string
Dim sFilter As String


    sSQL = "SELECT * FROM YourTable "
   
    sFilter = "WHERE 1 "
   
        If Not fldIsEmpty(Me.cboBy) Then
            sFilter = sFilter & " AND TownID = " & Me.cboBy
        End If
   
        If Not fldIsEmpty(Me.cboGade) Then
            sFilter = sFilter & " AND StreetID = " & Me.cboGade
        End If
   
        If Not fldIsEmpty(Me.cboType) Then
            sFilter = sFilter & " AND TypeID = " & Me.cboType
        End If

        If Not fldIsEmpty(Me.txtYear) Then
            sFilter = sFilter & " AND årstal = " & Me.txtYear
       
        End If

   
        If sFilter = "WHERE 1 " Then 'No Where
           
        Else
            sSQL = sSQL & sFilter
        End If
   

    'Now you have your SQL, now we need to alter the query we have alreday

    MakeQuery sSQL, "THeNameOfAnExistingQueryGoesHere"




'Not much (none) error checking but it gives an idea as to how it can be done
Function MakeQuery(rstrSQL As String, ByVal vstrPassThruQueryName As String) As Boolean
    Dim db  As Database
    Dim i  As Integer

    MakeQuery = False

    Set db = DBEngine.Workspaces(0).Databases(0)
   
    i = 0
   
    Do While db.QueryDefs(i).Name <> vstrPassThruQueryName
        i = i + 1
    Loop

    db.QueryDefs(i).SQL = rstrSQL
    db.Close

    MakeQuery = True
   
End Function

and it IS NOT checked

hows it going milvos?

I am still working on it, but the points go to you

thanks, you need to accept the answer then. If you need fruther help n this then drop a comment!