---

Hej

Er der nogen der kan give et link eller eksempel på hvordan man fra vba til
word kan komme i kontakt med en access database og laver en forspørgelse.

tak

---

Hej Kim !

Sådan har jeg gjort


Dim rst As Recordset
Dim sql As String
Dim RstNum As Integer
Dim db As Database
Dim Temp_User

Set db = OpenDatabase(Name:="C:\Stamdata.mdb")

sql = "SELECT * FROM Kunder"

Set rst = db.OpenRecordset(sql)

While Not rst.EOF()

rst.MoveLast
RstNum = rst.RecordCount - 1
rst.MoveFirst

ReDim KundeNrArray(RstNum)

For X = 0 To RstNum

KundeNrArray(X) = rst!Kundenummer

rst.MoveNext

Next X

Wend
rst.Close
db.Close
Set db = Nothing

Kunder.List() = KundeNrArray


Her sætter den så en listbox op med kundenumre i.

Håber det kan bruges.

Jeg bruger Microsoft DAO 3.51


"Kim Rex Bengtsson" <KB@braedstrup.dk> skrev i en meddelelse
news:avh40p$82h$1@sunsite.dk...
> Hej
>
> Er der nogen der kan give et link eller eksempel på hvordan man fra vba
til
> word kan komme i kontakt med en access database og laver en forspørgelse.
>
> tak
>
>
>

---

"Dr. G" <ncg@post10.tele.dk> skrev i en meddelelse
news:3e1c23d7$0$71605$edfadb0f@dread11.news.tele.dk...
> Hej Kim !
>
> Sådan har jeg gjort

[SNIP kode]

> Jeg bruger Microsoft DAO 3.51

Husk, at hvis det er en Access 2000 database, skal man brige DAO 3.6

--
mvh
Jens Vestergaard
www.railsoft.dk
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp