Hvordan lage en data side for Søk i Access

September 4

Tillat brukere å søke etter poster i Microsoft Access-database via Internett gjennom en datatilgang side. Datatilgang søkesider kan inneholde flere rekord felt for brukere å legge inn søkekriterier. Dette tillater brukere å vise bare den informasjonen de trenger uten å bla gjennom hundrevis eller kanskje tusenvis av poster. Brukere kan ikke endre data fra en søkeside; bare vise eksisterende informasjon.

Bruksanvisning

1 Åpne en eksisterende Access database.

2 Klikk på "Sider" i hoveddatabasen vinduet.

3 Åpne en eksisterende datatilgang nettstedet på design Vis ved å velge side og trykke på "Design".

Hvis du oppretter en ny datatilgang side, fortsett til trinn 4.

Gå til trinn 5 for å legge til søkefunksjonalitet.

4 Trykk "New" for å opprette en ny datatilgang side. Velg ett av fire alternativer for å opprette en ny side.

Design View - Opprett en side ved å velge en tabell eller spørring og deretter plassere objekter fra verktøykassen og feltlisten på nye skjemaer.

Eksisterende webside - Velg en eksisterende nettside for å trekke design og data fra.

Side Wizard - Velg en tabell eller spørring og følg veiviseren for å legge til felt. Ferdig med å redigere siden i Design View.

AutoPage: Columnar - Opprett en side med alle feltene fra en valgt tabell eller spørring plasseres på siden med tekstbokser.

5 Legg til en knapp til datatilgang siden. Klikk på "Kontroll Wizards" -knappen, som ser ut som en liten tryllestav, for å slå av veiviseren. Hvis kontrollen er markert, er det på. Klikk på "Button" ikonet for å legge til en knapp.

6 Tegn knappen på datatilgang siden.

7 Høyreklikk på knappen og velg "Microsoft Script Editor."

8 Lag kode for å klone søkekriterier og utføre søket. Se eksempelkoden nedenfor.

Opprett onclick hendelses - Bruk navnet på knappen i stedet for søk
<Script language = VBScript hendelsen = onclick for = btnSearch>
<! - -

'Clone søkekriterier
dim rs
Set rs = MSODSC.DataPages (0) .Recordset.Clone
På feil gjenoppta neste

"Utfør søk (erstatt Søk med knapp navn)
rs.find "SampleField =" & CLng (InputBox ( "Angi søkekriterier", "Søk"))
"Hvis du vil søke etter tekst i stedet for tall, bruker følgende syntaks:" SampleField = ' "& CSTR (" Skriv inn søkekriterier "," Søk ")) &"' "

Opprett feilhåndtering
Hvis (err.number <0>) Så

Msgbox "Error: " & err.number & " " & err.description,,"Search Invalid" Exit Sub

Slutt om
Hvis (rs.bof) eller (rs.eof) Deretter

Msgbox "No Results Found",,"Search Complete" Exit Sub

Slutt om
MSODSC.DataPages (0) .Recordset.Bookmark = rs.Bookmark
->
</ SCRIPT>
<Script language = VBScript FOR = MSODSC EVENT = Current (oEventInfo)>

Hint

Legg til flere søkekriterier ved å legge inn flere felt i manuset. Du kan også opprette en egen knapp for hvert søkealternativ.
Navn på knappen noe relevant til feltet du søker. For eksempel, hvis du søker etter navn, navnet på knappen SearchName.