Hello, my name is Murdock and I recently joined this forum. I am here to gain more knowledge as well as share my knowledge. I am currently employed as a Analyst for an health care organization and I use Ms Access on daily basis.
I have a project at my job to update an existing Access Switch Board that a department has been using to generate reports. A developer had initially design the Switch Board, but the organization is no longer in contact with the developer, and now the Switch Board has been malfunctioning.
The problem at hand is the tables and the Switch Board were developed and saved in a Novell share drive, the company recently migrated from Novell over to a Windows share drive. I believe the Switchboard is probably malfunctioning, because it's now in a new directory, and the scripting still has the old directory. I am not at all familiar with VB coding and modules, I did however manage to get behind the disabled settings to take a look at the
I have included the VB below, and just wanted to know, where would I have to update in the VB, so that it's importing from the right path? Thanks, your help would be greatly appreciated.
Option Compare Database
Function fTableExists(strTableName As String) As Boolean
Dim tbl As TableDef
fTableExists = False
For Each tbl In currentdb.TableDefs
If tbl.Name = strTableName Then
fTableExists = True
Function delTables(strTableName As String)
'On Error GoTo Err
If fTableExists(strTableName) Then
DoCmd.DeleteObject acTable, strTableName
' MsgBox "An error has occurred." & vbCrLf & "Please make sure all Table are closed. "
' MsgBox Error
' Exit Function
Dim db As Database
Dim strsql As String
Dim dteyr As String
'Dim dteyear As String
Dim strYR As String
Dim strAvgDailyVisit As String
'Dim strqAvgDailyVisit As String
Dim strsqlqend As String
On Error GoTo Err
Set db = currentdb
strAvgDailyVisit = "Avg Daily Visit "
'dteyr = Date