Question

使用Access 2010，我创建了一个充当目录的表单。我希望能够点击名称字段并向该人发送电子邮件。我有它在目录上的一个名称，但第二个和第三个名称字段给我以下错误：编译错误：找不到方法或数据成员。代码中突出显示的部分是：Private Sub AA2Name_Click（），而Me.AA2Email以蓝色突出显示。

完整的代码是：

Private Sub AA1Name_Click()
 On Error GoTo Err_Handler

DoCmd.SendObject acSendNoObject, To:=Me.AA1Email

Exit_Handler:
 Exit Sub

Err_Handler:
 If Err.Number <> 2501 Then
 MsgBox "Error " & Err.Number & " - " & Err.Description
 End If
 Resume Exit_Handler
 End Sub

Private Sub AA2Name_Click()
 On Error GoTo Err_Handler

DoCmd.SendObject acSendNoObject, To:=Me.AA2Email

Exit_Handler:
 Exit Sub

Err_Handler:
 If Err.Number <> 2501 Then
 MsgBox "Error " & Err.Number & " - " & Err.Description
 End If
 Resume Exit_Handler
End Sub

Private Sub AA3Name_Click()
 On Error GoTo Err_Handler

DoCmd.SendObject acSendNoObject, To:=Me.AA3Email

Exit_Handler:
 Exit Sub

Err_Handler:
 If Err.Number <> 2501 Then
 MsgBox "Error " & Err.Number & " - " & Err.Description
 End If
 Resume Exit_Handler
End Sub

感谢任何有帮助的人！

Answer 1

我已经尽可能地重新创造了上面所描述的内容，但对我来说一切都运行良好。您可以查看我所获得的here的线索;使用 frmEmails - 原始VBA 表单。

我唯一能想到的是你可能在某个地方错误输入Me.AA2Email？也许检查控件的Name属性，这是指...它是否出现在intellisense中？

旁注：我已在该文件中创建了另一个名为 frmEmails - 更新的VBA 的版本。在这里，我已经安排了您的VBA，因此您不会复制如此多的代码。本质上，它运行1子程序中的所有常用代码，将变化的电子邮件字段作为参数传递。这并没有解决你的问题，但我认为值得补充。

Public Sub ComposeEmail(ToField As String)

    On Error GoTo Err_Handler

    DoCmd.SendObject acSendNoObject, To:=ToField

Exit_Handler:
    Exit Sub

Err_Handler:
    If Err.Number <> 2501 Then
    MsgBox "Error " & Err.Number & " - " & Err.Description
    End If
    Resume Exit_Handler

End Sub


Private Sub AA1Email_Click()

    ComposeEmail Me.AA1Email

End Sub


Private Sub AA2Email_Click()

    ComposeEmail Me.AA2Email

End Sub


Private Sub AA3Email_Click()

    ComposeEmail Me.AA3Email

End Sub

使用DoCmd.SendObject访问2010以发送电子邮件

1 个答案: