Å vite hvordan du bruker Visual Basic i Access 2007 kan gi deg stor fleksibilitet ved utvikling av databaseapplikasjoner. Access 2007 gir deg muligheten til å forbedre utviklingen og gir deg muligheten til å skrive Visual Basic-kode for skjemaer og kontroller du har opprettet. Visual Basic er et programmeringsspråk utviklet av Microsoft og det er lett å bruke. Du kan enkelt programmere i Visual Basic lage rapporter i en database eller utføre repetitive manuelle oppgaver. Instruksjoner
en
Klikk på " Create "-kategorien i Access og velg " Form Design. " Programmet vil skape en ny form . Velg " Button" kontroll under " Controls " -panelet og flytte musen over det nye skjemaet . Venstre -klikk og skape den nye knappen . Legge til en " List Box" kontrollen til skjemaet på samme måte som du har lagt på knappen .
2
Høyreklikk på listen og velg "Egenskaper". På "Property skjema ", klikk på "Data "-fanen og velg drop- down boks på " Row Kilde Type " og velg "Value List ".
3
Høyreklikk på den nye knappen og velg " Properties". På " Egenskapsark " klikk på "Event "-fanen og velge rullegardinmenyen " Ved klikk " og velg " [ Hendelsesprosedyre ] . " . Klikk på ellipse ( ... ) og en ny Microsoft Visual Basic åpnes
4
Skriv inn følgende : en
Dim DBS Som Database
Dim rst Som RecordSet
Dim X As Integer
Dim strSQL As String
Dim lastFirst As String
å erklære variabler du vil bruke.
5
Type:
Set dBS = CurrentDb
å angi gjeldende database
Type: .
strSQL = "CREATE TABLE Table1 ( Fornavn TEKST ( 25 ) , Etternavn TEKST ( 25 )); . "
DoCmd.RunSQL ( strSQL )
å opprette en ny tabell i databasen som heter" tabell 1 "
6
Type:
strSQL = " INSERT INTO Table1 ( [Fornavn ] , [Etternavn ] )"
strSQL = strSQL & " VALUES ( ' John ', ' Smith ' ) ; ".
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL )
å sette inn den første raden med data
7
Type : en
strSQL = " INSERT INTO Table1 ( [Fornavn ] , [Etternavn ] )"
strSQL = strSQL & " VALUES ( ' Jaime ', ' Avelar '); "
< . p > DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL )
å sette inn en ekstra rad med data
8
Type:
Set rst = dbs.OpenRecordset ( " Tabell 1 ")
å sette rekord satt
Type: .
rst.MoveFirst
for X = 0 å rst.RecordCount - en
lastFirst = Trim ( . rst.Fields ( "Etternavn" ) Value) & " " & Trim ( rst.Fields ( " . Fornavn" ) Value)
List1.AddItem lastFirst
rst.MoveNext
Neste X
å sløyfe gjennom postene du nettopp har laget og vise dem i listen på skjemaet .
9
Type:
MsgBox "Du har vist alle rekorder i Table1 å liste boksen vellykket" , vbInformation
å vise en melding. Bytt vinduer tilbake til Access 2007 og klikk på " Vis" for å kjøre skjemaet . Klikk på " Command0 "-knappen og du vil se listen kontroll viser navnene .
