Overfører data fra en outlookformular til en ACCESS database

Withoutoy knowing much about Outlook I cant be 100% sure, but as Office applications can communicate with each other then I would say yes.

I havent tried thi sbut it is worth giving  ago.
You need to have a reference to Access, how that is done in Outlook I cant say.

Then you can automate Access like this.

Dim acc As Access.Application
Dim obj As AccessObject, dbs As Object

    Set acc = CreateObject("Access.Application")

    acc.OpenCurrentDatabase "C:\test5.mdb"

    Set dbs = acc.Application.CurrentProject
   
    'THis is th eline which puts the data into Acces
    'It can be any SQL which doesnt retunr values
    acc.DoCmd.RunSQL "INSERT INTO YourTable ........"

    acc.CloseCurrentDatabase
    Set acc = Nothing

Hej Terry,

Det er altid en begyndelse...
Jeg vil arbejde videre med det. Du får besked hvordan går det.

Len

Ok,
If you know SQL then its just a case of building th SQL taking the values from your form.


og god weekend

Terry

Du kan måske hente noget inspiration på http://www.dbforums.com/showthread.php?threadid=802504&highlight=outlook+form

Hej Terry,

Nu har jeg haft tid til at prøve det. Jeg har adgang til min database og tabel, men jeg er lidt usikker  på min sqlsætning...

ACC.Docmd.runsql "INSERT INTO  TEST (id, navn) VALUES (idnr, navn)"

når jeg kører sciptet så beder den min indtaste værdierne idnr og navn !! når jeg indtaster dem bliver de fint overført til tabellen.

Hvordan referere jeg til felterne i formularen ?? item.idnr

kan du hjælpe mig..

Hilsen
Lennardt

Hvordan referere jeg til felterne i formularen ?? item.idnr

Se 15/02-2004 01:18:11

Item.UserProperties("idnr").Value

Hej Hekla,

Tak :-) det gælder om at læse hvad der bliver skrevet. Jeg har prøvet det, men kan ikke få det rigtigt til at virke. Jeg bliver bedt om at indtaste værdierne for teskt1 og tekst2.

Her er koden jeg bruger.

Sub cmdExport_Click()

Dim acc
Dim obj
Dim dbs
Dim tekst1
Dim tekst2

set acc=createobject("access.Application")
acc.opencurrentdatabase "C:\db1.mdb"
set dbs=acc.application.currentproject
tekst1=Item.UserProperties("idnr").Value
tekst2=Item.UserProperties("navn").Value

acc.docmd.runsql " INSERT INTO test (id,navn) VALUES (tekst1,tekst2)"
acc.CloseCurrentDatabase
Set acc = Nothing

End Sub

Hej Hekla og Terry,

Har funder ud af det. skulle sætte det ind i "' &tekst1&'".

great, you need to close the Q now :o)

:o) tak

Thanx :o)