Run-time error'3078'

[Guest]

Hi,

I had an issue with data not syncing,because it kept referencing the old
spreadsheet, so I went into tools, database utilities, linked manager to
update the linked file, now I'm getting:

The record source 'Select tbl_JobTracking.[job tracking id],
tbl_JobTracking.WMS,'tbl_JobTracking.Discipline, tbl_jJobTracking.SvcCtr,
tbl_JobTra...' specified on this form or report does not exist.

You misspelled the name, or it was deleted or renamed in the current
database, or it exist in a different database.

In the Form or Report's Design view, display the property sheet by clicking
the Properties button and then set the RecordSource to an existing table or
query.

Along with the erroe msg in the subject line to follow:

The Microsoft database engine cannot find the input table or query
'tbl_JobTracking. Make sure it exists and that its name is spelled correctly.

When I go to debug or step into it, the highlighted yellow portions has an
arrow next to it below, I would appreciate all the assistance I can get:

Private Sub Form_Current()
Me.JJButtonOH.value = 0
Me.JJButtonUGL.value = 0
Me.JJButtonURD.value = 0
Me.JJButtonCON.value = 0
If Not (Me.WMS.value = vbNull) Then

Dim rs As DAO.Recordset
Dim db As DAO.Database
Set db = currentDB
Dim strSQL As String
Dim wmsStr As String
wmsStr = Me.WMS.value
strSQL = "SELECT Discipline FROM tbl_JobTracking WHERE WMS = '" + wmsStr
+ "'"
Set rs = db.OpenRecordset(strSQL) <-----<

Do While Not rs.EOF
If (Strings.Trim(rs.Fields(0)) = "OH") Then
Me.JJButtonOH.value = -1
End If

If (Strings.Trim(rs.Fields(0)) = "UGL") Then
Me.JJButtonUGL.value = -1
End If

If (Strings.Trim(rs.Fields(0)) = "URD") Then
Me.JJButtonURD.value = -1
End If

If (Strings.Trim(rs.Fields(0)) = "CON") Then
Me.JJButtonCON.value = -1
End If

rs.MoveNext
Loop

rs.Close
db.Close

End If

End Sub


Thanks

 

[Guest]

Hi,

I had an issue with data not syncing,because it kept referencing the old
spreadsheet, so I went into tools, database utilities, linked manager to
update the linked file, now I'm getting:

The record source 'Select tbl_JobTracking.[job tracking id],
tbl_JobTracking.WMS,'tbl_JobTracking.Discipline, tbl_jJobTracking.SvcCtr,
tbl_JobTra...' specified on this form or report does not exist.

You misspelled the name, or it was deleted or renamed in the current
database, or it exist in a different database.

In the Form or Report's Design view, display the property sheet by clicking
the Properties button and then set the RecordSource to an existing table or
query.
I did what was requested and it does not respond now

Along with the error msg in the subject line to follow:

The Microsoft database engine cannot find the input table or query
'tbl_JobTracking. Make sure it exists and that its name is spelled correctly.

When I go to debug or step into it, the highlighted yellow portions has an
arrow next to it below, I would appreciate all the assistance I can get:

Dim rs As DAO.Recordset
Dim db As DAO.Database
Set db = currentDB
Dim strSQL As String
Dim wmsStr As String
wmsStr = Me.WMS.value
strSQL = "SELECT Discipline FROM tbl_JobTracking WHERE WMS = '" + wmsStr
+ "'"
Set rs = db.OpenRecordset(strSQL) <-----<

Do While Not rs.EOF
If (Strings.Trim(rs.Fields(0)) = "OH") Then
Me.JJButtonOH.value = -1
End If

If (Strings.Trim(rs.Fields(0)) = "UGL") Then
Me.JJButtonUGL.value = -1
End If

If (Strings.Trim(rs.Fields(0)) = "URD") Then
Me.JJButtonURD.value = -1
End If

If (Strings.Trim(rs.Fields(0)) = "CON") Then
Me.JJButtonCON.value = -1
End If

rs.MoveNext
Loop

rs.Close
db.Close

End If

End Sub


Thanks