De onderstaande VBA code wil maar niet werken. Ik heb al het andere verwijderd om te zorgen dat ik geen conflicten ergens mee zou krijgen, en namen van Tabel e.d. zijn allemaal correct.Toch krijg ik bij het zetten van een recordset een foutmelding, Runtime Error 13, Type Mismatch. Ik krijg het maar niet voor elkaar dit weg te krijgen. Iemand enig idee?
Code:
Private Sub LINKTABLES_Click()
Dim PfadTxt As String
Dim AktuelleDB As Database
Dim tblLink, tblName, tblNewName As String
Dim MeinPfadTxt As Recordset
Set AktuelleDB = CurrentDb
Set MeinPfadTxt = AktuelleDB.OpenRecordset("LinkPath")
MeinPfadTxt.Move (3)
tblLink = MeinPfadTxt.Fields(1).Value
tblName = MeinPfadTxt.Fields(2).Value
tblNewName = MeinPfadTxt.Fields(3).Value
DoCmd.TransferDatabase acLink, "Microsoft Access", tblLink, acTable, tblName, tblNewName, False
End Sub