Hvordan bruke Visual Basic for Access 2007
Å vite hvordan du bruker Visual Basic i Access 2007 kan gi deg stor fleksibilitet når du utvikler databaseapplikasjoner. Access 2007 gir deg muligheten til å forbedre din utvikling som gir deg muligheten til å skrive Visual Basic-kode for de former og styrer du 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 Access-database eller utfører repetitive manuelle oppgaver.
Bruksanvisning
1 Klikk på fanen "Create" i Access og velg "Form Design." Programmet vil skape en ny form. Velg "Button" kontroll under "Controls" -panelet og beveger musen over den nye formen. Venstre-klikk og opprette den nye knappen. Legg en "List Box" kontrollen til skjemaet på samme måte som du har lagt på knappen.
2 Høyreklikk på listen og velg "Properties". På "Property Sheet," 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å "Property Sheet" klikk på fanen "Event" og velg rullegardinboksen på "On Klikk" og velg "[Hendelsesprosedyre]." Klikk på ellipsen (...) og en ny Microsoft Visual Basic åpnes.
4 Skriv inn følgende:
Dim dbs som database
Dim rst As Recordset
Dim x As Integer
Dim strSQL As String
Dim lastFirst As String
å erklære variabler du vil bruke.
5 Type:
Sett dbs = CurrentDb
å sette 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 Tabell1 ([Fornavn], [Lastname])"
strSQL = strSQL & "VERDIER ( 'John', 'Smith');"
DoCmd.SetWarnings falske
DoCmd.RunSQL (strSQL)
for å sette inn den første raden med data.
7 Type:
strSQL = "INSERT INTO Tabell1 ([Fornavn], [Lastname])"
strSQL = strSQL & "VERDIER ( 'Jaime', 'Avelar');"
DoCmd.SetWarnings falske
DoCmd.RunSQL (strSQL)
for å sette inn en ny rad med data.
8 Type:
Sett rst = dbs.OpenRecordset ( "Tabell 1")
å sette posten settet.
Type:
rst.MoveFirst
For X = 0 For å rst.RecordCount - 1
lastFirst = Trim(rst.Fields("LastName").Value) & " " & Trim(rst.Fields("FirstName").Value)
List1.AddItem lastFirst
rst.MoveNext
Neste X
å sløyfe gjennom postene har du nettopp opprettet, og vise dem i listeboksen på skjemaet.
9 Type:
MsgBox "Du har vist alle rekorder i Table1 å liste boks vellykket!", VbInformation
for å vise en melding. Bytt vinduer tilbake til Access 2007 og klikk "Vis" for å kjøre form. Klikk på "Command0" knappen og du vil se en liste bokskontroll vise navnene.
Hint
- Visual Basic-kode skal se slik ut:
- Private Sub Command0_Click ()
- Dim dbs som database
- Dim rst As Recordset
- Dim x As Integer
- Dim strSQL As String
- Dim lastFirst As String
- Sett dbs = CurrentDb
- strSQL = "CREATE TABLE Table1 (Fornavn TEKST (25), Etternavn TEKST (25));"
- DoCmd.RunSQL (strSQL)
- strSQL = "INSERT INTO Tabell1 ([Fornavn], [Lastname])"
- strSQL = strSQL & "VERDIER ( 'John', 'Smith');"
- DoCmd.SetWarnings falske
- strSQL = strSQL & "VERDIER ( 'Jaime', 'Avelar');"
- Sett rst = dbs.OpenRecordset ( "Tabell 1")
- rst.MoveFirst
- For X = 0 For å rst.RecordCount - 1
- lastFirst = Trim (rst.Fields ( "Etternavn"). verdi) & "" & Trim (rst.Fields ( "fornavn"). verdi)
- List1.AddItem lastFirst
- rst.MoveNext
- Neste X
- MsgBox "Du har vist alle rekorder i Table1 å liste bokser vellykket!", VbInformation
- End Sub