Hur man skapar en dataSida för Sök i Access

May 20

Tillåt användare att söka efter poster i Microsoft Access-databas via Internet via en dataåtkomstsida. Dataåtkomst söksidor kan innehålla flera rekord fält för användare att mata in sökkriterier. Detta gör det möjligt för användare att visa bara den information de behöver utan att bläddra igenom hundratals eller tusentals poster. Användarna kan inte ändra data från en söksida; bara visa befintlig information.

Instruktioner

1 Öppna en befintlig Access-databas.

2 Klicka på "Sidor" i huvuddatabasfönstret.

3 Öppna en befintlig dataåtkomstsida i Design View genom att markera sidan och trycka på "design."

Om du skapar en ny dataåtkomstsida, fortsätter du till steg 4.

Hoppa till steg 5 för att lägga till sökfunktionalitet.

4 Tryck på "Ny" för att skapa en ny dataåtkomstsida. Välj en av de fyra alternativ för att skapa en ny sida.

Design View - Skapa en sida genom att välja en tabell eller fråga och sedan placera föremål från verktygslådan och fältlistan på den tomma formen.

Befintlig webbsida - Välj en befintlig webbsida för att dra design och data från.

Page Wizard - Välj en tabell eller fråga och följ guiden för att lägga till fält. Avsluta redigera sidan i Design View.

AutoPage: Kolumn - Skapa en sida med alla fält från en markerad tabell eller fråga placeras på sidan med textrutor.

5 Lägg till en knapp på din dataåtkomstsida. Klicka på "Kontroll Wizards" -knappen, som ser ut som en liten stav, för att stänga guiden. Om kontrollen är markerad, är det på. Klicka på "Button" ikonen för att lägga till en knapp.

6 Rita knappen på dataåtkomstsida.

7 Högerklicka på knappen och välj "Microsoft Script Editor."

8 Skapa kod för att klona sökkriterier och utför sökningen. Se exempelkoden nedan.

"Skapa OnClick Event - Använd namnet på knappen i stället för Sök
<Script language = VBScript händelse = onclick för = btnSearch>
<! - -

"Clone sökkriterier
dim rs
Set rs = MSODSC.DataPages (0) .Recordset.Clone
On Error Resume Next

"Utför sökning (Ersätt Sök med knappnamn)
rs.find "SampleField =" & CLng (InputBox ( "Ange sökkriterier", "Sök"))
"Om du vill söka efter text i stället för heltal, använd följande syntax:" SampleField = ' "& CStr (" Ange sökkriterier "," Sök ")) &"' "

"Skapa felhantering
Om (err.number <0>) Då

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

End If
Om (rs.bof) eller (rs.eof) Då

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

End If
MSODSC.DataPages (0) .Recordset.Bookmark = rs.Bookmark
->
</ Script>
<Script language = VBScript FÖR = MSODSC EVENT = Ström (oEventInfo)>

Tips

  • Lägg till flera sökkriterier genom att lägga till ytterligare fält i skriptet. Du kan också skapa en separat knapp för varje sökalternativ.
  • Namn på knappen något som är relevant för området du söker. Till exempel, om att söka efter namn, namn på knappen SearchName.

        

Välkommen till dig för att skicka en kommentar:

            
            
            
            

© 2021 Astrixsoft.com | Contact us: webmaster# astrixsoft.com