我的Access子窗体上有一个按钮,它根据组合框中的值创建基于特定模板的新电子邮件。大多数这些模板已经有一个现有的To:电子邮件地址。 在大多数情况下(这是用当前代码完成的),这必须替换为子窗体父窗体中的电子邮件地址,但如果组合框的值是'x'或'y'那么它应该在第二种形式中插入另一封电子邮件,其中主窗体和第二种形式具有链接字段。 是我到目前为止的代码:有条件地用vba更改邮件收件人电子邮件地址
If Me![cboEmail].Value = "Your patient Initial" Then
oMail.To = Nz(DLookup("[strEmail]", "tblAddress", "[longDoctorID] = " & Me.Parent!longDoctorID))
ElseIf Me![cboEmail].Value = "Follow Up of your patient" Then
oMail.To = Nz(DLookup("[strEmail]", "tblAddress", "[longDoctorID] = " & Me.Parent!longDoctorID))
Else
oMail.To = Me.Parent![strEmailAddress].Value
End If
什么不工作是前两个条件,其中值是“你的病人最初的”,或者如果它是“跟进您的病人” 任何帮助将不胜感激!
什么*不起作用*? – Andre