Defining object in sub

[lotarugg]

I have this below in which I'm missing the right syntax. I get 'external name not defined' error where I have tried to define Email_Date on the 2nd line.

Thanks

Sub EmailSent()
If [Tables!Table_Date.Table.Email_Date] <> Date Then
[Tables!Table_Date.Table.Email_Date] = Date
Result = SendEMail()

Else

Result = "Today's emails have already been sent!"

End If

End Sub

 

[apr pillai]

Public Sub EmailSent()
Dim db As Database, rst As Recordset
Set rst = db.OpenRecordset("Table_Date")

With rst
If ![Email_Date] <> Date Then
    .Edit
    ![Email_Date] = Date
    .update
    Result = SendMail()
Else
    Result = "Today's emails have already been sent!"
End If
End With
rst.Close

Set rst = Nothing
Set db = Nothing


End Sub