Søg i Access

http://www.eksperten.dk/spm/95670

Du skriver at du vil have resuatet i en tekstboks! Hvorfor vil du ikke bare vise de aktuelle poster i formularen?
Det nemmeste er at bruge Filter-metoden på formularen.

The above link refers to these questions
http://www.eksperten.dk/spm/94912
http://www.eksperten.dk/spm/94139

Hvis du har din tekstboks (her kaldet txtResultat) kan du lægge følgende kode på din søg-knap:

Dim SQLStr as String, Resultat as String
Dim rs as DAO.Recordset
If Me!Årgang<>\"\" then
  SQLStr = \"Årgang = \" & Me!Årgang
end if
if Me!Model<>\"\" then
  if Len(SQLStr) > 0 then SQLStr = SQLStr & \" And \"
  SQLStr = SQLStr & \"Model = \'\" & Me!Model & \"\'\"
end if
If Len(SQLStr) = 0 then
  Me!txtResultat = \"Der er ingen ure, som matcher kriterierne!\"
else
  Set rs = Currentdb.Openrecordset(\"Select * From Ure Where \" & SQLStr, dbopensnapshot)
  do until rs.EOF
    Resultat = Resultat & rs![Reg Nr] & vbnewline
    rs.movenext
  loop
  Me!txtResultat = Resultat
end if

Visse felt- og tabelnavne skal sikkert tilpasses.

glemte lige at sige at koden benytter DAO, så hvis du bruger Access 2000 eller XP skal du lave en reference til \"Microsoft DAO 3.x Object Library\" i Tools->References fra VBA-editoren.

Thomas, an easy way to get around having to test for Len(SQLStr) > 0 is to start with SQL = \"1 \"

and then everything is \"AND .....\"

which is the same as \"SELECT 1 AND ....\"

which is the same as \"SELECT 1 AND ....\"
=
which is the same as \"SELECT * WHERE 1 AND ....\"

and obviously the FROM :o)

haha, yeah, I was wandering what kind of SQL, you were talking about - I had some problems recognizing the syntax ;o)

But, you are right. I just like to keep my SQL as clean as possible. In this case I wouldn\'t gain very much, but if I had more cirteria-fields, your suggestion is good. I will keep it in mind, thx ;o)

Place this function in a module:
Function fldIsEmpty(fld As Variant)
   
    If IsNull(fld) Or fld = \"\" Or IsNull(Len(fld)) Then
        fldIsEmpty = True
    Else
        fldIsEmpty = False
    End If
   
End Function


Then you could have this code in a buttons on click event.
For each field you want to search you have to have similar lines as these>

For numeric fields>
    If Not fldIsEmpty(Me!TheField) Then
        sWhere = sWhere & \" AND FieldInTable = \" & Me!TheField
    endif

For text fields>
    If Not fldIsEmpty(Me!TheField) Then
        sWhere = sWhere & \" AND FieldInTable = \'\" & Me!TheField & \"\'\"
    endif

Example:
Dim sWhere as String

    sWhere = \"1 \"

    If Not fldIsEmpty(Me!Årgang) Then
        sWhere = sWhere & \" AND Årgang = \" & Me!Årgang
    endif

    If Not fldIsEmpty(Me!Model) Then
        sWhere = sWhere & \" AND Model = \'\" & Me!Model & \"\'\"
    endif

    If Not fldIsEmpty(Me!Fabrikant) Then
        sWhere = sWhere & \" AND Fabrikant = \'\" & Me!Fabrikant & \"\'\"
    endif

    If sWhere = \"1 \" Then sWhere = \"\"

    DoCmd.OpenForm \"ResultForm\", , ,sWhere

Til ThomasJepsen> Har prøvet lidt med din kode, men kan ik rigtig få den til at virke, så har lige nogle spørgsmål til den. Hvordan ved min søgeknap, som befinder sig i formularen \"Søg\" at den skal søge i felterne som er i formularen \"Indtastning af ure\". I formularen \"Søg\" har jeg nogle bokse som matcher dem i \"Indtastning af ure\" bare med den forskel af man indtaster det den skal søge efter under dem i \"Søg\". Altså hvis jeg indtaster 1985 i boksen årgang i formularen \"Søg\" skriver den Reg. nr. 2 fordi jeg har et ur med årgang 1985 i indtastning nr. 2 i min formular med \"indtastning af ure\"

Tror at jeg fik det forklaret lidt bedre denne gang, ellers også er alle bare faldet fra :s :) 

This opens the result form showing only the records you are interested in.
Note: The result forms records source MUST contain the fields you are searching on.

Det forstår jeg ikke meget af Terry. Som sagt er jeg ikke godt til Access. Jeg bliver nødt til at have et rigtigt eksemple...

I mit eksempel er det sådan set ligegyldigt hvilke felter der er på de andre formulare. Jeg kigger kun på den aktuelle formular (søg-formularen) og derefter direkte i tabellen.

Du har en tekstboks på Søgformularen, som hedder txtresultat, ikk\'? Det er jo her resultatet vises.

Hvad sker der, når du prøver? Hvilken fejl får du?

It is a RIGTIG example!
OK, if you cant understand that then you can send me the DB and I will take a look.
dkTeBrSa@Europe.lego.com

Jo, jeg har en txtresultat...
Jeg får denne fejl: \"Der er en syntakstfejl i FROM-delsætningen\" ----------------
Set rs = CurrentDb.Openrecordset(\"Select * From Indtastning af Ure Where \" & SQLStr, dbopensnapshot)

Prøv:
Set rs = CurrentDb.Openrecordset(\"Select * From [Indtastning af Ure] Where \" & SQLStr, dbopensnapshot)

Access er nemlig ikke så glad for mellemrum i felt- og tabelnavne!

access-idiot> Do you want to see the result of your search in another formular or what?

ThomasJepsen> Nu får jeg bare en ny fejl, jeg må ikke prøve at sende databasen til dig, og du så tager et look på den ?

jo da: tj@makeiteasy.dk

/Thomas

access-idiot> Se mine kommentar 12:36:231
Du kan godt send databasen til mig!

Sorry Terry, det havde jeg ikke set...

no probelm :o)

probelm  = problem

mange tak, men for hvad?

Til Terry. Tak for dit tilbud om at jeg kunne sende til dig, men har selv fået løst det ved hjælp af ThomasJepsen\' svar...

OK :o)