Reading first record instead of current record

[crystalnewbie]

I have a form with an email button that is supposed to open up an Outlook window. It does open the outlook window but it seems to be getting the email information from the first record and not the current record.

What am I missing here?

Thanks in advance.

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

Dim sBodyText As String
Dim sSubject As String
Dim sAddress As String
Dim dba As DAO.Database, rst As DAO.Recordset

Set dba = CurrentDb
Set rst = dba.OpenRecordset("contact directory")

sBodyText = "test"
sSubject = "your subject"

If Not IsNull(rst("e-mail")) Then
sAddress = rst("e-mail")
DoCmd.SendObject , , , sAddress, , , sSubject, sBodyText
End If

 

[Golom]

Since you've just opened the recordset, the first record IS the current record.

You probably need to do something like

rst.FindFirst "ContactName = '" & TheContact & "'"

to position yourself properly.

 

[crystalnewbie]

Actually, there's really no need for me to open a recordset. Happen to come across an example that did and used it. Just needed to change the assignment to:

Set rst = Me.recordset

...and that did the trick.

Thanks.