This line is throwing up as an error after splitting the database.
Set MySet = MyDB.OpenRecordset("keydata", dbOpenTable)
Should there be an amendment to the programing?
This is the full module.
Sub UpdateKeyData(RecordNo As Long, NewData As String)
Dim MyDB As Database, MySet As Recordset
Set MyDB = CurrentDb()
Set MySet = MyDB.OpenRecordset("keydata", dbOpenTable)
MySet.Index = "PrimaryKey"
MySet.Seek "=", RecordNo
MySet.Edit
MySet!fieldone.Value = NewData
MySet.Update
Debug.Print "UpdateKeyData: Record " & Format(RecordNo, "#") & " changed to " & NewData
MySet.Close
End Sub
Thanks