记录为空

superjinyu · 发表于 2006-9-5 05:20:00

Function send_mail()
Dim send2 As New ADODB.Recordset
Dim send3 As New ADODB.Recordset
Dim olkapp As Outlook.Application
Dim newmail As MailItem
Dim para As String
Dim i As Integer
Set olkapp = CreateObject("outlook.application")
send2.Open "select * from [7-28] order by 快件号码", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
send3.Open "select * from [7-28子],[7-28] where [7-28子].快件ID=[7-28].快件ID", CurrentProject.Connection, adOpenKeyset,adLockReadOnly

If send2.RecordCount < 1 Then Exit Function
With send2
para = "dear super"
para = para + "<html><center>EXPRESS

.O.D Reports" & _
"

rint Date:" & Date & ""
For i = 1 To .RecordCount
para = para + "<head><tbody>" & _
 " <tr><table border=0 cellpadding=1>" & _
 "<th width=100 align=left>In-Date</th>" & _
 "<th width=100 align=left>

od No</th>" & _
"<tr><td width=100 align=left>" & CStr(.Fields("发件日")) & "</td>" & _
 "<td width=100 align=left>" & CStr(.Fields("快件号码")) & "</td>" & _
 "<tr><td width=100 align=left>" & CStr(send3.Fields("日期")) & "</td>" & _
 "<td width=500 align=left>" & CStr(send3.Fields("递送经过")) & "</td>" & _

"</tbody></head>"
.Move i, 1
Next i

End With
send2.Close
Set newmail = olkapp.CreateItem(olMailItem)
With newmail
.To = "ggggggg5@hotmail.com"
.Subject = Format(Date, "mmm dd")
.BodyFormat = olFormatHTML
.HTMLBody = para
.send
End With
End Function

加了红色的代码后，就出错，BOF或EOF中有一个为真或者当前记录被删除，所需的操作要求一个当前的记录
表示没记录？不知怎么改

zhuyiwen · 发表于 2006-9-5 18:09:00

可能关键问题出在：

select * from [7-28子],[7-28] where [7-28子].快件ID=[7-28].快件ID

这条语句上吧。

你好好检查一下

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 记录为空

群介绍
主题无相 (随机显示版	同地区群块其他地区)