G
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
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