At lære at indsætte værdier fra Microsoft Word til en Microsoft Access-database kan blive nyttige, når du opfange data fra brugerne gennem Word. Den bedste måde at indsætte data fra Word til Access er gennem brug af "Active Data Objects ( ADO ) " i Visual Basic for Applications ( VBA ) . VBA er et edb-programmering sprog, der anvendes i Microsoft Office-programmer til at skrive programmer. ADO tillader dig at lave en forbindelse til en database og indsætte værdier til bordet og kolonner af dit valg. Instruktioner
1

Launch Microsoft Word, skal du klikke på "Udvikler " fanen, og klik på " Visual Basic " for at starte VB Editor vinduet. Klik på " Indsæt" menuen og klikke på " Modul " for at indsætte en ny kode modul
2

Skriv følgende for at oprette en ny sub procedure : .

Private Sub insertValuesToDB () < br >
3

Opret en streng datatype variabel til at holde Word data, du vil indsætte :

Dim valueRead As String
4

Vælg tekstlinje i Word og gemme den i streng variabel : Hej

Application.Selection.Expand wdLine

valueRead = Application.Selection.Text
5

Opret adodb objektvariabler :

Dim adoConn Som ADODB.Connection

Dim adoCmd Som ADODB.Command
6

Definer stien og navnet på din Access-database. Åbne forbindelsen : Hej

Set adoConn = Ny ADODB.Connection

adoConn

ConnectionString = " Provider = Microsoft.ACE.OLEDB.12.0 , " & _ < br . >

"Data Source = C: \\ Northwind 2007.accdb " .

Open

End With
7

Opret en ny kommando til at indsætte den linje valgt i Word til en Access-database tabellen : Hej

Set adoCmd = Ny ADODB.Command

Med adoCmd

ActiveConnection = adoConn

CommandText = " . . INSERT INTO ( ) VALUES ( ' "& ( valueRead ) & ") "

End Med

adoCmd.Execute
8

Edit og og skriv dit tabelnavn og feltnavn , du vil bruge til at indsætte data

release objekter fra hukommelsen og lukke forbindelsen : . < br >

adoConn.Close

Set adoConn = Nothing
9

Vise en besked boks , når værdien er blevet indsat i databasen og afslutte proceduren : Hej < p > MsgBox "Value er tilføjet til din database tabel . "

End Sub
10

Tryk på " F5 " for at køre proceduren.
< br >