No Current Record

When I run a query I get "No current record" error message. Thpis is a very
old query and I have never had a problem with it.

Thanks in advance

eric

query

INSERT INTO JobDevMain ( SocialSecurityNumber, FirstName, LastName,
RetentionStartDate, JobDeveloper, FundingSource, ClientStatus,
CaseManagerOrESC, LastOfContractorName, Job1Employer, Job1HourlyWage,
Job1BenefitsAvailable, Job2Employer, Job2HourlyWage, Job2BenefitsAvailable,
Job3Employer, Job3HourlyWage, Job3BenefitsAvailable, Job1Startdate,
Job2Startdate, Job3Startdate, Job1Enddate, Job2Enddate, Job3Enddate, TermDate
)
SELECT [Client Info].SocialSecurityNumber, [Client Info].FirstName, [Client
Info].LastName, [Client Internal Activities].RetentionStartDate, [Client
Internal Activities].JobDeveloper, [Client Internal
Activities].FundingSource, [Client Internal Activities].ClientStatus, [Client
Internal Activities].CaseManagerOrESC, Contracts.ContractorName, [Client Jobs
and Outcomes].Job1Employer, [Client Jobs and Outcomes].Job1HourlyWage,
[Client Jobs and Outcomes].Job1BenefitsAvailable, [Client Jobs and
Outcomes].Job2Employer, [Client Jobs and Outcomes].Job2HourlyWage, [Client
Jobs and Outcomes].Job2BenefitsAvailable, [Client Jobs and
Outcomes].Job3Employer, [Client Jobs and Outcomes].Job3HourlyWage, [Client
Jobs and Outcomes].Job3BenefitsAvailable, [Client Jobs and
Outcomes].Job1StartDate, [Client Jobs and Outcomes].Job2StartDate, [Client
Jobs and Outcomes].Job3StartDate, [Client Jobs and Outcomes].Job1EndDate,
[Client Jobs and Outcomes].Job2EndDate, [Client Jobs and
Outcomes].Job3EndDate, [Client Internal Activities].[Pittsburgh Partbership
Termination Date]
FROM (([Client Info] LEFT JOIN [Client Jobs and Outcomes] ON [Client
Info].SocialSecurityNumber = [Client Jobs and Outcomes].JobSSN) LEFT JOIN
(Contracts RIGHT JOIN [Client Contracted Activities new] ON
Contracts.ProjectID = [Client Contracted Activities new].ProjectID) ON
[Client Info].SocialSecurityNumber = [Client Contracted Activities
new].SocialSecurityNumber) LEFT JOIN [Client Internal Activities] ON [Client
Info].SocialSecurityNumber = [Client Internal Activities].SocialSecurityNumber
WHERE (((Contracts.ProjectID)=284 Or (Contracts.ProjectID)=261 Or
(Contracts.ProjectID)=304 Or (Contracts.ProjectID)=316 Or
(Contracts.ProjectID)=394 Or (Contracts.ProjectID)=411 Or
(Contracts.ProjectID)=412 Or (Contracts.ProjectID)=181 Or
(Contracts.ProjectID)=313 Or (Contracts.ProjectID)=275 Or
(Contracts.ProjectID)=435 Or (Contracts.ProjectID)=436 Or
(Contracts.ProjectID)=63 Or (Contracts.ProjectID)=419 Or
(Contracts.ProjectID)=302 Or (Contracts.ProjectID)=435 Or
(Contracts.ProjectID)=520 Or (Contracts.ProjectID)=530 Or
(Contracts.ProjectID)=545))
GROUP BY [Client Info].SocialSecurityNumber, [Client Info].FirstName,
[Client Info].LastName, [Client Internal Activities].RetentionStartDate,
[Client Internal Activities].JobDeveloper, [Client Internal
Activities].FundingSource, [Client Internal Activities].ClientStatus, [Client
Internal Activities].CaseManagerOrESC, Contracts.ContractorName, [Client Jobs
and Outcomes].Job1Employer, [Client Jobs and Outcomes].Job1HourlyWage,
[Client Jobs and Outcomes].Job1BenefitsAvailable, [Client Jobs and
Outcomes].Job2Employer, [Client Jobs and Outcomes].Job2HourlyWage, [Client
Jobs and Outcomes].Job2BenefitsAvailable, [Client Jobs and
Outcomes].Job3Employer, [Client Jobs and Outcomes].Job3HourlyWage, [Client
Jobs and Outcomes].Job3BenefitsAvailable, [Client Jobs and
Outcomes].Job1StartDate, [Client Jobs and Outcomes].Job2StartDate, [Client
Jobs and Outcomes].Job3StartDate, [Client Jobs and Outcomes].Job1EndDate,
[Client Jobs and Outcomes].Job2EndDate, [Client Jobs and
Outcomes].Job3EndDate, [Client Internal Activities].[Pittsburgh Partbership
Termination Date]
HAVING ((([Client Internal
Activities].RetentionStartDate)=[Forms]![Main]![Rdate]));