Hvordan bruke Visual Basic for Access 2007

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