RA .MDB

Dear All

My RA Automation Server Is Up And Running For A Long Time, And Was Successfully Transfering Data To And From MS Excel Smoothly.
Recently I Loaded An MS Access Database Application Tiltled PRIMAVER.MDB Coming With P3-3.1 CD
But I Could Not Run It Properly

When I Run This I Get This Message " Action Failed : mcCreateActivityTable

I hope i have to set up a separate database and give the path in the code for data tranfer

Dear VBA Enthusiasts out there kindly give a solution

Here Is The First Lines Of The Code


Option Compare Database
Option Explicit

Function fCreateActivityTableDef() As Integer
On Error GoTo Catch ’error catch location
Dim dbsPrimavera As DATABASE ’declare database variable
Dim wspDefault As Workspace ’declare workspace variable
Dim dbPrimavera As String
Dim bRet As Boolean
Set wspDefault = DBEngine.Workspaces(0) ’defines the current session for the user
’ Set dbsPrimavera = wspDefault.OpenDatabase("C:\Documents and Settings\planner\My Documents\AccessHelp\PRIMAVER.MDB")
’ UnRem above statement to hardcode a directory location and name; then Rem next 5 lines below.
On Error GoTo Catch ’if invalid database name is entered, exit script
bRet = True

’ *** UnRem below to manually point to a database other than Primaver.mdb
’ dbPrimavera = InputBox("Enter Access database directory\name:" "C:\Documents and Settings\planner\My Documents\AccessHelp\PRIMAVER.MDBC:\ANDREA\PRIMAVERA.MDB" & "Example: C:\RASDK\ACCESS\PRIMAVER.MDB.", "Open Database", "C:\MSOFFICE\ACCESS\SAMPLES\PRIMAVER.MDB")

’ Set dbsPrimavera = wspDefault.OpenDatabase(dbPrimavera) ’set database name to variable
’ If bRet = False Then
’ MsgBox "Invalid Database name and/or location. Exiting script." ’Exit Macro if no project given or Cancel button pressed
’ GoTo EndFunction ’if invalid database name is entered, exit script
’ End If


Thanks

Hemant