Please Help. Email Problems. Dougp if you see this read please

[Shadez]

OK this was working fine, I go on vacation and come back and it's now disfunctional. Along with a few other things, they had some "TEMP" programmer in here Anyways I have a ton of messes to redo and need help with this one.

Function SEmail()
On Error Resume Next
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("EmailListing&quot

'Dim rs As ADODB.Recordset

' Set rs = New ADODB.Recordset
' rs.Open "EmailListing", CurrentProject.Connection, , , adCmdTable





With rs
Do While Not .EOF
BEmail = BEmail & IIf(Len(BEmail) > 0, ";", "&quot & rs!BEmail
.MoveNext
Loop
End With

If BEmail = "" Then
MsgBox "There are currently no client records listed under this category", vbExclamation, "E-Mail Error"
Exit Function
End If

'DoCmd.SendObject acSendNoObject, , acFormatText, Bemail, , , "Your Subject Line", "Body of Text", 0
DoCmd.SendObject acSendNoObject, , , , , BEmail, , , , True
'DoCmd.SendObject acSendReport, "Project", "Snapshot Format", , , BEmail, "Official Invitation to Project", "You have been invitited to view a newly posted project at

http://www.usblueprints.com",

, True

End Function


ERROR

Compilation Error:

Can't find project or library

It worked fine before my vacation please help.

 

[tlbroadbent]

Check this article.

ACC2000: VBA Functions Break in Database with Missing References

http://support.microsoft.com/support/kb/articles/Q208/2/18.ASP

Terry L. Broadbent
FAQ183-874 contains tips for posting questions in these forums.
NOTE: Reference to the FAQ is not directed at any individual.

 

[Shadez]

Ok now this is bugging me, I can't access the references section in the VB window

 

[fullkeel]

Perhaps this might help.
What version of Access are you using?

With 97 you will need the following reference libraries

Visual Basic for Applications
Microsoft Access 8.0 Object Library
Microsoft DAO 3.51 Object Library

Bring up any module and on the T_ools menu choose References to see what you have loaded then add as necessary.