Någon som har ett tips på hur man kommer åt en Access-databas som är upptagen mot ett excelblad?
När jag föröker ansluta med nedanstående kod får jag "RunTime Error 3045 - Filen används redan".
Användare av Excelbladet behöver bara ha läsrättigheter mot databasen...

/Jorgen

Private Sub SkrivDb(Kund As String, Vikt As String)
Dim WK As Workspace
Dim DB As Database
Dim RS As Recordset
Dim strSQL As String
Set WK = Workspaces(0)
Set DB = WK.OpenDatabase("C:\Test.mdb", False, False)
strSQL = "SELECT * FROM tblInvagning"
Set RS = DB.OpenRecordset(strSQL, dbOpenDynaset)
RS.AddNew
RS!Datum = Date
RS!Tid = Time
RS!KundNr = Kund
RS!NettoVikt = Vikt
RS.Update
RS.Close
Set WK = Nothing
Set DB = Nothing
Set RS = Nothing
End Sub

Löste problemet genom att öppna filen i skrivskyddat läge från excel.

/Jorgen