Avatar billede -anders- Juniormester
23. juli 2003 - 12:42 Der er 8 kommentarer og
1 løsning

Gemme resultat af søgning

Hej Eksperter

Jeg har en form, på denne form er der en liste med 2 kolonner ID,Titel hvor ID er skjult. Listen indeholder en masse poster fra den underligende tabel/forspørgsel. Jeg har en fritekstsøgning der returnere et givent resulat af min søgning til listen, dette køre fint. Spørgsmålet er nu:

Kan man gemme et evt. resultat der bliver returneret til listen feks. som en ny forspørgsel ved brug af VBA. Ideen er at man så skulle kunne vælge en gemt søgning/forspørgsel, som man så senere kunne vælge evt. fra en liste eller combo, og blot ved et klik indlæse denne. Kan dette lade sig gøre og i givet fald hvordan.

Jeg arbejder i Access2000

mvh Anders.
Avatar billede terry Ekspert
23. juli 2003 - 12:48 #1
Anders>You could SAVE the "søgning" in a table
Avatar billede -anders- Juniormester
23. juli 2003 - 12:51 #2
Terry> Kunne være en måde, men hvordan det lige skulle gøre kan jeg ikke overskue,min søgekode skifter Rowsource på listen Dim SQL as string o.s.v.
Avatar billede terry Ekspert
23. juli 2003 - 12:52 #3
Save the SQL which I am assuming you are building in code and then changing the list boxes record source. When you save teh SQL ask th euser for a Name for the "søgning" then you can show th elist of names in a listbox and when the user selects a name you change the listboxes record source!

Hope that makes sence :o)
Avatar billede -anders- Juniormester
23. juli 2003 - 12:54 #4
Hi
Jo det giver bestemt mening, nedenstående et eks. på min søgekode, kunne du ud fra dt lave et kodeeks.

Dim StrSqL As String

StrSqL = "Select * FROM fsOversigtHovedmenuSub Where [SagsNr] & [Kontakt] & [Bestilt udstyr]&[Afdeling] Like '*" & Me!Streng & "*'"

Me.lsthovedmenu.RowSource = StrSqL
Avatar billede terry Ekspert
23. juli 2003 - 12:58 #5
Lets say you have a combo box containing previos search names you have saved.
Using the NOT In list event for the combo you could add a new name and save the search SQL at the same time.


Docmd.runsql "INSERT INTO SearchTable (sName, sSQL) VALUES ('" & whateveryou gotfrominputbox & "', "' & TheListboxRecordsource & "')"
Avatar billede -anders- Juniormester
23. juli 2003 - 13:00 #6
Okay
Prøver lige og vender hurtigt tilbage
Avatar billede terry Ekspert
23. juli 2003 - 13:01 #7
Me.lsthovedmenu.RowSource = StrSqL has now updated your lisbox rowsource
You can SAVE the rowsource using the method I have given then if you choose a name from the combo use

Me.lsthovedmenu.RowSource = Dlookup("sSQL", "SearchTable", "sName = " & Me.TheSearchCombo )
Avatar billede -anders- Juniormester
23. juli 2003 - 13:25 #8
Hi Terry
Jeg har nu testet, og dit forslag virker perfekt som altid *SS*, når jeg har implemteret dit forslag lægger jeg det ud så andre evt kan få glæde af det points på vej til dig.

mvh Anders
Avatar billede terry Ekspert
23. juli 2003 - 13:38 #9
mange tak, great to hear its of use :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester