| | |
|
|
|
RE: error 2495 |
|---|
| message from David on 28 May 2004 |
Sub NewKits()
Dim RelNum
DoCmd.SetWarnings False
DoCmd.RunMacro "mroNewReleaseFinal"
DoCmd.OpenTable "tblNewReleasesFinal"
RelNum = DCount("*", "tblNewReleasesFinal")
If RelNum = 0 Then
DoCmd.Close acTable, "tblNewReleasesFinal"
MsgBox "No new releases for report run at " & Now(), vbOKOnly
DoCmd.SetWarnings True
Else
RunCommand (acCmdSelectAllRecords)
RunCommand (acCmdCopy)
DoCmd.OpenTable "Released Kits"
RunCommand (acCmdPasteAppend)
DoCmd.Close acTable, "Released Kits"
DoCmd.Close acTable, "tblNewReleasesFinal"
DoCmd.SendObject acSendTable, objectname:="tblNewReleasesFinal",
to:="xxxxxx", cc:="yyyyy", subject:="New Releases", _
messagetext:="yyyyy, add any Safedisc or DVD releases to appropriate tab in
GPS." _
, outputformat:="HTML", editmessage:=False
DoCmd.SendObject acSendTable, objectname:="tblNewKitsWithPrintComp",
to:="xxxxx", cc:="yyyyy", subject:="New Releases with Print Components", _
messagetext:="xxxxx, please download and store these new kits." _
, outputformat:="HTML", editmessage:=False
DoCmd.SetWarnings True
End If
End Sub
+++++++++++++++++++++++++++++
I really appreciate your help, this is really annoying me...
Thanks,
David
"Ken Snell" <kthsneisllis9@ncoomcastt.renaetl> wrote in message
news:OD4owfFREHA.3944@tk2msftngp13.phx.gbl...
|
|
Archived message: RE: error 2495 (Microsoft Access Database)
