VBA: fra word til access

Det afhænger af hvordan de data du vil overføre ser ud, og hvordan din tabel i access skal se ud.

Der er 100000 eksempler på eksperten, prøv at kik i søgefunktionen :o)
Eller kom med et mere specifikt ønske...

Eksempel:
Data i tekstbox1, placeret direkte i et word doc, skal ved tryk på commandbutton1, overføres til "VBATabel" i Access, i feltet "Data_fra_vbaword"

Ved tryk på commandbutton2, skal data hentes igen og sættes ind i word doc. i tekstbox2.

Jeg har iøvrigt søgt på eksperten, men jeg har lidt svært ved at definere det/de rigtige søgeord. Så resultaterne er ikke rigtig det jeg søger.

Prøv med denne:
    Dim rs As New ADODB.Recordset
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "c:\Dokumenter\DinDatabase.mdb"
    Set rs = cn.Execute("Select * from VBATabel")
    rs.Addnew
    rs!Data_fra_vbaword = Textbox1
    rs.Update
    rs.Close
    cn.Close

Metoden kræver en reference til "Microsoft ActiveX Data Objects 2.x" (Tools->References)

/Thomas

thomasjepsen>> Jeg får en Run-time err. 3251
"Method 'addnew' of object "_Recordset' failed"

Har du checket referencen?

Referencen "Microsoft ActiveX Data Objects 2.7" har jeg tilføjet. Også Microsoft ActiveX Data Objects Recordset 2.7 Library".

Den sidste er ikke nødvendig og kan i værste fald give fejl i den generelle kode.

object "_Recordset' ??? Dit recordset hedder da rs og ikke _Recordset... Prøv at vis din kode

Private Sub CommandButton1_Click()
Dim sti As String
Dim rs As New ADODB.Recordset
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    sti = "D:\Backup\Dokumenter\VBA"
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open sti & "\Test_wd-ac.mdb"
    Set rs = cn.Execute("Select * from VBATabel")
    rs.Addnew
    rs!Data_fra_vbaword = TextBox1
    rs.Update
    rs.Close
    cn.Close
End Sub

Jeg er ikke kommet nærmere en løsning, så jeg lukker. Tak for hjælpen :-)