dbSeeChanges Error Please Help.

[Shadez]

You must use the dbSeeChanges option with OpenRecordset when accessing a SQL Server table that has an IDENTITY column. (Error 3622)


This is the error I am getting I am in no way familair with this command. Following is the code that is running when error comes up.

-------------------------------------------------------

Set db = CurrentDb
SQL = "SELECT * FROM dbo_Members;"
Set rs = db.OpenRecordset(SQL)

rs.MoveFirst

Do While rs.EOF = False
email = email & rs!email & ";"
rs.MoveNext
Loop


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

DoCmd.SendObject acSendNoObject, , , , , email, , , , True

-----------------------------------------------------

Thanks In Advance

 

[DougP]

Are you getting the error on the Docmd.send....
line or where

I would set E-mail to "" first
-------------------------------------------------------

Set db = CurrentDb
SQL = "SELECT * FROM dbo_Members;"
Set rs = db.OpenRecordset(SQL)

email = &quot;&quot; ' <<<<< Added this line >>>>>>>>>>>>>

rs.MoveFirst

Do While rs.EOF = False
email = email & rs!email & &quot;;&quot;
rs.MoveNext
Loop


'Or check for null as shown below

If email = &quot;&quot; or isnull(email) Then

MsgBox &quot;There are currently no client records listed under this category&quot;, vbExclamation, &quot;E-Mail Error&quot;
Exit Sub
End If

DoCmd.SendObject acSendNoObject, , , , , email, , , , True

DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive