Error Messages

[Prince]

Hello Everyone
I'm currently developing as system. I tried to take a copy of that system to another PC put when I open some forms The following message appear

this form have the following code

Private Sub Form_Load()
On Error GoTo Err_Form
Cal.Value = Date
Err_Form:
End Sub

where Cal is Calander.

also the following message appear when I open some forms and these forms don't have any event like On open or load

also I made the following query

SELECT mid([GR1].[RouteID],1,2) AS Cycle, Mid([GR1].[RouteID],3,3) AS [Sub District], Mid([GR1].[RouteID],6,3) AS Route, Count([CLI_MTR_REG].[AccountNumber]) AS [Number of Customers]
FROM GR1 INNER JOIN CLI_MTR_REG ON [GR1].[GR1ID]=[CLI_MTR_REG].[GR1ID]
GROUP BY [GR1].[RouteID]
ORDER BY [GR1].[RouteID];

It gives the following error although all the liberaries that I need are included?

All of these errors appear when I try to run my system in another PC but when I run it in the PC where I developed that system no errors at all are shown?
anyone have an idea how to solve this probelm?

 

[WayneRyan]

Prince,

You are missing a reference. This has been covered quite a bit
here.

Get your code in Design view and go to Tools --> References

If one of them says "Missing", check it.

Other than that use the Search Facility here and look for
references.

Wayne

 

[Prince]

I went to refernces and I saw one item is missing but it is already checked?

It looks that the problem is with the liberies (refernces) is the there a any way to make the system store the refernces like making .exe in making programs?